From: Amin Bandali 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