diff options
-rw-r--r-- | config.org | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/config.org b/config.org index d383067..5440fb8 100644 --- a/config.org +++ b/config.org | |||
@@ -1649,12 +1649,31 @@ I’m only enabling this at home for now, since it requires building stuff. | |||
1649 | (:from-or-to . 22) | 1649 | (:from-or-to . 22) |
1650 | (:subject))) | 1650 | (:subject))) |
1651 | 1651 | ||
1652 | (cuss mu4e-maildir-shortcuts | ||
1653 | `(("/INBOX" . ?i) | ||
1654 | (,mu4e-refile-folder . ?a) | ||
1655 | (,mu4e-sent-folder . ?s) | ||
1656 | (,mu4e-drafts-folder . ?d) | ||
1657 | (,mu4e-trash-folder . ?t))) | ||
1658 | |||
1652 | (defun acdw/setup-mu4e-view-mode () | 1659 | (defun acdw/setup-mu4e-view-mode () |
1653 | (visual-fill-column-mode +1)) | 1660 | (visual-fill-column-mode +1)) |
1654 | 1661 | ||
1655 | (add-hook 'mu4e-view-mode-hook #'acdw/setup-mu4e-view-mode)) | 1662 | (add-hook 'mu4e-view-mode-hook #'acdw/setup-mu4e-view-mode)) |
1656 | #+end_src | 1663 | #+end_src |
1657 | 1664 | ||
1665 | *** Add a keybinding | ||
1666 | |||
1667 | #+begin_src emacs-lisp | ||
1668 | (defun acdw/mu4e-or-warn () | ||
1669 | "If `mu4e' is around, run it, or tell the user it isn't." | ||
1670 | (interactive) | ||
1671 | (if (featurep 'mu4e) | ||
1672 | (mu4e) | ||
1673 | (warn "Mu4e isn't available :/."))) | ||
1674 | |||
1675 | (define-key acdw/map "m" #'acdw/mu4e-or-warn) | ||
1676 | #+end_src | ||
1658 | * Appendices | 1677 | * Appendices |
1659 | 1678 | ||
1660 | ** Emacs' files | 1679 | ** Emacs' files |