diff options
| -rw-r--r-- | email.org | 64 |
1 files changed, 40 insertions, 24 deletions
@@ -212,29 +212,6 @@ (global-set-key [(f8)] 'jao-frm) #+end_src -* maildirs - #+begin_src emacs-lisp - (defun jao-list-mailboxes (base) - (let ((dir (expand-file-name base "~/var/mail"))) - (cl-remove-if (lambda (x) - (member x '("." ".." "sent" "inbox" "trash"))) - (directory-files dir)))) - - (defvar jao-maildir-maildirs nil) - (defvar jao-maildir-tracked-maildirs nil) - (use-package jao-maildir - :config - (defun jao-maildir--ensure-counts () - (when gnus-newsgroup-name - (when (string-match "^nnimap.*:\\(.+\\)" gnus-newsgroup-name) - (let ((mbox (format "/home/jao/var/mail/%s" - (match-string 1 gnus-newsgroup-name)))) - (jao-maildir-update-info-string mbox))))) - (with-eval-after-load "gnus-sum" - (add-hook 'gnus-exit-group-hook #'jao-maildir--ensure-counts))) - - (jao-maildir-setup jao-maildir-maildirs jao-maildir-tracked-maildirs -20) - #+end_src * bbdb #+begin_src emacs-lisp (use-package bbdb @@ -437,6 +414,40 @@ #+end_src +*** minibuffer notifications + #+begin_src emacs-lisp + (defvar jao-notmuch-minibuffer-string "") + + + (defvar jao-notmuch-minibuffer-queries + '((:name "" :query "tag:new" :face jao-themes-f00) + (:name "B" :query "tag:new and tag:bigml and tag:inbox") + (:name "b" :query "tag:new and tag:bigml and tag:bugs" + :face jao-themes-error) + (:name "S" :query "tag:new and tag:bigml and tag:support") + (:name "W" :query "tag:new and tag:bigml" :face jao-themes-dimm) + (:name "I" :query "tag:new and tag:jao and tag:inbox") + (:name "J" :query "tag:new and tag:jao" :face jao-themes-dimm) + (:name "E" :query "tag:new and tag:feeds and tag:emacs" + :face jao-themes-dimm) + (:name "F" :query "tag:new and tag:feeds and not tag:emacs" + :face jao-themes-dimm))) + + (defun jao-notmuch-update-minibuffer () + (let ((cnts (notmuch-hello-query-counts jao-notmuch-minibuffer-queries))) + (setq jao-notmuch-minibuffer-string + (mapconcat (lambda (c) + (propertize (format "%s%s" + (plist-get c :name) + (plist-get c :count)) + 'face (or (plist-get c :face) 'default))) + cnts + " ")) + (jao-minibuffer-refresh))) + + (jao-minibuffer-add-variable 'jao-notmuch-minibuffer-string -20) + + #+end_src *** searches #+begin_src emacs-lisp (defun jao-notmuch--and (frags) @@ -505,7 +516,9 @@ (beginning-of-buffer) (widget-forward 2))) - :hook (notmuch-hello-refresh . jao--refresh-agenda) + :hook ((notmuch-hello-refresh . jao--refresh-agenda) + (notmuch-hello-refresh . jao-notmuch-update-minibuffer)) + :bind (:map notmuch-hello-mode-map (("g" . jao-notmuch-refresh-hello) ("S" . consult-notmuch) @@ -741,6 +754,9 @@ tag_deleted "bigml.support$" 7d tag_deleted "jao.(drivel|lists|books|think)" 3d tag_deleted "feeds.+" 3d + + XDG_RUNTIME_DIR='/run/user/1000' \ + /usr/local/bin/emacsclient -e '(jao-notmuch-update-minibuffer)' > /dev/null #+end_src *** expire shell script #+begin_src bash :tangle ./bin/notmuch-expire.sh :tangle-mode (identity #o755) |