Add olivetti for org buffers

2 files changed, 12 insertions, 1 deletions

diff --git a/lisp/ss-org.el b/lisp/ss-org.el
index f1a2274..9d8e81f 100644
--- a/lisp/ss-org.el
+++ b/lisp/ss-org.el
@@ -261,6 +261,8 @@ This is for significant navigation points only and clears forward history."
     (add-hook 'org-mode-hook
               (lambda ()
                 (setq-local org-hide-emphasis-markers t)
+                (when (fboundp 'olivetti-mode)
+                  (olivetti-mode 1))
                 (font-lock-flush)
                 (font-lock-ensure))))
 
diff --git a/lisp/ss-ui.el b/lisp/ss-ui.el
index 79f2a0d..3dd728c 100644
--- a/lisp/ss-ui.el
+++ b/lisp/ss-ui.el
@@ -100,6 +100,14 @@
     :init
     (global-corfu-mode 1)))
 
+(defun ss-ui--setup-writing-layout ()
+  "Configure centered writing layout helpers."
+  (use-package olivetti
+    :ensure t
+    :pin melpa
+    :custom
+    (olivetti-body-width 100)))
+
 (defun ss-ui-setup ()
   "Initialize interface and completion behavior."
   (setq inhibit-startup-message t
@@ -128,7 +136,8 @@
   (setq-default fringe-indicator-alist nil)
 
   (ss-ui--setup-modeline)
-  (ss-ui--setup-completion))
+  (ss-ui--setup-completion)
+  (ss-ui--setup-writing-layout))
 
 (provide 'ss-ui)