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

notmuch: Add search mode hook

Browse source 
This patch add notmuch-search-hook that gets run when we
after displaying search results

Signed-off-by: Aneesh Kumar K.V <aneesh.kumar@linux.vnet.ibm.com>
Cc:Keith Packard <keithp@keithp.com>
This commit is contained in:
Aneesh Kumar K.V 2009-11-19 11:40:54 +05:30 committed by Carl Worth
parent aa8c2224ee
commit 3f52f59c1e
1 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
notmuch.el
View file

@ -654,6 +654,12 @@ view, (remove the \"inbox\" tag from each), with
:options '(goto-address) :options '(goto-address)
:group 'notmuch) :group 'notmuch)
(defcustom notmuch-search-hook nil
"List of functions to call when notmuch displays the search results."
:type 'hook
:options '(hl-line-mode)
:group 'notmuch)
; Make show mode a bit prettier, highlighting URLs and using word wrap ; Make show mode a bit prettier, highlighting URLs and using word wrap
(defun notmuch-show-pretty-hook () (defun notmuch-show-pretty-hook ()
@ -661,6 +667,9 @@ view, (remove the \"inbox\" tag from each), with
(visual-line-mode)) (visual-line-mode))
(add-hook 'notmuch-show-hook 'notmuch-show-pretty-hook) (add-hook 'notmuch-show-hook 'notmuch-show-pretty-hook)
(add-hook 'notmuch-search-hook
(lambda()
(hl-line-mode 1) ))
(defun notmuch-show (thread-id &optional parent-buffer) (defun notmuch-show (thread-id &optional parent-buffer)
"Run \"notmuch show\" with the given thread ID and display results. "Run \"notmuch show\" with the given thread ID and display results.
@ -911,7 +920,8 @@ This function advances point to the next line when finished."
(call-process "notmuch" nil t nil "search" "--sort=oldest-first" query) (call-process "notmuch" nil t nil "search" "--sort=oldest-first" query)
(call-process "notmuch" nil t nil "search" "--sort=newest-first" query)) (call-process "notmuch" nil t nil "search" "--sort=newest-first" query))
(notmuch-search-markup-thread-ids) (notmuch-search-markup-thread-ids)
)))) ))
(run-hooks 'notmuch-search-hook)))
(defun notmuch-search-refresh-view () (defun notmuch-search-refresh-view ()
"Refresh the current view. "Refresh the current view.