diff options
| -rw-r--r-- | custom/jao-custom-notmuch.el | 1 | ||||
| -rw-r--r-- | init.el | 5 | ||||
| -rw-r--r-- | lib/net/jao-notmuch.el | 22 |
3 files changed, 14 insertions, 14 deletions
diff --git a/custom/jao-custom-notmuch.el b/custom/jao-custom-notmuch.el index 9ca937c..86555d1 100644 --- a/custom/jao-custom-notmuch.el +++ b/custom/jao-custom-notmuch.el @@ -146,7 +146,6 @@ (jao-notmuch-def-searches dynamic `(,(jao-notmuch--q "new" nil "nn" '("tag:new" "not tag:draft")) - ,(jao-notmuch--q "unread" nil "nu" '("tag:unread")) ,(jao-notmuch--q "jao" "drafts" "d" '("tag:draft")) ,(jao-notmuch--q "bml" "today" "tb" '("tag:bigml" "date:24h..")) ,(jao-notmuch--q "jao" "today" "tj" @@ -607,6 +607,9 @@ (use-package xmobar :init (setq xmobar-tab-bar t xmobar-tab-split "*" + xmobar-tab-bar-format '(xmobar-left-string + tab-bar-format-align-right + xmobar-right-string) xmobar-command "xmobar-emacs")) ;;; Minibuffer @@ -1015,7 +1018,7 @@ :init (setq consult-recoll-open-fns '(("application/pdf" . jao-recoll-open-pdf) ("text/html" . jao-recoll-open-html)) - consult-recoll-search-flags nil + consult-recoll-search-flags 'query consult-recoll-inline-snippets t consult-recoll-format-candidate #'jao-recoll-format) :config diff --git a/lib/net/jao-notmuch.el b/lib/net/jao-notmuch.el index 5c0ba25..fa4fee5 100644 --- a/lib/net/jao-notmuch.el +++ b/lib/net/jao-notmuch.el @@ -1,4 +1,4 @@ -;;; jao-notmuch.el --- Extensions for notmuch -*- lexical-binding: t; -*- +;; jao-notmuch.el --- Extensions for notmuch -*- lexical-binding: t; -*- ;; Copyright (C) 2021, 2022 jao @@ -18,11 +18,9 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. -;;; Commentary: +;; Extensions to vanilla notmuch, mostly for tree view -;; Extensions to vanilla notmuch, mostly for tree view - -;;; Code: +;;; require: (require 'outline) (require 'mm-decode) @@ -33,7 +31,7 @@ (require 'notmuch-show) -;;; Targetting the displayed message from the tree view +;;; targetting the displayed message from the tree view (defvar-local jao-notmuch--tree-buffer nil) (declare eww--url-at-point "eww") @@ -125,7 +123,7 @@ (message "No URLs in this message"))) -;;; Navigating URLs +;;; navigating URLs (require 'ffap) @@ -152,7 +150,7 @@ (browse-url url))) -;;; Toggling mime parts and images +;;; toggling mime parts and images (defun jao-notmuch--toggle-mime () (save-excursion @@ -214,7 +212,7 @@ (with-current-buffer notmuch-tree-message-buffer (jao-notmuch--view-html)))))) -;;; Keeping track of unread messages in current tree view +;;; keeping track of unread messages in current tree view (defun jao-notmuch--looking-at-new-p (&optional p) (when-let (ts (if p (plist-get p :tags) (notmuch-show-get-tags))) @@ -272,7 +270,7 @@ (concat " " subject))) -;;; Outline mode for tree view +;;; outline mode for tree view (defun jao-notmuch-tree--msg-prefix (msg) (insert (propertize (if (plist-get msg :first) "> " " ") 'display " "))) @@ -369,7 +367,7 @@ (advice-add 'notmuch-tree-process-sentinel :after #'jao-notmuch--tree-sentinel)) -;;; Tagging +;;; tagging (defsubst jao-notmuch--has-tag (tag) (member tag (notmuch-tree-get-tags))) @@ -439,7 +437,7 @@ (advice-add 'notmuch-mua-new-reply :around #'jao-notmuch-mua-new-reply) -;;; Results formatters +;;; results formatters (defun jao-notmuch-format-tags (fmt msg) (let ((ts (thread-last (notmuch-tree-format-field "tags" "%s" msg) |