From mboxrd@z Thu Jan 1 00:00:00 1970 From: "Sebastien Vauban" Subject: Add number of items in the lists Date: Mon, 01 Oct 2012 23:46:40 +0200 Message-ID: <808vbpeugv.fsf@somewhere.org> Mime-Version: 1.0 Content-Type: text/plain Return-path: List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org To: emacs-orgmode-mXXj517/zsQ@public.gmane.org Hello, Here a first patch to do the above announced thing. Surely, this should be extended to more types of lists, but I first wait for comments... >From 49e516a175e658469088181bb0c364136198360e Mon Sep 17 00:00:00 2001 From: Sebastien Vauban Date: Mon, 1 Oct 2012 23:43:43 +0200 Subject: [PATCH 3/3] Add number of items in the TODO lists * org-agenda.el (org-todo-list): Add the number of items in the lists. TINYCHANGE --- lisp/org-agenda.el | 2 ++ 1 files changed, 2 insertions(+), 0 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 99bbe6a..992d7f1 100755 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -4423,6 +4423,8 @@ for a keyword. A numeric prefix directly selects the Nth keyword in (when rtnall (insert (org-agenda-finalize-entries rtnall) "\n")) (goto-char (point-min)) + (end-of-line) + (insert (format " (%s)" (length rtnall))) (or org-agenda-multi (org-agenda-fit-window-to-buffer)) (add-text-properties (point-min) (point-max) `(org-agenda-type todo -- 1.7.9 Best regards, Seb -- Sebastien Vauban