mirror of https://github.com/djcb/mu.git
mu4e-bookmarks: whitespace fixes
This commit is contained in:
parent
3212a79846
commit
bbea9e5374
|
@ -37,18 +37,18 @@
|
||||||
|
|
||||||
(defcustom mu4e-bookmarks
|
(defcustom mu4e-bookmarks
|
||||||
'(( :name "Unread messages"
|
'(( :name "Unread messages"
|
||||||
:query "flag:unread AND NOT flag:trashed"
|
:query "flag:unread AND NOT flag:trashed"
|
||||||
:key ?u)
|
:key ?u)
|
||||||
( :name "Today's messages"
|
( :name "Today's messages"
|
||||||
:query "date:today..now"
|
:query "date:today..now"
|
||||||
:key ?t)
|
:key ?t)
|
||||||
( :name "Last 7 days"
|
( :name "Last 7 days"
|
||||||
:query "date:7d..now"
|
:query "date:7d..now"
|
||||||
:hide-unread t
|
:hide-unread t
|
||||||
:key ?w)
|
:key ?w)
|
||||||
( :name "Messages with images"
|
( :name "Messages with images"
|
||||||
:query "mime:image/*"
|
:query "mime:image/*"
|
||||||
:key ?p))
|
:key ?p))
|
||||||
"List of pre-defined queries that are shown on the main screen.
|
"List of pre-defined queries that are shown on the main screen.
|
||||||
|
|
||||||
Each of the list elements is a plist with at least:
|
Each of the list elements is a plist with at least:
|
||||||
|
@ -123,8 +123,8 @@ with KEY."
|
||||||
(= (plist-get bm :key) key))
|
(= (plist-get bm :key) key))
|
||||||
(mu4e-bookmarks)))
|
(mu4e-bookmarks)))
|
||||||
(cl-pushnew `(:name ,name
|
(cl-pushnew `(:name ,name
|
||||||
:query ,query
|
:query ,query
|
||||||
:key ,key)
|
:key ,key)
|
||||||
mu4e-bookmarks :test 'equal))
|
mu4e-bookmarks :test 'equal))
|
||||||
|
|
||||||
(defun mu4e-bookmarks ()
|
(defun mu4e-bookmarks ()
|
||||||
|
@ -132,15 +132,15 @@ with KEY."
|
||||||
Convert from the old format if needed."
|
Convert from the old format if needed."
|
||||||
(seq-map (lambda (item)
|
(seq-map (lambda (item)
|
||||||
(if (and (listp item) (= (length item) 3))
|
(if (and (listp item) (= (length item) 3))
|
||||||
`(:name ,(nth 1 item) :query ,(nth 0 item)
|
`(:name ,(nth 1 item) :query ,(nth 0 item)
|
||||||
:key ,(nth 2 item))
|
:key ,(nth 2 item))
|
||||||
item))
|
item))
|
||||||
mu4e-bookmarks))
|
mu4e-bookmarks))
|
||||||
|
|
||||||
(defun mu4e-bookmark-favorite ()
|
(defun mu4e-bookmark-favorite ()
|
||||||
"Find the favorite bookmark."
|
"Find the favorite bookmark."
|
||||||
;; note, use query-items, which will have picked a favorite
|
;; note, use query-items, which will have picked a favorite
|
||||||
;; even if user did not provide one explictly
|
;; even if user did not provide one explictly
|
||||||
(seq-find
|
(seq-find
|
||||||
(lambda (item)
|
(lambda (item)
|
||||||
(plist-get item :favorite))
|
(plist-get item :favorite))
|
||||||
|
@ -193,7 +193,7 @@ one, creates a propertized string for display in the modeline."
|
||||||
"changes since baseline: %+d\n")
|
"changes since baseline: %+d\n")
|
||||||
(plist-get fav :name)
|
(plist-get fav :name)
|
||||||
(mu4e--bookmark-query fav)
|
(mu4e--bookmark-query fav)
|
||||||
count unread delta-unread)
|
count unread delta-unread)
|
||||||
'mouse-face 'mode-line-highlight
|
'mouse-face 'mode-line-highlight
|
||||||
'keymap '(mode-line keymap
|
'keymap '(mode-line keymap
|
||||||
(mouse-1 . mu4e-jump-to-favorite)
|
(mouse-1 . mu4e-jump-to-favorite)
|
||||||
|
|
Loading…
Reference in New Issue