Display the shortcut jump key next to the saved search name in notmuch hello, if one is defined for the saved search. --- This is probably something with infinite bikeshedding potential. Therefore I just quickly hacked something together as a proof of concept. This displays the jump keys like this: 154 Inbox [j i] Maybe the space between "j" and the key is unnecessary? Maybe the "j" itself is unnecessary? Maybe the brackets are unnecessary? Maybe it could use some color? Does displaying these need to be customizable? Etc? --- emacs/notmuch-hello.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el index 738baad23b20..3c5440331669 100644 --- a/emacs/notmuch-hello.el +++ b/emacs/notmuch-hello.el @@ -578,7 +578,9 @@ with `notmuch-hello-query-counts'." (oldest-first t) (otherwise notmuch-search-oldest-first))) (search-type (eq (plist-get elem :search-type) 'tree)) - (msg-count (plist-get elem :count))) + (msg-count (plist-get elem :count)) + (key (plist-get elem :key)) + (shortcut (if key (format " [j %s]" key) nil))) (widget-insert (format "%8s " (notmuch-hello-nice-number msg-count))) (widget-create 'push-button @@ -587,8 +589,10 @@ with `notmuch-hello-query-counts'." :notmuch-search-oldest-first oldest-first :notmuch-search-type search-type name) + (when shortcut + (widget-insert shortcut)) (setq column-indent - (1+ (max 0 (- column-width (length name))))))) + (1+ (max 0 (- column-width (length name) (length shortcut))))))) (setq count (1+ count)) (when (eq (% count tags-per-line) 0) (setq column-indent 0) -- 2.1.4