emacs: experiment with a fill-column of 47 for neat and short lines

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 5e3ce80..4f286c0 100644 (file)
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -281,6 +281,9 @@ 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


@@ -301,7 +304,9 @@ For disabling the behaviour for certain buffers and/or modes."
  scroll-conservatively 10
  scroll-preserve-screen-position 1
  ;; focus follows mouse
  scroll-conservatively 10
  scroll-preserve-screen-position 1
  ;; focus follows mouse

- mouse-autoselect-window t)
+ mouse-autoselect-window t
+ ;; custom fill-column
+ fill-column b/fill-column)

 
 (setq-default
  ;; always use space for indentation
 
 (setq-default
  ;; always use space for indentation


@@ -2552,8 +2557,8 @@ https://csclub.uwaterloo.ca/~abandali")
   :hook (;; (message-setup . mml-secure-message-sign-pgpmime)
          (message-mode . flyspell-mode)
          (message-mode . (lambda ()
   :hook (;; (message-setup . mml-secure-message-sign-pgpmime)
          (message-mode . flyspell-mode)
          (message-mode . (lambda ()

-                           ;; (setq fill-column 65
-                           ;;       message-fill-column 65)
+                           (setq-local fill-column b/fill-column
+                                       message-fill-column b/fill-column)

                            (make-local-variable 'company-idle-delay)
                            (setq company-idle-delay 0.2))))
   ;; :custom-face
                            (make-local-variable 'company-idle-delay)
                            (setq company-idle-delay 0.2))))
   ;; :custom-face