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

emacs: reorder notmuch.el a bit

Browse source
This commit is contained in:
Jonas Bernoulli 2021-01-10 15:01:05 +01:00 committed by David Bremner
parent c6ac1121d4
commit 25a8873c68
1 changed files with 20 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

41
emacs/notmuch.el
View file

@ -70,6 +70,8 @@
(require 'mm-view) (require 'mm-view)
(require 'message) (require 'message)
(require 'hl-line)
(require 'notmuch-lib) (require 'notmuch-lib)
(require 'notmuch-tag) (require 'notmuch-tag)
(require 'notmuch-show) (require 'notmuch-show)
@ -114,8 +116,12 @@ there will be called at other points of notmuch execution."
:type 'file :type 'file
:group 'notmuch) :group 'notmuch)
(defvar notmuch-query-history nil (defcustom notmuch-search-hook '(notmuch-hl-line-mode)
"Variable to store minibuffer history for notmuch queries.") "List of functions to call when notmuch displays the search results."
:type 'hook
:options '(notmuch-hl-line-mode)
:group 'notmuch-search
:group 'notmuch-hooks)
;;; Mime Utilities ;;; Mime Utilities
@ -155,24 +161,6 @@ there will be called at other points of notmuch execution."
(mm-save-part p)))) (mm-save-part p))))
mm-handle)) mm-handle))
;;; Integrations
(require 'hl-line)
(defun notmuch-hl-line-mode ()
(prog1 (hl-line-mode)
(when hl-line-overlay
(overlay-put hl-line-overlay 'priority 1))))
;;; Options
(defcustom notmuch-search-hook '(notmuch-hl-line-mode)
"List of functions to call when notmuch displays the search results."
:type 'hook
:options '(notmuch-hl-line-mode)
:group 'notmuch-search
:group 'notmuch-hooks)
;;; Keymap ;;; Keymap
(defvar notmuch-search-mode-map (defvar notmuch-search-mode-map
@ -207,6 +195,9 @@ there will be called at other points of notmuch execution."
;;; Internal Variables ;;; Internal Variables
(defvar notmuch-query-history nil
"Variable to store minibuffer history for notmuch queries.")
(defvar-local notmuch-search-query-string nil) (defvar-local notmuch-search-query-string nil)
(defvar-local notmuch-search-target-thread nil) (defvar-local notmuch-search-target-thread nil)
(defvar-local notmuch-search-target-line nil) (defvar-local notmuch-search-target-line nil)
@ -1150,7 +1141,15 @@ If no notmuch buffers exist, run `notmuch'."
(pop-to-buffer-same-window first)) (pop-to-buffer-same-window first))
(notmuch)))) (notmuch))))
;;; Imenu Support ;;; Integrations
;;;; Hl-line Support
(defun notmuch-hl-line-mode ()
(prog1 (hl-line-mode)
(when hl-line-overlay
(overlay-put hl-line-overlay 'priority 1))))
;;;; Imenu Support
(defun notmuch-search-imenu-prev-index-position-function () (defun notmuch-search-imenu-prev-index-position-function ()
"Move point to previous message in notmuch-search buffer. "Move point to previous message in notmuch-search buffer.