From: Amin Bandali <bandali@gnu.org>
Date: Mon, 18 Nov 2019 16:50:09 +0000 (-0500)
Subject: emacs: make b/insert-asterism more robust w.r.t. fill-column
X-Git-Url: https://git.shemshak.org/~bandali/configs/commitdiff_plain/3214b7ca9380f41f1f5482c530abd605b9a13502?hp=2bd7f890edc38884131c196e2c0652bb33912d1b

emacs: make b/insert-asterism more robust w.r.t. fill-column
---

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 4f286c0..85aeba0 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -266,9 +266,21 @@
   (previous-line)
   (insert "\n\n;;; "))
 
+(defvar b/fill-column 47
+  "My custom `fill-column'.")
+
+(defconst b/asterism "* * *")
+
 (defun b/insert-asterism ()
+  "Insert a centred asterism."
   (interactive)
-  (insert "\n\n                                 * * *\n\n"))
+  (insert
+   (concat
+    "\n\n"
+    (make-string (floor (/ (- b/fill-column (length b/asterism)) 2))
+                 ?\s)
+    b/asterism
+    "\n\n")))
 
 (defun b/no-mouse-autoselect-window ()
   "Conveniently disable `focus-follows-mouse'.
@@ -281,9 +293,6 @@ For disabling the behaviour for certain buffers and/or modes."
 
 ;;;; C-level customizations
 
-(defvar b/fill-column 47
-  "My custom `fill-column'.")
-
 (setq
  ;; minibuffer
  enable-recursive-minibuffers t