aboutsummaryrefslogtreecommitdiffhomepage
path: root/emacs
diff options
context:
space:
mode:
authorGravatar David Edmondson <dme@dme.org>2010-04-28 12:18:32 +0100
committerGravatar Carl Worth <cworth@cworth.org>2010-06-03 16:49:03 -0700
commit6039864ed5019d2ea367d4deceb0a10f664ba29d (patch)
tree0988cef0b0196cd107fa843271a7a4574013f80b /emacs
parent33765e5c2eb18de14fc542a6324c0806af8f59f7 (diff)
emacs: Usability improvements for `notmuch-hello'.
- If no saved searches exist or are displayed, don't signal an error, - If no saved searches exist or are displayed, leave the cursor in the search bar, - Minor layout improvements.
Diffstat (limited to 'emacs')
-rw-r--r--emacs/notmuch-hello.el36
1 files changed, 19 insertions, 17 deletions
diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el
index 6a1c56e5..13583877 100644
--- a/emacs/notmuch-hello.el
+++ b/emacs/notmuch-hello.el
@@ -273,7 +273,7 @@ diagonal."
(notmuch-hello-update))
:help-echo "Refresh"
(car (process-lines notmuch-command "count")))
- (widget-insert " messages (that's not much mail).\n\n"))
+ (widget-insert " messages (that's not much mail).\n"))
(let ((found-target-pos nil)
(final-target-pos nil))
@@ -292,7 +292,7 @@ diagonal."
(widest (max saved-widest alltags-widest)))
(when saved-alist
- (widget-insert "Saved searches: ")
+ (widget-insert "\nSaved searches: ")
(widget-create 'push-button
:notify (lambda (&rest ignore)
(customize-variable 'notmuch-saved-searches))
@@ -305,18 +305,16 @@ diagonal."
(setq final-target-pos found-target-pos))
(indent-rigidly start (point) notmuch-hello-indent)))
- (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.
- :size (max 8 (- (window-width) (* 2 notmuch-hello-indent)
- (length "Search: ")))
- :action (lambda (widget &rest ignore)
- (notmuch-hello-search (widget-value widget))))
- (widget-insert "\n")
- (indent-rigidly start (point) notmuch-hello-indent))
+ (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.
+ :size (max 8 (- (window-width) notmuch-hello-indent
+ (length "Search: ")))
+ :action (lambda (widget &rest ignore)
+ (notmuch-hello-search (widget-value widget))))
+ (widget-insert "\n")
(when notmuch-hello-recent-searches
(widget-insert "\nRecent searches: ")
@@ -408,9 +406,13 @@ diagonal."
(widget-setup)
- (goto-char final-target-pos)
- (if (not (widget-at))
- (widget-forward 1)))))
+ (when final-target-pos
+ (goto-char final-target-pos)
+ (unless (widget-at)
+ (widget-forward 1)))
+
+ (unless (widget-at)
+ (notmuch-hello-goto-search)))))
;;;###autoload
(defun notmuch-folder ()