Commit 5be798be authored by Guilherme Semente's avatar Guilherme Semente 🌱

Fix semente-mu4e key binding

parent 6fa0561e
......@@ -105,7 +105,6 @@ You may find other key bindings inside use-package statements."
(bind-key "M-\\" 'cycle-spacing)
(bind-key "C-c x" 'save-buffers-kill-emacs)
(bind-key "C-c m" 'semente-switch-to-minibuffer)
(bind-key "C-c r" 'semente-mu4e)
(bind-keys :prefix-map semente-customize-prefix-map
:prefix "C-c e"
("f" . customize-face)
......@@ -979,12 +978,30 @@ You may find other key bindings inside use-package statements."
(use-package mu4e
;; :demand
:load-path "~/.local/share/emacs/site-lisp/mu4e"
:bind ("C-c r" . 'semente-mu4e)
:bind (:map mu4e-headers-mode-map ("q" . semente-mu4e))
:bind (:map mu4e-view-mode-map ("&" . semente-mu4e-view-in-external-browser))
:preface
(defalias 'mu 'semente-mu4e)
(defun semente-mu4e ()
"Start mu4e at 'semente-mu4e-inbox-expr'"
(interactive)
(if (and (equal semente-mu4e-inbox-expr mu4e~headers-last-query)
(eq major-mode 'mu4e-headers-mode))
(mu4e-quit)
(progn
(mu4e t)
(mu4e-headers-search semente-mu4e-inbox-expr))))
(defun semente-mu4e-view-in-external-browser ()
"Open HTML message in an external browser"
(interactive)
(let* ((msg mu4e~view-msg)
(url (concat "file://" (mu4e~write-body-to-html msg))))
(funcall shr-external-browser url)))
(defun semente-maybe-reply-encrypted ()
(let ((msg mu4e-compose-parent-message))
(when (and msg (member 'encrypted (mu4e-message-field msg :flags)))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment