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

Merge branch 'master' of github.com:djcb/mu

Browse Source
This commit is contained in:
djcb
2012-11-11 17:21:35 +02:00
parent 6a1a03b06c ba13fa777b
commit 1c1f974807
3 changed files with 17 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
mu4e/mu4e-headers.el
View File

@ -423,15 +423,14 @@ after the end of the search results."
(defmacro mu4e~headers-defun-mark-for (mark) (defmacro mu4e~headers-defun-mark-for (mark)
"Define a function mu4e~headers-mark-MARK." "Define a function mu4e~headers-mark-MARK."
(let ((funcname (intern (concat "mu4e-headers-mark-for-" (symbol-name mark)))) (let ((funcname (intern (format "mu4e-headers-mark-for-%s" mark)))
(docstring (concat "Mark header at point with " (symbol-name mark) "."))) (docstring (format "Mark header at point with %s." mark)))
`(defun ,funcname () ,docstring `(progn
(interactive) (defun ,funcname () ,docstring
(mu4e-headers-mark-and-next (quote ,mark))))) (interactive)
(mu4e-headers-mark-and-next ',mark))
(put ',funcname 'definition-name ',mark))))
;; define our mark functions; there must be some way to do this in a loop but
;; since `mu4e~headers-defun-mark-func' is a macro, the argument must be a
;; literal value.
(mu4e~headers-defun-mark-for refile) (mu4e~headers-defun-mark-for refile)
(mu4e~headers-defun-mark-for something) (mu4e~headers-defun-mark-for something)
(mu4e~headers-defun-mark-for delete) (mu4e~headers-defun-mark-for delete)
@ -639,7 +638,7 @@ after the end of the search results."
(if width (if width
(truncate-string-to-width name width 0 ?\s t) (truncate-string-to-width name width 0 ?\s t)
name) name)
'face (if arrow 'bold 'fixed-pitch) 'face (when arrow 'bold)
'help-echo help 'help-echo help
'mouse-face (when sortable 'highlight) 'mouse-face (when sortable 'highlight)
'keymap (when sortable map) 'keymap (when sortable map)

2
mu4e/mu4e-vars.el
View File

@ -352,7 +352,7 @@ I.e. a message with the draft flag set."
:group 'mu4e-faces) :group 'mu4e-faces)
(defface mu4e-header-highlight-face (defface mu4e-header-highlight-face
'((t :inherit default :weight bold :underline t)) '((t :inherit region :weight bold :underline t))
"Face for the header at point." "Face for the header at point."
:group 'mu4e-faces) :group 'mu4e-faces)

20
mu4e/mu4e-view.el
View File

@ -1105,18 +1105,14 @@ list."
(defmacro mu4e~view-defun-mark-for (mark) (defmacro mu4e~view-defun-mark-for (mark)
"Define a function mu4e-view-mark-for-MARK." "Define a function mu4e-view-mark-for-MARK."
(let ((funcname (intern (concat "mu4e-view-mark-for-" (symbol-name mark)))) (let ((funcname (intern (format "mu4e-view-mark-for-%s" mark)))
(docstring (format "Mark the current message for %s." (docstring (format "Mark the current message for %s." mark)))
(symbol-name mark)))) `(progn
`(defun ,funcname () ,docstring (defun ,funcname () ,docstring
(interactive) (interactive)
(mu4e~view-in-headers-context (mu4e~view-in-headers-context
(mu4e-headers-mark-and-next (quote ,mark)))))) (mu4e-headers-mark-and-next ',mark)))
(put ',funcname 'definition-name ',mark))))
;; would be cool to do something like the following, but somehow, I can't get
;; the quoting right...
;; (dolist (mark '(move trash refile delete flag unflag unmark deferred))
;; (mu4e~view-defun-mark-for mark))
(mu4e~view-defun-mark-for move) (mu4e~view-defun-mark-for move)
(mu4e~view-defun-mark-for trash) (mu4e~view-defun-mark-for trash)