[emacs] assimilate orgalist

[~bandali/configs] / init.org

diff --git a/init.org b/init.org
index b7679a7..4158a20 100644 (file)
--- a/init.org
+++ b/init.org
@@ -688,6 +688,8 @@ In short, my favourite way of life.
 
 (use-package org-notmuch
   :after (:any org notmuch))
+
+(use-package orgalist)
 #+end_src
 
 **** asynchronous tangle
@@ -1452,42 +1454,39 @@ Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]].
 #+end_src
 
 * Email
-** [[https://notmuchmail.org][notmuch]]
-
-See [[notmuch:id:87muuqsvci.fsf@fencepost.gnu.org][bug follow-up]].
 
 #+begin_src emacs-lisp
-(defvar amin-maildir "~/mail")
+(defvar amin-maildir (expand-file-name "~/mail/"))
+(after! recentf
+  (add-to-list 'recentf-exclude amin-maildir))
+#+end_src
+
+** sendmail
 
+#+begin_src emacs-lisp
 (use-package sendmail
-  ;; :ensure nil
   :config
   (setq sendmail-program "/usr/bin/msmtp"
-        ; message-sendmail-extra-arguments '("-v" "-d")
+        ;; message-sendmail-extra-arguments '("-v" "-d")
         mail-specify-envelope-from t
         mail-envelope-from 'header))
+#+end_src
+
+** message
 
+#+begin_src emacs-lisp
 (use-package message
-  ;; :ensure nil
   :config
   (setq message-kill-buffer-on-exit t
         message-send-mail-function 'message-send-mail-with-sendmail
         message-sendmail-envelope-from 'header
-        message-directory "drafts"
+        ;; message-directory "drafts"
         message-user-fqdn "aminb.org")
   (add-hook 'message-mode-hook
             (lambda () (setq fill-column 65
                         message-fill-column 65)))
   (add-hook 'message-mode-hook
             #'flyspell-mode)
-  ;; (add-hook 'notmuch-message-mode-hook #'+doom-modeline|set-special-modeline)
-  ;; TODO: is there a way to only run this when replying and not composing?
-  ;; (add-hook 'notmuch-message-mode-hook
-  ;;           (lambda () (progn
-  ;;                   (newline)
-  ;;                   (newline)
-  ;;                   (forward-line -1)
-  ;;                   (forward-line -1))))
   ;; (add-hook 'message-setup-hook
   ;;           #'mml-secure-message-sign-pgpmime)
   )
@@ -1495,7 +1494,13 @@ See [[notmuch:id:87muuqsvci.fsf@fencepost.gnu.org][bug follow-up]].
 (after! mml-sec
   (setq mml-secure-openpgp-encrypt-to-self t
         mml-secure-openpgp-sign-with-sender t))
+#+end_src
 
+** [[https://notmuchmail.org][notmuch]]
+
+See [[notmuch:id:87muuqsvci.fsf@fencepost.gnu.org][bug follow-up]].
+
+#+begin_src emacs-lisp
 (defun amin/notmuch ()
   "Delete other windows, then launch `notmuch'."
   (interactive)
@@ -1504,7 +1509,7 @@ See [[notmuch:id:87muuqsvci.fsf@fencepost.gnu.org][bug follow-up]].
 
 (use-package notmuch
   :commands notmuch
-  :bind ("C-c m" . amin/notmuch)
+  :bind ("C-c n" . amin/notmuch)
   :custom (notmuch-always-prompt-for-sender t)
   :config
   (setq notmuch-hello-sections
@@ -1614,9 +1619,6 @@ See [[notmuch:id:87muuqsvci.fsf@fencepost.gnu.org][bug follow-up]].
 
 (after! notmuch-crypto
   (setq notmuch-crypto-process-mime t))
-
-(after! recentf
-  (add-to-list 'recentf-exclude (expand-file-name amin-maildir)))
 #+end_src
 
 ** supercite