[emacs] assimilate orgalist

[~bandali/configs] / init.org

diff --git a/init.org b/init.org
index 636214a..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 org-notmuch
   :after (:any org notmuch))

+
+(use-package orgalist)

 #+end_src
 
 **** asynchronous tangle
 #+end_src
 
 **** asynchronous tangle


@@ -1012,6 +1014,8 @@ TODO: break this giant source block down into individual org sections.
   (company-minimum-prefix-length 1)
   (company-selection-wrap-around t)
   (company-dabbrev-char-regexp "\\sw\\|\\s_\\|[-_]")
   (company-minimum-prefix-length 1)
   (company-selection-wrap-around t)
   (company-dabbrev-char-regexp "\\sw\\|\\s_\\|[-_]")

+  (company-dabbrev-downcase nil)
+  (company-dabbrev-ignore-case nil)

   :config
   (global-company-mode t))
 #+end_src
   :config
   (global-company-mode t))
 #+end_src


@@ -1274,7 +1278,8 @@ instead.
 (use-package emmet-mode
   :bind* (("C-)" . emmet-next-edit-point)
           ("C-(" . emmet-prev-edit-point))
 (use-package emmet-mode
   :bind* (("C-)" . emmet-next-edit-point)
           ("C-(" . emmet-prev-edit-point))

-  :init
+  :config
+  (unbind-key "C-j" emmet-mode-keymap)

   (setq emmet-move-cursor-between-quotes t)
   :hook (web-mode css-mode html-mode sgml-mode))
 #+end_src
   (setq emmet-move-cursor-between-quotes t)
   :hook (web-mode css-mode html-mode sgml-mode))
 #+end_src


@@ -1449,42 +1454,39 @@ Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]].
 #+end_src
 
 * Email
 #+end_src
 
 * Email

-** [[https://notmuchmail.org][notmuch]]
-
-See [[notmuch:id:87muuqsvci.fsf@fencepost.gnu.org][bug follow-up]].

 
 #+begin_src emacs-lisp
 
 #+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
 (use-package sendmail

-  ;; :ensure nil

   :config
   (setq sendmail-program "/usr/bin/msmtp"
   :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))
         mail-specify-envelope-from t
         mail-envelope-from 'header))

+#+end_src

 
 

+** message
+
+#+begin_src emacs-lisp

 (use-package message
 (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
   :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)
         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)
   )
   ;; (add-hook 'message-setup-hook
   ;;           #'mml-secure-message-sign-pgpmime)
   )


@@ -1492,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))
 (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)
 (defun amin/notmuch ()
   "Delete other windows, then launch `notmuch'."
   (interactive)


@@ -1501,7 +1509,7 @@ See [[notmuch:id:87muuqsvci.fsf@fencepost.gnu.org][bug follow-up]].
 
 (use-package notmuch
   :commands notmuch
 
 (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
   :custom (notmuch-always-prompt-for-sender t)
   :config
   (setq notmuch-hello-sections


@@ -1611,9 +1619,6 @@ See [[notmuch:id:87muuqsvci.fsf@fencepost.gnu.org][bug follow-up]].
 
 (after! notmuch-crypto
   (setq notmuch-crypto-process-mime t))
 
 (after! notmuch-crypto
   (setq notmuch-crypto-process-mime t))

-
-(after! recentf
-  (add-to-list 'recentf-exclude (expand-file-name amin-maildir)))

 #+end_src
 
 ** supercite
 #+end_src
 
 ** supercite


@@ -1673,6 +1678,9 @@ nil))
 #+begin_src emacs-lisp
 (use-package ox-hugo
   :after ox)
 #+begin_src emacs-lisp
 (use-package ox-hugo
   :after ox)

+
+(use-package ox-hugo-auto-export
+  :load-path "lib/ox-hugo")

 #+end_src
 
 * Post initialization
 #+end_src
 
 * Post initialization