branch: elpa/gnosis commit a6d64c1b3c7e05de27d47792392d8c3309468030 Author: Thanos Apollo <pub...@thanosapollo.org> Commit: Thanos Apollo <pub...@thanosapollo.org>
modeline: Remove due note indication when 0. --- gnosis.el | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/gnosis.el b/gnosis.el index 6cef4d4bd5..5935551efd 100644 --- a/gnosis.el +++ b/gnosis.el @@ -2978,6 +2978,7 @@ DASHBOARD-TYPE: either Notes or Decks to display the respective dashboard." (shell-command (format "%s pull" (executable-find "git"))) (setf gnosis-db (emacsql-sqlite-open (expand-file-name "gnosis.db" gnosis-dir))))) + ;; Gnosis mode ;; ;;;;;;;;;;;;;;;;; @@ -2988,17 +2989,19 @@ DASHBOARD-TYPE: either Notes or Decks to display the respective dashboard." :group 'gnosis :lighter nil (setq gnosis-due-notes-total (length (gnosis-review-get-due-notes))) - (if (and gnosis-modeline-mode (> gnosis-due-notes-total 0)) + (if gnosis-modeline-mode (progn (add-to-list 'global-mode-string - '(:eval - (format " G:%d" gnosis-due-notes-total) 'face 'warning)) + '(:eval + (if (and gnosis-due-notes-total (> gnosis-due-notes-total 0)) + (format " G:%d" gnosis-due-notes-total) + ""))) (force-mode-line-update)) (setq global-mode-string (seq-remove (lambda (item) (and (listp item) (eq (car item) :eval) (string-prefix-p " G:" (format "%s" (eval (cadr item)))))) - global-mode-string)) + global-mode-string)) (force-mode-line-update))) (define-derived-mode gnosis-mode special-mode "Gnosis"