From 3e09ee57dc62ff7a120dc832d36c3aa8e501a9f1 Mon Sep 17 00:00:00 2001
From: Daniel Borchmann <daniel@algebra20.de>
Date: Sun, 31 Dec 2023 12:54:55 +0100
Subject: [PATCH] Use olivetti-mode to improve Org tree-slide presentations

This is motivated by a post by Daniel Liden (https://gitlab.com/dliden),
see https://www.danliden.com/posts/20231217-emacs-hooks.html (courtesy
of https://irreal.org/blog/?p=11849).
---
 init.el | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/init.el b/init.el
index 2b8d395..c2a78f6 100644
--- a/init.el
+++ b/init.el
@@ -472,6 +472,20 @@
              mc/mark-previous-like-this
              mc/mark-all-like-this))
 
+(use-package olivetti
+  :ensure t
+  :commands (olivetti-mode)
+  :preface (progn
+             (defun turn-on-olivetti-mode ()
+               "Turn on `olivetti-mode'."
+               (interactive)
+               (olivetti-mode 1))
+             (defun turn-off-olivetti-mode ()
+               "Turn off `olivetti-mode'."
+               (interactive)
+               (olivetti-mode -1)))
+  :init (setq-default olivetti-body-width 0.618034))
+
 (use-package undo-tree
   :ensure t
   :commands (global-undo-tree-mode
@@ -1243,7 +1257,9 @@
   :bind (:map org-tree-slide-mode-map
               ("<C-down>" . org-tree-slide-display-header-toggle)
               ("<C-right>" . org-tree-slide-move-next-tree)
-              ("<C-left>" . org-tree-slide-move-previous-tree)))
+              ("<C-left>" . org-tree-slide-move-previous-tree))
+  :hook ((org-tree-slide-play . turn-on-olivetti-mode)
+         (org-tree-slide-stop . turn-off-olivetti-mode)))
 
 (use-package org-roam
   :init (progn