From 084d9194b31e11154b8a1e5e9c9cdc2342f744cf Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 27 Jan 2021 15:51:00 -0600
Subject: Add visual-fill-column-mode

Also: a hook to activate it on visual-line-mode.
---
 config.org | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/config.org b/config.org
index bb3dde6..2e0ddb3 100644
--- a/config.org
+++ b/config.org
@@ -210,6 +210,26 @@ This is extremely fiddly and I'd love another option.
   (define-key acdw/map (kbd "M-o") #'crux-other-window-or-switch-buffer)
 #+end_src
 
+*** Visual fill column mode
+
+In reading-intensive views, this mode keeps the text from getting too
+wide.
+
+#+begin_src emacs-lisp :noweb-ref packages
+  (straight-use-package 'visual-fill-column)
+#+end_src
+
+#+begin_src emacs-lisp :noweb-ref settings
+  (setq-default visual-fill-column-center-text t)
+#+end_src
+
+#+begin_src emacs-lisp :noweb-ref hooks
+  (add-hook 'visual-line-mode-hook #'visual-fill-column-mode)
+
+  (with-eval-after-load 'visual-fill-column
+    (advice-add 'text-scale-adjust :after #'visual-fill-column-adjust))
+#+end_src
+
 ** Buffers
 
 *** Uniquify buffers
-- 
cgit 1.4.1-21-gabe81