From: Amin Bandali <bandali@gnu.org>
Date: Sun, 22 Nov 2020 05:22:00 +0000 (-0500)
Subject: Use my own newline & reformat function for M-RET in message
X-Git-Url: https://git.shemshak.org/~bandali/configs/commitdiff_plain/23eb0d7a3000e3a721622c2450ab7a729cbe3f6c?hp=adba94a76d9411bc52b04bfb9b442f4c6c21c285

Use my own newline & reformat function for M-RET in message
---

diff --git a/.emacs.d/lisp/bandali-message.el b/.emacs.d/lisp/bandali-message.el
index 49b8a98..5952b52 100644
--- a/.emacs.d/lisp/bandali-message.el
+++ b/.emacs.d/lisp/bandali-message.el
@@ -88,6 +88,21 @@
               (orgalist-mode 1)
               (yas-minor-mode 1)))
 
+  ;; custom newline & reformat function
+  (defun b/message-newline-or-asterism (arg)
+    "Create newlines per my liking or insert asterism if ARG is
+non-nil."
+    (interactive "P")
+    (if arg
+        (b/insert-asterism)
+      (progn
+        (beginning-of-line)
+        (delete-region (point) (line-end-position))
+        (newline)
+        (open-line 1))))
+  (define-key message-mode-map
+    (kbd "M-RET") #'b/message-newline-or-asterism)
+
   ;; local key bindings
   (defvar b/footnote-prefix-map)
   (define-prefix-command 'b/footnote-prefix-map)