[emacs] try out a custom message-cite-style instead of supercite

[~bandali/configs] / init.org

diff --git a/init.org b/init.org
index 7ddf8ec..defa13d 100644 (file)
--- a/init.org
+++ b/init.org
@@ -807,6 +807,12 @@ customizing it.
 
   "w"   '(:ignore t :wk "window")
   "w o" 'other-window
 
   "w"   '(:ignore t :wk "window")
   "w o" 'other-window

+  "w 0" 'delete-window
+  "w 1" 'delete-other-windows
+  "w 2" 'split-window-below
+  "w 3" 'split-window-right
+  "w u" 'winner-undo
+  "w r" 'winner-redo

 
   "q"   '(:ignore t :wk "quit")
   "q q" 'save-buffers-kill-terminal)
 
   "q"   '(:ignore t :wk "quit")
   "q q" 'save-buffers-kill-terminal)


@@ -967,6 +973,7 @@ Not just how I do git, but /the/ way to do git.
   (setq
    magit-repository-directories '(("~/.emacs.d/" . 0)
                                   ("~/src/git/" . 1)))
   (setq
    magit-repository-directories '(("~/.emacs.d/" . 0)
                                   ("~/src/git/" . 1)))

+  (push (cons [unpushed status] 'show) magit-section-initial-visibility-alist)

   :custom-face (magit-diff-file-heading ((t (:weight normal)))))
 #+end_src
 
   :custom-face (magit-diff-file-heading ((t (:weight normal)))))
 #+end_src
 


@@ -2130,7 +2137,17 @@ For when I /have to/ use GH.
 #+begin_src emacs-lisp
 (use-package message
   :config
 #+begin_src emacs-lisp
 (use-package message
   :config

-  (setq message-kill-buffer-on-exit t
+  (defconst message-cite-style-bandali
+    '((message-cite-function  'message-cite-original)
+      (message-citation-line-function  'message-insert-formatted-citation-line)
+      (message-cite-reply-position 'traditional)
+      (message-yank-prefix  "> ")
+      (message-yank-cited-prefix  ">")
+      (message-yank-empty-prefix  ">")
+      (message-citation-line-format "Hi %F,\n\nOn %Y-%m-%d %l:%M %p, %N wrote:"))
+    "Citation style based on Mozilla Thunderbird's. Use with message-cite-style.")
+  (setq message-cite-style 'message-cite-style-bandali
+        message-kill-buffer-on-exit t

         message-send-mail-function 'message-send-mail-with-sendmail
         message-sendmail-envelope-from 'header
         message-dont-reply-to-names
         message-send-mail-function 'message-send-mail-with-sendmail
         message-sendmail-envelope-from 'header
         message-dont-reply-to-names


@@ -2174,7 +2191,7 @@ Convenient footnotes in =message-mode=.
         footnote-style     'unicode))
 #+end_src
 
         footnote-style     'unicode))
 #+end_src
 

-** supercite
+** COMMENT supercite

 
 #+begin_src emacs-lisp
 (use-package supercite
 
 #+begin_src emacs-lisp
 (use-package supercite