Add email/{wanderlust,mu4e,notmuch} modules

Removed app/{email,notmuch}
This commit is contained in:
Henrik Lissner 2019-05-05 14:11:59 -04:00
parent 45266213a5
commit 84c5da844b
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
16 changed files with 178 additions and 89 deletions

View file

@ -0,0 +1,21 @@
;; email/mu4e/autoload/evil.el -*- lexical-binding: t; -*-
;;;###if (featurep! :editor evil)
;;;###autoload
(defun +mu4e/mark (&optional beg end)
"Mark all messages within the current selection in mu4e's header view. Uses
`this-command-keys' to see what flag you mean."
(interactive)
(let* ((beg (or beg (and (region-active-p) evil-visual-beginning) (line-beginning-position)))
(end (or end (and (region-active-p) evil-visual-end) (line-end-position)))
(key (this-command-keys))
(command
(car (cl-find-if (lambda (mark) (equal (car (plist-get (cdr mark) :char)) key))
mu4e-marks))))
(unless command
(error "Not a valid mark command: %s" key))
(when (bound-and-true-p evil-mode)
(evil-normal-state))
(goto-char beg)
(dotimes (_ (count-lines beg end))
(mu4e-headers-mark-and-next command))))