X-Git-Url: https://git.shemshak.org/~bandali/configs/blobdiff_plain/d7dee82420a04e5c92e5b5ad316e14a49bd4d689..bc04a4d40544c77d163d6497f3863b9b566d64d4:/.emacs.d/lisp/bandali-message.el

diff --git a/.emacs.d/lisp/bandali-message.el b/.emacs.d/lisp/bandali-message.el
index c13bffc..c66a669 100644
--- a/.emacs.d/lisp/bandali-message.el
+++ b/.emacs.d/lisp/bandali-message.el
@@ -61,7 +61,6 @@
    '(gnus-find-subscribed-addresses)
    message-dont-reply-to-names
    "\\(\\(amin@shemshak\\.org\\)\\|\\(.*@aminb\\.org\\)\\|\\(\\(bandali\\|mab\\|aminb?\\)@gnu\\.org\\)\\|bandali@fsf\\.org\\|\\(a?bandali@\\(csclub\\.\\)?uwaterloo\\.ca\\)\\|amin\\.bandali@savoirfairelinux\\.com\\)")
-  ;; (require 'company-ebdb)
   ;; (custom-set-faces
   ;;  '(message-header-subject
   ;;    ((t (:foreground "#111" :weight semi-bold))))
@@ -88,7 +87,26 @@
               (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
+  (define-key message-mode-map
+    [remap next-line] #'mail-abbrev-next-line)
+  (define-key message-mode-map
+    [remap end-of-buffer] #'mail-abbrev-end-of-buffer)
   (defvar b/footnote-prefix-map)
   (define-prefix-command 'b/footnote-prefix-map)
   (define-key message-mode-map (kbd "C-c f n")
@@ -117,6 +135,9 @@
             (eval-when-compile (defvar company-idle-delay))
             (make-local-variable 'company-idle-delay)
             (setq company-idle-delay 0.2)))
+(add-hook 'message-mode-hook
+          (lambda ()
+            (local-unset-key (kbd "C-c C-s"))))
 
 ;; (with-eval-after-load 'message-x
 ;;   (csetq