mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat(tools/emacs): Implement 'notmuch-show-open-or-close-subthread'

Browse source 
Does what it says on the tin.
This commit is contained in:
Vincent Ambo 2020-04-01 22:28:23 +01:00
parent db74ffb4b1
commit 5aaeaa406a
1 changed files with 13 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
tools/emacs/config/functions.el
View file

@ -289,4 +289,17 @@
(-map #'car tag-counts) "Tag:" (-map #'car tag-counts) "Tag:"
(-map #'cdr tag-counts) "Count:"))) (-map #'cdr tag-counts) "Count:")))
(defun notmuch-show-open-or-close-subthread ()
"Open or close the subthread from (and including) the message
at point. Opens by default, closes if the prefix argument is
set."
(interactive)
(save-excursion
(let ((current-depth (map-elt (notmuch-show-get-message-properties) :depth 0)))
(loop do (notmuch-show-message-visible (notmuch-show-get-message-properties)
(not current-prefix-arg))
until (or (not (notmuch-show-goto-message-next))
(= (map-elt (notmuch-show-get-message-properties) :depth 0) current-depth)))))
(force-window-update))
(provide 'functions) (provide 'functions)