alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

mu4e: cosmetics (mu4e-main)

Browse Source
This commit is contained in:
djcb
2017-05-06 12:57:09 +03:00
parent 6bde2618ab
commit bbdee4e765
1 changed files with 42 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
mu4e/mu4e-main.el
View File

@ -104,7 +104,8 @@ clicked."
(define-key map (kbd "RET") func) (define-key map (kbd "RET") func)
(put-text-property 0 (length newstr) 'keymap map newstr) (put-text-property 0 (length newstr) 'keymap map newstr)
(put-text-property (string-match "\\[.+$" newstr) (put-text-property (string-match "\\[.+$" newstr)
(- (length newstr) 1) 'mouse-face 'highlight newstr) newstr)) (- (length newstr) 1) 'mouse-face 'highlight newstr)
newstr))
;; NEW ;; NEW
;; This is the old `mu4e~main-view' function but without ;; This is the old `mu4e~main-view' function but without
@ -130,9 +131,12 @@ clicked."
"\n\n" "\n\n"
(propertize " Basics\n\n" 'face 'mu4e-title-face) (propertize " Basics\n\n" 'face 'mu4e-title-face)
(mu4e~main-action-str "\t* [j]ump to some maildir\n" 'mu4e-jump-to-maildir) (mu4e~main-action-str
(mu4e~main-action-str "\t* enter a [s]earch query\n" 'mu4e-search) "\t* [j]ump to some maildir\n" 'mu4e-jump-to-maildir)
(mu4e~main-action-str "\t* [C]ompose a new message\n" 'mu4e-compose-new) (mu4e~main-action-str
"\t* enter a [s]earch query\n" 'mu4e-search)
(mu4e~main-action-str
"\t* [C]ompose a new message\n" 'mu4e-compose-new)
"\n" "\n"
(propertize " Bookmarks\n\n" 'face 'mu4e-title-face) (propertize " Bookmarks\n\n" 'face 'mu4e-title-face)
;; TODO: it's a bit uncool to hard-code the "b" shortcut... ;; TODO: it's a bit uncool to hard-code the "b" shortcut...