From 61cc59567ea8eda368e9934fa6cc12f03e406f9f Mon Sep 17 00:00:00 2001
From: Chris Cochrun <chris@tfcconnection.org>
Date: Tue, 9 Mar 2021 07:08:33 -0600
Subject: [PATCH] orgmsg for emails in org mode

---
 README.org     | 24 ++++++++++++++++--------
 eshell/history |  2 ++
 init.el        | 24 ++++++++++++++++--------
 3 files changed, 34 insertions(+), 16 deletions(-)

diff --git a/README.org b/README.org
index 4679cca3..3df9be50 100644
--- a/README.org
+++ b/README.org
@@ -1039,6 +1039,7 @@ If on a:
 (use-package mu4e
   :ensure nil
   :config
+  (setq mail-user-agent 'mu4e-user-agent)
   (setq mu4e-maildir "~/Maildir"
 	user-full-name "Chris Cochrun"
 	mu4e-change-filenames-when-moving t
@@ -1127,18 +1128,24 @@ If on a:
   (setq mu4e-use-fancy-chars t
         mu4e-headers-draft-mark '("D" . "")
         mu4e-headers-flagged-mark '("F" . "")
-        mu4e-headers-new-mark '("N" . "")
+        mu4e-headers-new-mark '("N" . " ")
         mu4e-headers-passed-mark '("P" . "")
         mu4e-headers-replied-mark '("R" . "")
-        mu4e-headers-seen-mark '("S" . "")
-        mu4e-headers-trashed-mark '("T" . "")
-        mu4e-headers-attach-mark '("a" . "")
+        mu4e-headers-seen-mark '("S" . " ")
+        mu4e-headers-trashed-mark '("T" . " ")
+        mu4e-headers-attach-mark '("a" . " ")
         mu4e-headers-encrypted-mark '("x" . "")
-        mu4e-headers-signed-mark '("s" . "")
-        mu4e-headers-unread-mark '("u" . ""))
+        mu4e-headers-signed-mark '("s" . " ")
+        mu4e-headers-unread-mark '("u" . " "))
+
+  (setq mu4e-headers-fields
+	'((:human-date . 12)
+	  (:flags . 6)
+	  (:from . 22)
+	  (:subject)))
 
   (defun chris/setup-mu4e-headers ()
-    (toggle-truncate-lines -1)
+    (toggle-truncate-lines +1)
     (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
 #+begin_src emacs-lisp
 (use-package org-msg
-  :hook (mu4e-compose-pre . org-msg-mode)
+  :hook (mu4e-compose-mode . org-msg-edit-mode)
   :config
+  (org-msg-mode)
   (setq org-msg-startup "inlineimages"
         org-msg-greeting-name-limit 3
         org-msg-default-alternatives '(html text)))
diff --git a/eshell/history b/eshell/history
index fa516375..344dd00e 100644
--- a/eshell/history
+++ b/eshell/history
@@ -107,3 +107,5 @@ ls
 ls
 ls /tmp
 cat /tmp/bongo-mpv.socket
+youtube-dl --list-formats
+youtube-dl --list-formats https://www.youtube.com/watch?v=ry8T67AgbUM
diff --git a/init.el b/init.el
index 0db51abd..414baa26 100644
--- a/init.el
+++ b/init.el
@@ -751,6 +751,7 @@ If on a:
 (use-package mu4e
   :ensure nil
   :config
+  (setq mail-user-agent 'mu4e-user-agent)
   (setq mu4e-maildir "~/Maildir"
 	user-full-name "Chris Cochrun"
 	mu4e-change-filenames-when-moving t
@@ -839,18 +840,24 @@ If on a:
   (setq mu4e-use-fancy-chars t
         mu4e-headers-draft-mark '("D" . "")
         mu4e-headers-flagged-mark '("F" . "")
-        mu4e-headers-new-mark '("N" . "")
+        mu4e-headers-new-mark '("N" . " ")
         mu4e-headers-passed-mark '("P" . "")
         mu4e-headers-replied-mark '("R" . "")
-        mu4e-headers-seen-mark '("S" . "")
-        mu4e-headers-trashed-mark '("T" . "")
-        mu4e-headers-attach-mark '("a" . "")
+        mu4e-headers-seen-mark '("S" . " ")
+        mu4e-headers-trashed-mark '("T" . " ")
+        mu4e-headers-attach-mark '("a" . " ")
         mu4e-headers-encrypted-mark '("x" . "")
-        mu4e-headers-signed-mark '("s" . "")
-        mu4e-headers-unread-mark '("u" . ""))
+        mu4e-headers-signed-mark '("s" . " ")
+        mu4e-headers-unread-mark '("u" . " "))
+
+  (setq mu4e-headers-fields
+	'((:human-date . 12)
+	  (:flags . 6)
+	  (:from . 22)
+	  (:subject)))
 
   (defun chris/setup-mu4e-headers ()
-    (toggle-truncate-lines -1)
+    (toggle-truncate-lines +1)
     (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)
 
 (use-package org-msg
-  :hook (mu4e-compose-pre . org-msg-mode)
+  :hook (mu4e-compose-mode . org-msg-edit-mode)
   :config
+  (org-msg-mode)
   (setq org-msg-startup "inlineimages"
         org-msg-greeting-name-limit 3
         org-msg-default-alternatives '(html text)))