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: Move saved searches before search bar in notmuch-hello.

Browse source 
Once users start using saved searches regularly, it's expected that
these will become the primary access points to mail. So give them a
priority position in the buffer.
This commit is contained in:
Carl Worth 2010-04-26 18:22:24 -07:00
parent 1c17dda5d5
commit b5c71adc8f
1 changed files with 56 additions and 56 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

112
emacs/notmuch-hello.el
View file

@ -248,61 +248,6 @@ diagonal."
(car (process-lines notmuch-command "count")))
(widget-insert " messages (that's not much mail).\n\n"))
(let ((start (point)))
(widget-insert "Search: ")
(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))
(when notmuch-hello-recent-searches
(widget-insert "\nRecent searches: ")
(widget-create 'push-button
:notify (lambda (&rest ignore)
(setq notmuch-hello-recent-searches nil)
(notmuch-hello-update))
"clear")
(widget-insert "\n\n")
(let ((start (point))
(nth 0))
(mapc '(lambda (search)
(let ((widget-symbol (intern (format "notmuch-hello-search-%d" nth))))
(set widget-symbol
(widget-create 'editable-field
;; Don't let the search boxes be
;; less than 8 characters wide.
:size (max 8
(- (window-width)
;; Leave some space
;; at the start and
;; end of the
;; boxes.
(* 2 notmuch-hello-indent)
;; 1 for the space
;; before the
;; `[save]' button. 6
;; for the `[save]'
;; button.
1 6))
:action (lambda (widget &rest ignore)
(notmuch-hello-search (widget-value widget)))
search))
(widget-insert " ")
(widget-create 'push-button
:notify (lambda (widget &rest ignore)
(notmuch-hello-add-saved-search widget))
:notmuch-saved-search-widget widget-symbol
"save"))
(widget-insert "\n")
(setq nth (1+ nth)))
notmuch-hello-recent-searches)
(indent-rigidly start (point) notmuch-hello-indent)))
(let ((found-target-pos nil)
(final-target-pos nil))
(let* ((saved-alist
@ -319,7 +264,7 @@ diagonal."
(widest (max saved-widest alltags-widest)))
(when saved-alist
(widget-insert "\nSaved searches: ")
(widget-insert "Saved searches: ")
(widget-create 'push-button
:notify (lambda (&rest ignore)
(customize-variable 'notmuch-hello-saved-searches))
@ -331,6 +276,61 @@ diagonal."
(setq final-target-pos found-target-pos))
(indent-rigidly start (point) notmuch-hello-indent)))
(let ((start (point)))
(widget-insert "\nSearch: ")
(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))
(when notmuch-hello-recent-searches
(widget-insert "\nRecent searches: ")
(widget-create 'push-button
:notify (lambda (&rest ignore)
(setq notmuch-hello-recent-searches nil)
(notmuch-hello-update))
"clear")
(widget-insert "\n\n")
(let ((start (point))
(nth 0))
(mapc '(lambda (search)
(let ((widget-symbol (intern (format "notmuch-hello-search-%d" nth))))
(set widget-symbol
(widget-create 'editable-field
;; Don't let the search boxes be
;; less than 8 characters wide.
:size (max 8
(- (window-width)
;; Leave some space
;; at the start and
;; end of the
;; boxes.
(* 2 notmuch-hello-indent)
;; 1 for the space
;; before the
;; `[save]' button. 6
;; for the `[save]'
;; button.
1 6))
:action (lambda (widget &rest ignore)
(notmuch-hello-search (widget-value widget)))
search))
(widget-insert " ")
(widget-create 'push-button
:notify (lambda (widget &rest ignore)
(notmuch-hello-add-saved-search widget))
:notmuch-saved-search-widget widget-symbol
"save"))
(widget-insert "\n")
(setq nth (1+ nth)))
notmuch-hello-recent-searches)
(indent-rigidly start (point) notmuch-hello-indent)))
(when alltags-alist
(widget-insert "\nAll tags:\n\n")
(let ((start (point)))