jdormit/dotfiles
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Further mu4e tweaks

Browse Source
This commit is contained in:
Jeremy Dormitzer 2020-04-21 17:01:28 -04:00
parent e9990946e3
commit 71f8180dea
1 changed files with 107 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

138
emacs/init.org
View File

@ -3640,47 +3640,116 @@ Then configure it:
mu4e-attachment-dir (expand-file-name "~/Downloads") mu4e-attachment-dir (expand-file-name "~/Downloads")
mu4e-change-filenames-when-moving t mu4e-change-filenames-when-moving t
user-email-address "jeremy.dormitzer@gmail.com" user-email-address "jeremy.dormitzer@gmail.com"
mu4e-view-show-images t
mu4e-headers-skip-duplicates t
mail-user-agent 'mu4e-user-agent
;; Custom actions
mu4e-view-actions '(("capture message" . mu4e-action-capture-message)
("view as pdf" . mu4e-action-view-as-pdf)
("show this thread" . mu4e-action-show-thread)
("View in browser" . mu4e-action-view-in-browser))
;; Getting mail ;; Getting mail
mu4e-get-mail-command "mbsync -a" mu4e-get-mail-command "mbsync -a"
;; Sending mail ;; Sending mail
mu4e-send-mail-function 'message-send-mail-with-sendmail send-mail-function 'sendmail-send-it
sendmail-program (executable-find "msmtp") sendmail-program (executable-find "msmtp")
;; Let Gmail handle putting sent messages in the sent folder ;; Let Gmail handle putting sent messages in the sent folder
mu4e-sent-messages-behavior 'delete mu4e-sent-messages-behavior 'delete
;; Move to trash folder instead of adding trash flag for Gmail mailboxes
mu4e-move-to-trash-patterns '("jeremy-dormitzer-gmail-com" "jeremydormitzer-lola-com")
;; HTML email rendering
shr-use-colors nil
;; Make sure mu4e knows about my different accounts ;; Make sure mu4e knows about my different accounts
mu4e-context-policy 'ask mu4e-context-policy 'ask
mu4e-compose-context-policy 'ask mu4e-compose-context-policy 'ask
mu4e-contexts mu4e-contexts
`(,(make-mu4e-context `(,(make-mu4e-context
:name "Personal Gmail" :name "Personal Gmail"
:match-func (lambda (msg) :match-func (lambda (msg)
(when msg (when msg
(string-match-p (string-match-p
"jeremy-dormitzer-gmail-com" "jeremy-dormitzer-gmail-com"
(mu4e-message-field msg :path)))) (mu4e-message-field msg :path))))
:vars '((user-email-address . "jeremy.dormitzer@gmail.com") :vars '((user-email-address . "jeremy.dormitzer@gmail.com")
(mu4e-sent-folder . "/jeremy-dormitzer-gmail-com/Sent") (mu4e-sent-folder . "/jeremy-dormitzer-gmail-com/Sent")
(mu4e-drafts-folder . "/jeremy-dormitzer-gmail-com/Drafts") (mu4e-drafts-folder . "/jeremy-dormitzer-gmail-com/Drafts")
(mu4e-refile-folder . "/jeremy-dormitzer-gmail-com/Archive") (mu4e-refile-folder . "/jeremy-dormitzer-gmail-com/Archive")
(mu4e-trash-folder . "/jeremy-dormitzer-gmail-com/Trash") (mu4e-trash-folder . "/jeremy-dormitzer-gmail-com/Trash")
(mu4e-get-mail-command . "mbsync jeremy-dormitzer-gmail-com") (mu4e-get-mail-command . "mbsync jeremy-dormitzer-gmail-com")
(message-sendmail-extra-arguments (message-sendmail-extra-arguments
. ("-a" "jeremy-dormitzer-gmail-com")))) . ("-a" "jeremy-dormitzer-gmail-com"))))
,(make-mu4e-context ,(make-mu4e-context
:name "Lola Gmail" :name "Lola Gmail"
:match-func (lambda (msg) :match-func (lambda (msg)
(when msg (when msg
(string-match-p (string-match-p
"jeremydormitzer-lola-com" "jeremydormitzer-lola-com"
(mu4e-message-field msg :path)))) (mu4e-message-field msg :path))))
:vars '((user-email-address . "jeremydormitzer@lola.com") :vars '((user-email-address . "jeremydormitzer@lola.com")
(mu4e-sent-folder . "/jeremydormitzer-lola-com/Sent") (mu4e-sent-folder . "/jeremydormitzer-lola-com/Sent")
(mu4e-drafts-folder . "/jeremydormitzer-lola-com/Drafts") (mu4e-drafts-folder . "/jeremydormitzer-lola-com/Drafts")
(mu4e-refile-folder . "/jeremydormitzer-lola-com/Archive") (mu4e-refile-folder . "/jeremydormitzer-lola-com/Archive")
(mu4e-trash-folder . "/jeremydormitzer-lola-com/Trash") (mu4e-trash-folder . "/jeremydormitzer-lola-com/Trash")
(mu4e-get-mail-command . "mbsync jeremydormitzer-lola-com") (mu4e-get-mail-command . "mbsync jeremydormitzer-lola-com")
(message-sendmail-extra-arguments (message-sendmail-extra-arguments
. ("-a" "jeremydormitzer-lola-com"))))))) . ("-a" "jeremydormitzer-lola-com"))))))
;; Custom mark function to mark messages matching the current message
(defun mu4e-mark-matching-pred (msg from)
(mu4e-message-contact-field-matches msg :from from))
(defun mu4e-mark-matching-input ()
(let* ((msg (mu4e-message-at-point t)))
(if (not msg)
(error "No message at point")
(cdr (mu4e-message-field msg :from)))))
(setq mu4e-headers-custom-markers
'(("Older than"
(lambda
(msg date)
(time-less-p
(mu4e-msg-field msg :date)
date))
(lambda nil
(mu4e-get-time-date "Match messages before: ")))
("Newer than"
(lambda
(msg date)
(time-less-p date
(mu4e-msg-field msg :date)))
(lambda nil
(mu4e-get-time-date "Match messages after: ")))
("Bigger than"
(lambda
(msg bytes)
(>
(mu4e-msg-field msg :size)
(* 1024 bytes)))
(lambda nil
(read-number "Match messages bigger than (Kbytes): ")))
("Matching current message from: field"
(lambda (msg from)
(mu4e-message-contact-field-matches msg :from from))
(lambda ()
(let* ((msg (mu4e-message-at-point t)))
(if (not msg)
(error "No message at point")
(cdar (mu4e-message-field msg :from))))))))
;; Ugly hack to make sure that shr faces end up at the beginning of the face list
(defun shr-add-font (start end type)
(save-excursion
(goto-char start)
(while (< (point) end)
(when (bolp)
(skip-chars-forward " "))
;; Remove the APPEND argument to add-face-text-property
;; so the face ends up at the head of the face list
(add-face-text-property (point) (min (line-end-position) end) type)
(if (< (line-end-position) end)
(forward-line 1)
(goto-char end))))))
#+end_src #+end_src
Global keybindings: Global keybindings:
@ -3688,6 +3757,13 @@ Global keybindings:
(leader-def-key "am" #'mu4e) (leader-def-key "am" #'mu4e)
#+end_src #+end_src
Keybindings within mu4e:
#+begin_src emacs-lisp
(with-eval-after-load 'mu4e
(general-def '(normal motion insert emacs) mu4e-headers-mode-map "t" #'mu4e-headers-mark-thread)
(general-def '(normal motion insert emacs) mu4e-view-mode-map "t" #'mu4e-view-mark-thread))
#+end_src
* w3m * w3m
Browsing the web from Emacs. Relies on having [[http://w3m.sourceforge.net/][w3m]] installed. Browsing the web from Emacs. Relies on having [[http://w3m.sourceforge.net/][w3m]] installed.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp