debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2025-03-14 03:25:15 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: Fix 's' keybinding to go to search bar in notmuch-hello.

Browse source 
This command was previously written under the fragile assumption that
the search bar was always the third widget. That's no longer true with
the saved searches now appearing before the search bar, so we save the
position of the search bar and go directly to it now.
This commit is contained in:
Carl Worth 2010-04-26 18:52:49 -07:00
parent b5c71adc8f
commit f2f6da9af0
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
emacs/notmuch-hello.el
View file

@ -29,6 +29,9 @@
(declare-function notmuch-search "notmuch" (query &optional oldest-first target-thread target-line continuation))
(declare-function notmuch-folder-count "notmuch" (search))
(defvar notmuch-hello-search-bar-marker nil
"The position of the search bar within the notmuch-hello buffer.")
(defcustom notmuch-hello-recent-searches-max 10
"The number of recent searches to store and display."
:type 'integer
@ -179,10 +182,9 @@ diagonal."
found-target-pos))
(defun notmuch-hello-goto-search ()
"Put point inside the `search' widget, which we know is first."
"Put point inside the `search' widget."
(interactive)
(goto-char (point-min))
(widget-forward 3))
(goto-char notmuch-hello-search-bar-marker))
(defimage notmuch-hello-logo ((:type png :file "notmuch-logo.png")))
@ -278,6 +280,7 @@ diagonal."
(let ((start (point)))
(widget-insert "\nSearch: ")
(setq notmuch-hello-search-bar-marker (point-marker))
(widget-create 'editable-field
;; Leave some space at the start and end of the
;; search boxes.