From: Carl Worth <cworth@cworth.org>
Date: Tue, 27 Apr 2010 01:52:49 +0000 (-0700)
Subject: emacs: Fix 's' keybinding to go to search bar in notmuch-hello.
X-Git-Tag: 0.3~28
X-Git-Url: https://git.cworth.org/git?p=obsolete%2Fnotmuch-old;a=commitdiff_plain;h=f2f6da9af09541d5e15d39d165d5185dcdb47d5b

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

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.
---

diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el
index 2849fc6f..61e85bb6 100644
--- a/emacs/notmuch-hello.el
+++ b/emacs/notmuch-hello.el
@@ -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.