emacs: (defun b/insert-asterism () …)

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index f60c736..571448e 100644 (file)
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -266,6 +266,10 @@
   (previous-line)
   (insert "\n\f\n;;; "))
 
   (previous-line)
   (insert "\n\f\n;;; "))
 

+(defun b/insert-asterism ()
+  (interactive)
+  (insert "\n\n                                 * * *\n\n"))
+

 (defun b/no-mouse-autoselect-window ()
   "Conveniently disable `focus-follows-mouse'.
 For disabling the behaviour for certain buffers and/or modes."
 (defun b/no-mouse-autoselect-window ()
   "Conveniently disable `focus-follows-mouse'.
 For disabling the behaviour for certain buffers and/or modes."


@@ -1239,6 +1243,7 @@ This function is intended for use with `ivy-ignore-buffers'."
   (add-hook 'prog-mode-hook #'indicate-buffer-boundaries-left))
 
 (use-feature text-mode
   (add-hook 'prog-mode-hook #'indicate-buffer-boundaries-left))
 
 (use-feature text-mode

+  :bind (:map text-mode-map ("C-*" . b/insert-asterism))

   :hook (text-mode . indicate-buffer-boundaries-left))
 
 (use-feature conf-mode
   :hook (text-mode . indicate-buffer-boundaries-left))
 
 (use-feature conf-mode


@@ -2408,6 +2413,7 @@ https://csclub.uwaterloo.ca/~abandali")
         mail-envelope-from 'header))
 
 (use-feature message
         mail-envelope-from 'header))
 
 (use-feature message

+  :bind (:map message-mode-map ("<C-return>" . b/insert-asterism))

   :config
   ;; redefine for a simplified In-Reply-To header
   ;; (see https://todo.sr.ht/~sircmpwn/lists.sr.ht/67)
   :config
   ;; redefine for a simplified In-Reply-To header
   ;; (see https://todo.sr.ht/~sircmpwn/lists.sr.ht/67)