Move which-key footnote replacement to lisp/bandali-message.el.

[~bandali/configs] / lisp / bandali-message.el

diff --git a/lisp/bandali-message.el b/lisp/bandali-message.el
index be88049..750188c 100644 (file)
--- a/lisp/bandali-message.el
+++ b/lisp/bandali-message.el
@@ -76,10 +76,13 @@
 
 (use-package footnote
   :after message
 
 (use-package footnote
   :after message

-  ;; :config
+  :config

   ;; (setq footnote-start-tag ""
   ;;       footnote-end-tag   ""
   ;;       footnote-style     'unicode)
   ;; (setq footnote-start-tag ""
   ;;       footnote-end-tag   ""
   ;;       footnote-style     'unicode)

+  (when (featurep 'which-key)
+    (which-key-add-major-mode-key-based-replacements 'message-mode
+      "C-c f n" "footnote"))

   :bind
   (:map message-mode-map
         :prefix-map b/footnote-prefix-map
   :bind
   (:map message-mode-map
         :prefix-map b/footnote-prefix-map


@@ -92,8 +95,6 @@
         ("r" . footnote-renumber-footnotes)
         ("s" . footnote-set-style)))
 
         ("r" . footnote-renumber-footnotes)
         ("s" . footnote-set-style)))
 

-(use-package message-x)
-

 (comment
   (use-package message-x
     :custom
 (comment
   (use-package message-x
     :custom


@@ -115,5 +116,9 @@
         (gnus-harvest-install 'message-x)
       (gnus-harvest-install))))
 
         (gnus-harvest-install 'message-x)
       (gnus-harvest-install))))
 

+(use-package orgalist
+  :after message
+  :hook (message-mode . orgalist-mode))
+

 (provide 'bandali-message)
 ;;; bandali-message.el ends here
 (provide 'bandali-message)
 ;;; bandali-message.el ends here