diff options
| author | Amin Bandali <bandali@gnu.org> | 2020-11-22 00:22:00 -0500 |
|---|---|---|
| committer | Amin Bandali <bandali@gnu.org> | 2020-11-22 00:22:00 -0500 |
| commit | 23eb0d7a3000e3a721622c2450ab7a729cbe3f6c (patch) | |
| tree | cdc1dd9ea2df7de9f8cba07fb03f15b9342d82c4 | |
| parent | adba94a76d9411bc52b04bfb9b442f4c6c21c285 (diff) | |
| download | configs-23eb0d7a3000e3a721622c2450ab7a729cbe3f6c.tar.gz configs-23eb0d7a3000e3a721622c2450ab7a729cbe3f6c.tar.xz configs-23eb0d7a3000e3a721622c2450ab7a729cbe3f6c.zip | |
Use my own newline & reformat function for M-RET in message
| -rw-r--r-- | .emacs.d/lisp/bandali-message.el | 15 |
1 files changed, 15 insertions, 0 deletions
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) |