From 37c743dd054483820da8e058909a013bf4feacaf Mon Sep 17 00:00:00 2001 From: Charlotte Van Petegem Date: Tue, 8 Aug 2023 10:57:05 +0200 Subject: [PATCH] emacs: Show org inbox length in modeline --- modules/base/emacs/base-init.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/modules/base/emacs/base-init.el b/modules/base/emacs/base-init.el index bd7980b9..1b2c2a1b 100644 --- a/modules/base/emacs/base-init.el +++ b/modules/base/emacs/base-init.el @@ -253,6 +253,14 @@ (ido-find-file-in-dir org-directory) ) (defun set-creation-date-heading-property () (org-set-property "CREATED" (format-time-string (org-time-stamp-format t t)))) + (defun chvp--org-inbox-length () + (length (org-map-entries t t (list (concat org-directory "/inbox.org")))) + ) + (defun chvp--org-inbox-length-modeline () + (let ((org-len (chvp--org-inbox-length))) + (if (<= org-len 0) nil + (concat "Org inbox: " (propertize (format "%d" org-len) 'face 'error))))) + (add-to-list 'global-mode-string '(:eval (chvp--org-inbox-length-modeline))) :general (lmap :keymaps 'org-mode-map