chris/emacs
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

orgmsg for emails in org mode

Browse source
This commit is contained in:
Chris Cochrun 2021-03-09 07:08:33 -06:00
parent 5661c542fb
commit 61cc59567e
3 changed files with 34 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
README.org
View file

@ -1039,6 +1039,7 @@ If on a:
(use-package mu4e (use-package mu4e
:ensure nil :ensure nil
:config :config
(setq mail-user-agent 'mu4e-user-agent)
(setq mu4e-maildir "~/Maildir" (setq mu4e-maildir "~/Maildir"
user-full-name "Chris Cochrun" user-full-name "Chris Cochrun"
mu4e-change-filenames-when-moving t mu4e-change-filenames-when-moving t
@ -1127,18 +1128,24 @@ If on a:
(setq mu4e-use-fancy-chars t (setq mu4e-use-fancy-chars t
mu4e-headers-draft-mark '("D" . "") mu4e-headers-draft-mark '("D" . "")
mu4e-headers-flagged-mark '("F" . "") mu4e-headers-flagged-mark '("F" . "")
mu4e-headers-new-mark '("N" . "") mu4e-headers-new-mark '("N" . " ")
mu4e-headers-passed-mark '("P" . "") mu4e-headers-passed-mark '("P" . "")
mu4e-headers-replied-mark '("R" . "") mu4e-headers-replied-mark '("R" . "")
mu4e-headers-seen-mark '("S" . "") mu4e-headers-seen-mark '("S" . " ")
mu4e-headers-trashed-mark '("T" . "") mu4e-headers-trashed-mark '("T" . " ")
mu4e-headers-attach-mark '("a" . "") mu4e-headers-attach-mark '("a" . " ")
mu4e-headers-encrypted-mark '("x" . "") mu4e-headers-encrypted-mark '("x" . "")
mu4e-headers-signed-mark '("s" . "") mu4e-headers-signed-mark '("s" . " ")
mu4e-headers-unread-mark '("u" . "")) mu4e-headers-unread-mark '("u" . " "))
(setq mu4e-headers-fields
'((:human-date . 12)
(:flags . 6)
(:from . 22)
(:subject)))
(defun chris/setup-mu4e-headers () (defun chris/setup-mu4e-headers ()
(toggle-truncate-lines -1) (toggle-truncate-lines +1)
(display-line-numbers-mode -1)) (display-line-numbers-mode -1))
(remove-hook 'mu4e-main-mode-hook '(display-line-numbers-mode -1)) (remove-hook 'mu4e-main-mode-hook '(display-line-numbers-mode -1))
@ -1156,8 +1163,9 @@ If on a:
Let's add org-msg to write emails in org-mode Let's add org-msg to write emails in org-mode
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package org-msg (use-package org-msg
:hook (mu4e-compose-pre . org-msg-mode) :hook (mu4e-compose-mode . org-msg-edit-mode)
:config :config
(org-msg-mode)
(setq org-msg-startup "inlineimages" (setq org-msg-startup "inlineimages"
org-msg-greeting-name-limit 3 org-msg-greeting-name-limit 3
org-msg-default-alternatives '(html text))) org-msg-default-alternatives '(html text)))

2
eshell/history
View file

@ -107,3 +107,5 @@ ls
ls ls
ls /tmp ls /tmp
cat /tmp/bongo-mpv.socket cat /tmp/bongo-mpv.socket
youtube-dl --list-formats
youtube-dl --list-formats https://www.youtube.com/watch?v=ry8T67AgbUM

24
init.el
View file

@ -751,6 +751,7 @@ If on a:
(use-package mu4e (use-package mu4e
:ensure nil :ensure nil
:config :config
(setq mail-user-agent 'mu4e-user-agent)
(setq mu4e-maildir "~/Maildir" (setq mu4e-maildir "~/Maildir"
user-full-name "Chris Cochrun" user-full-name "Chris Cochrun"
mu4e-change-filenames-when-moving t mu4e-change-filenames-when-moving t
@ -839,18 +840,24 @@ If on a:
(setq mu4e-use-fancy-chars t (setq mu4e-use-fancy-chars t
mu4e-headers-draft-mark '("D" . "") mu4e-headers-draft-mark '("D" . "")
mu4e-headers-flagged-mark '("F" . "") mu4e-headers-flagged-mark '("F" . "")
mu4e-headers-new-mark '("N" . "") mu4e-headers-new-mark '("N" . " ")
mu4e-headers-passed-mark '("P" . "") mu4e-headers-passed-mark '("P" . "")
mu4e-headers-replied-mark '("R" . "") mu4e-headers-replied-mark '("R" . "")
mu4e-headers-seen-mark '("S" . "") mu4e-headers-seen-mark '("S" . " ")
mu4e-headers-trashed-mark '("T" . "") mu4e-headers-trashed-mark '("T" . " ")
mu4e-headers-attach-mark '("a" . "") mu4e-headers-attach-mark '("a" . " ")
mu4e-headers-encrypted-mark '("x" . "") mu4e-headers-encrypted-mark '("x" . "")
mu4e-headers-signed-mark '("s" . "") mu4e-headers-signed-mark '("s" . "")
mu4e-headers-unread-mark '("u" . "")) mu4e-headers-unread-mark '("u" . ""))
(setq mu4e-headers-fields
'((:human-date . 12)
(:flags . 6)
(:from . 22)
(:subject)))
(defun chris/setup-mu4e-headers () (defun chris/setup-mu4e-headers ()
(toggle-truncate-lines -1) (toggle-truncate-lines +1)
(display-line-numbers-mode -1)) (display-line-numbers-mode -1))
(remove-hook 'mu4e-main-mode-hook '(display-line-numbers-mode -1)) (remove-hook 'mu4e-main-mode-hook '(display-line-numbers-mode -1))
@ -865,8 +872,9 @@ If on a:
:ensure t) :ensure t)
(use-package org-msg (use-package org-msg
:hook (mu4e-compose-pre . org-msg-mode) :hook (mu4e-compose-mode . org-msg-edit-mode)
:config :config
(org-msg-mode)
(setq org-msg-startup "inlineimages" (setq org-msg-startup "inlineimages"
org-msg-greeting-name-limit 3 org-msg-greeting-name-limit 3
org-msg-default-alternatives '(html text))) org-msg-default-alternatives '(html text)))