debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-21 18:38:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add indentation to imenu in notmuch-show

Browse source
This commit is contained in:
Damien Cassou 2017-06-18 12:04:35 +02:00 committed by David Bremner
parent c9deb32933
commit 3840b6b495
1 changed files with 17 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
emacs/notmuch-show.el
View file

@ -247,6 +247,19 @@ every user interaction with notmuch."
:type 'function :type 'function
:group 'notmuch-show) :group 'notmuch-show)
(defcustom notmuch-show-imenu-indent nil
"Should Imenu display messages indented.
By default, Imenu (see Info node `(emacs) Imenu') in a
notmuch-show buffer displays all messages straight. This is
because the default Emacs frontend for Imenu makes it difficult
to select an Imenu entry with spaces in front. Other imenu
frontends such as counsel-imenu does not have this limitation.
In these cases, Imenu entries can be indented to reflect the
position of the message in the thread."
:type 'boolean
:group 'notmuch-show)
(defmacro with-current-notmuch-show-message (&rest body) (defmacro with-current-notmuch-show-message (&rest body)
"Evaluate body with current buffer set to the text of current message" "Evaluate body with current buffer set to the text of current message"
`(save-excursion `(save-excursion
@ -2484,7 +2497,10 @@ This function is used as a value for
`imenu-extract-index-name-function'. Point should be at the `imenu-extract-index-name-function'. Point should be at the
beginning of the line." beginning of the line."
(back-to-indentation) (back-to-indentation)
(buffer-substring-no-properties (point) (line-end-position))) (buffer-substring-no-properties (if notmuch-show-imenu-indent
(line-beginning-position)
(point))
(line-end-position)))
(provide 'notmuch-show) (provide 'notmuch-show)