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 (file)
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -266,9 +266,21 @@
   (previous-line)
   (insert "\n\f\n;;; "))
 
   (previous-line)
   (insert "\n\f\n;;; "))
 

+(defvar b/fill-column 47
+  "My custom `fill-column'.")
+
+(defconst b/asterism "* * *")
+

 (defun b/insert-asterism ()
 (defun b/insert-asterism ()

+  "Insert a centred asterism."

   (interactive)
   (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'.
 
 (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
 
 
 ;;;; C-level customizations
 

-(defvar b/fill-column 47
-  "My custom `fill-column'.")
-

 (setq
  ;; minibuffer
  enable-recursive-minibuffers t
 (setq
  ;; minibuffer
  enable-recursive-minibuffers t