Compare commits
2 commits
503d3f126f
...
80923f8a5e
Author | SHA1 | Date | |
---|---|---|---|
Timothy | 80923f8a5e | ||
Timothy | dab74d25b3 |
51
config.org
51
config.org
|
@ -6270,8 +6270,7 @@ We can also use this a signature,
|
||||||
(setq message-signature mu4e-from-name)
|
(setq message-signature mu4e-from-name)
|
||||||
#+end_src
|
#+end_src
|
||||||
|
|
||||||
Lastly, I've got a few extra addresses I'd like ~+mu4e-set-from-address-h~ to be
|
I've got a few extra addresses I'd like ~+mu4e-set-from-address-h~ to be aware of.
|
||||||
aware of.
|
|
||||||
|
|
||||||
#+begin_src emacs-lisp
|
#+begin_src emacs-lisp
|
||||||
(defun +mu4e-update-personal-addresses ()
|
(defun +mu4e-update-personal-addresses ()
|
||||||
|
@ -6297,6 +6296,17 @@ aware of.
|
||||||
(+mu4e-update-personal-addresses))
|
(+mu4e-update-personal-addresses))
|
||||||
#+end_src
|
#+end_src
|
||||||
|
|
||||||
|
When composing an email, I think it would make more sense to start off in =insert=
|
||||||
|
mode than =normal= mode, which can be accomplished via a compose hook.
|
||||||
|
|
||||||
|
#+begin_src emacs-lisp
|
||||||
|
(defun +mu4e-evil-enter-insert-mode ()
|
||||||
|
(when (eq (bound-and-true-p evil-state) 'normal)
|
||||||
|
(call-interactively #'evil-append)))
|
||||||
|
|
||||||
|
(add-hook 'mu4e-compose-mode-hook #'+mu4e-evil-enter-insert-mode 90)
|
||||||
|
#+end_src
|
||||||
|
|
||||||
**** Working with the Org mailing list
|
**** Working with the Org mailing list
|
||||||
:PROPERTIES:
|
:PROPERTIES:
|
||||||
:header-args:emacs-lisp: :noweb-ref mu4e-conf
|
:header-args:emacs-lisp: :noweb-ref mu4e-conf
|
||||||
|
@ -6502,6 +6512,43 @@ to the archive to refer to an earlier email) I'd much rather look at it in mu4e.
|
||||||
(add-to-list 'browse-url-handlers (cons "^https?://list\\.orgmode\\.org/" #'+browse-url-orgmode-ml))
|
(add-to-list 'browse-url-handlers (cons "^https?://list\\.orgmode\\.org/" #'+browse-url-orgmode-ml))
|
||||||
#+end_src
|
#+end_src
|
||||||
|
|
||||||
|
***** Setup when composing a new email
|
||||||
|
|
||||||
|
Thanks to having a dedicated address for my interactions with the Org ML, and
|
||||||
|
Doom's ~+mu4e-set-from-address-h~, we can tell at the end of compose setup whether
|
||||||
|
I'm composing an email to the Org ML and then do a little setup for convenience,
|
||||||
|
namely:
|
||||||
|
+ Pre-fill the =To= address
|
||||||
|
+ Ensure that =org-msg= is set up to send plaintext only
|
||||||
|
+ Set ~default-directory~ to my local Org repository (where patch files are
|
||||||
|
generated)
|
||||||
|
+ Move ~(point)~ to the =Subject:= line
|
||||||
|
|
||||||
|
#+begin_src emacs-lisp
|
||||||
|
(defun +mu4e-compose-org-ml-setup ()
|
||||||
|
(when (string-match-p "\\`orgmode@" user-mail-address)
|
||||||
|
(goto-char (point-min))
|
||||||
|
(re-search-forward "^To: .*$")
|
||||||
|
(replace-match "To: emacs-orgmode@gnu.org")
|
||||||
|
(when (and org-msg-mode
|
||||||
|
(re-search-forward "^:alternatives: (\\(utf-8 html\\))" nil t))
|
||||||
|
(replace-match "utf-8" t t nil 1))
|
||||||
|
(setq default-directory
|
||||||
|
(replace-regexp-in-string
|
||||||
|
(regexp-quote straight-build-dir)
|
||||||
|
"repos"
|
||||||
|
(file-name-directory (locate-library "org"))))
|
||||||
|
(add-transient-hook! 'message-goto-to
|
||||||
|
:after (message-goto-subject))))
|
||||||
|
#+end_src
|
||||||
|
|
||||||
|
Now to make this take effect, we can just add it a bit later on in
|
||||||
|
~mu4e-compose-mode-hook~ (after ~org-msg-post-setup~) by setting a hook depth of 1.
|
||||||
|
|
||||||
|
#+begin_src emacs-lisp
|
||||||
|
(add-hook 'mu4e-compose-mode-hook #'+mu4e-compose-org-ml-setup 1)
|
||||||
|
#+end_src
|
||||||
|
|
||||||
*** Org Msg
|
*** Org Msg
|
||||||
|
|
||||||
Doom does a fantastic stuff with the defaults with this, so we only make a few
|
Doom does a fantastic stuff with the defaults with this, so we only make a few
|
||||||
|
|
Loading…
Reference in a new issue