diff options
| author |  Carl Worth <cworth@cworth.org> | 2010-04-26 22:37:11 -0700 |
|---|---|---|
| committer | Carl Worth <cworth@cworth.org> | 2010-04-26 22:37:11 -0700 |
| commit | f1f7e71e0347672e0658362c513e49c05b0f4161 (patch) | |
| tree | 7915b7d4905d6e25c88d5eccf3c5497242951002 /emacs/notmuch-lib.el | |
| parent | 4727eacb36245ccd2eabe22bfa408a099b574255 (diff) | |
emacs: Add a notmuch-saved-searches function.
We use this function to abstract away the common 3-step process for
looking for a value for the saved-searches variable:
1. Look at the notmuch-saved-searches variable itself
2. Look at the notmuch-folders vaiable
3. Use a default value
We were already using this logic (open-coded) in notmuch-hello, but
notmuch.el was accessing notmuch-folders directly for the clever name
selection of search buffers.
Diffstat (limited to 'emacs/notmuch-lib.el')
| -rw-r--r-- | emacs/notmuch-lib.el | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/emacs/notmuch-lib.el b/emacs/notmuch-lib.el index b64aeab9..39eaf79b 100644 --- a/emacs/notmuch-lib.el +++ b/emacs/notmuch-lib.el @@ -40,6 +40,24 @@ ;; +(defcustom notmuch-saved-searches nil + "A list of saved searches to display." + :type '(alist :key-type string :value-type string) + :group 'notmuch) + +(defun notmuch-saved-searches () + "Common function for querying the notmuch-saved-searches variable. + +We do this as a function to support the old name of the +variable (`notmuch-folders') as well as for the default value if +the user hasn't set this variable with the old or new value." + (if notmuch-saved-searches + notmuch-saved-searches + (if notmuch-folders + notmuch-folders + '(("inbox" . "tag:inbox") + ("unread" . "tag:unread"))))) + (defun notmuch-version () "Return a string with the notmuch version number." (let ((long-string |