From bbe892c1810cc6f9d66355d5cabf89889c6668b2 Mon Sep 17 00:00:00 2001 From: jao Date: Sat, 2 Oct 2021 01:55:51 +0100 Subject: notmuch: my old M-g command --- notmuch.org | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) (limited to 'notmuch.org') diff --git a/notmuch.org b/notmuch.org index a07443a..5e838e4 100644 --- a/notmuch.org +++ b/notmuch.org @@ -72,10 +72,11 @@ ,(jao-notmuch--qn "emacs" "diffs" "ec" '("tag:emacs-diffs")) ,(jao-notmuch--qn "feeds" "lobsters" "fl" '("tag:lobsters")) ,(jao-notmuch--qn "feeds" "notmuch" "fn" '("tag:notmuch")) + ,(jao-notmuch--qn "feeds" "haskell" "fh" '("tag:haskell")) ,(jao-notmuch--qn "feeds" "xmobar" "fx" '("tag:xmobar")) ,(jao-notmuch--qn "feeds" "prog" "fp" '("tag:prog" - "not tag:\"/(lobsters|xmobar|notmuch)/\"")) + "not tag:\"/(lobsters|xmobar|notmuch|haskell)/\"")) ,@(jao-notmuch--mboxes-search "feeds" "emacs" "prog") ,(jao-notmuch--q "bml" "today" "tb" '("tag:bigml" "date:24h..") t) ,(jao-notmuch--q "jao" "today" "tj" @@ -344,6 +345,12 @@ (interactive) (jao-notmuch-tree--forward t)) + (defun jao-notmuch-browse-url (ext) + (interactive "P") + (when-let (url (car (last (jao-notmuch-message-urls)))) + (funcall (if ext browse-url-secondary-browser-function #'browse-url) + url))) + :bind (:map notmuch-tree-mode-map (("b" . jao-notmuch-browse-urls) ("C" . jao-notmuch-echo-count) @@ -372,7 +379,8 @@ ("." . jao-notmuch-toggle-mime-parts) ("=" . jao-notmuch-tree-toggle-message) ("RET" . jao-notmuch-tree-show-or-scroll) - ("SPC" . jao-notmuch-tree-scroll-or-next)))) + ("SPC" . jao-notmuch-tree-scroll-or-next) + ("M-g" . jao-notmuch-browse-url)))) #+end_src * consult #+begin_src emacs-lisp -- cgit v1.2.3