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

Formatting

Browse Source
This commit is contained in:
Jeremy Dormitzer 2020-04-27 16:36:49 -04:00
parent 9be7389a9e
commit 5d011b0586
1 changed files with 75 additions and 76 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

151
emacs/init.org
View File

@ -3649,24 +3649,23 @@ Then configure it:
mail-user-agent 'mu4e-user-agent mail-user-agent 'mu4e-user-agent
;; Custom actions ;; Custom actions
mu4e-view-actions '(("capture message" . mu4e-action-capture-message) mu4e-view-actions '(("capture message" . mu4e-action-capture-message)
("view as pdf" . mu4e-action-view-as-pdf) ("view as pdf" . mu4e-action-view-as-pdf)
("show this thread" . mu4e-action-show-thread) ("show this thread" . mu4e-action-show-thread)
("View in browser" . mu4e-action-view-in-browser)) ("View in browser" . mu4e-action-view-in-browser))
;; Bookmarked searches ;; Bookmarked searches
mu4e-bookmarks '((:name "Inbox" mu4e-bookmarks '((:name "Inbox"
:query (concat "maildir:/jeremy-dormitzer-gmail-com/Inbox" :query (concat "maildir:/jeremy-dormitzer-gmail-com/Inbox"
" OR maildir:/jeremydormitzer-lola-com/Inbox") " OR maildir:/jeremydormitzer-lola-com/Inbox")
:key ?i) :key ?i)
(:name "Unread messages" (:name "Unread messages"
:query "flag:unread AND NOT flag:trashed" :query "flag:unread AND NOT flag:trashed"
:key ?u) :key ?u)
(:name "Today's messages" (:name "Today's messages"
:query "date:today..now" :query "date:today..now"
:key ?t) :key ?t)
(:name "Last 7 days" (:name "Last 7 days"
:query "date:7d..now" :query "date:7d..now"
:show-unread t :key ?p))
:key ?p))
;; Getting mail ;; Getting mail
mu4e-get-mail-command "mbsync -a" mu4e-get-mail-command "mbsync -a"
;; Sending mail ;; Sending mail
@ -3684,33 +3683,33 @@ Then configure it:
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-mail-address . "jeremy.dormitzer@gmail.com") :vars '((user-mail-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")
(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-mail-address . "jeremydormitzer@lola.com") :vars '((user-mail-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")
(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 ;; Custom mark function to mark messages matching the current message
(defun mu4e-mark-matching-pred (msg from) (defun mu4e-mark-matching-pred (msg from)
@ -3718,42 +3717,42 @@ Then configure it:
(defun mu4e-mark-matching-input () (defun mu4e-mark-matching-input ()
(let* ((msg (mu4e-message-at-point t))) (let* ((msg (mu4e-message-at-point t)))
(if (not msg) (if (not msg)
(error "No message at point") (error "No message at point")
(cdr (mu4e-message-field msg :from))))) (cdr (mu4e-message-field msg :from)))))
(setq mu4e-headers-custom-markers (setq mu4e-headers-custom-markers
'(("Older than" '(("Older than"
(lambda (lambda
(msg date) (msg date)
(time-less-p (time-less-p
(mu4e-msg-field msg :date) (mu4e-msg-field msg :date)
date)) date))
(lambda nil (lambda nil
(mu4e-get-time-date "Match messages before: "))) (mu4e-get-time-date "Match messages before: ")))
("Newer than" ("Newer than"
(lambda (lambda
(msg date) (msg date)
(time-less-p date (time-less-p date
(mu4e-msg-field msg :date))) (mu4e-msg-field msg :date)))
(lambda nil (lambda nil
(mu4e-get-time-date "Match messages after: "))) (mu4e-get-time-date "Match messages after: ")))
("Bigger than" ("Bigger than"
(lambda (lambda
(msg bytes) (msg bytes)
(> (>
(mu4e-msg-field msg :size) (mu4e-msg-field msg :size)
(* 1024 bytes))) (* 1024 bytes)))
(lambda nil (lambda nil
(read-number "Match messages bigger than (Kbytes): "))) (read-number "Match messages bigger than (Kbytes): ")))
("Matching current message from: field" ("Matching current message from: field"
(lambda (msg from) (lambda (msg from)
(mu4e-message-contact-field-matches msg :from from)) (mu4e-message-contact-field-matches msg :from from))
(lambda () (lambda ()
(let* ((msg (mu4e-message-at-point t))) (let* ((msg (mu4e-message-at-point t)))
(if (not msg) (if (not msg)
(error "No message at point") (error "No message at point")
(cdar (mu4e-message-field msg :from))))))))) (cdar (mu4e-message-field msg :from)))))))))
#+end_src #+end_src
Support sending rich-text emails via Markdown: Support sending rich-text emails via Markdown: