c7254e7bdc
+ enable lexical-scope everywhere (lexical-binding = t): ~5-10% faster startup; ~5-20% general boost + reduce consing, function calls & garbage collection by preferring cl-loop & dolist over lambda closures (for mapc[ar], add-hook, and various cl-lib filter/map/reduce functions) -- where possible + prefer functions with dedicated opcodes, like assq (see byte-defop's in bytecomp.el for more) + prefer pcase & cond (faster) over cl-case + general refactor for code readability + ensure naming & style conventions are adhered to + appease byte-compiler by marking unused variables with underscore + defer minor mode activation to after-init, emacs-startup or window-setup hooks; a customization opportunity for users + ensures custom functionality won't interfere with startup.
20 lines
854 B
EmacsLisp
20 lines
854 B
EmacsLisp
;;; app/email/autoload/evil.el -*- lexical-binding: t; -*-
|
|
|
|
;;;###autoload
|
|
(defun +email/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 (and (region-active-p) evil-visual-beginning) (line-beginning-position)))
|
|
(end (or (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))))
|