emacs: experiment with a fill-column of 47 for neat and short lines
authorAmin Bandali <bandali@gnu.org>
Mon, 18 Nov 2019 16:21:46 +0000 (11:21 -0500)
committerAmin Bandali <bandali@gnu.org>
Mon, 18 Nov 2019 16:21:46 +0000 (11:21 -0500)
.emacs.d/init.el

index 5e3ce80..4f286c0 100644 (file)
@@ -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