From 6c3949e3aaf0a5b54f6f780cab90eabee317bc20 Mon Sep 17 00:00:00 2001
From: kj <webmaster@outcontrol.net>
Date: Thu, 13 Apr 2023 18:31:51 -0400
Subject: [PATCH] Add org-present.

---
 configs/init-org.el | 35 ++++++++++++++++++++++++++++++++++-
 1 file changed, 34 insertions(+), 1 deletion(-)

diff --git a/configs/init-org.el b/configs/init-org.el
index 1575ae6..fc8b6ea 100644
--- a/configs/init-org.el
+++ b/configs/init-org.el
@@ -149,11 +149,15 @@
 
 (use-package visual-fill-column
   :straight t
+  :defer t
+  :after (org)
   :config
   ;; Tamaño de la columna
   (setq-default visual-fill-column-width 150)
   ;; Centrar el texto
-  (setq-default visual-fill-column-center-text t)
+  (setq-default visual-fill-column-center-text t
+                visual-fill-column-adjust-for-text-scale nil
+                visual-fill-column-enable-sensible-window-split t)
   )
 
 ;; Segundo cerebro: Base de conocimientos en formato Zettelkasten
@@ -202,5 +206,34 @@
         org-fancy-priorities-list '("⚡" "⬆" "⬇" "☕"))
   )
 
+;; Org mode en modo presentación
+(use-package org-present
+  :straight t
+  :defer t
+  :after (org)
+  :config
+  (add-hook 'org-present-mode-hook
+            (lambda ()
+              (org-display-inline-images)
+              (org-present-hide-cursor)
+              (org-present-read-only)
+              ))
+  (add-hook 'org-present-mode-quit-hook
+            (lambda ()
+              ;; (org-remove-inline-images)
+              (org-present-show-cursor)
+              (org-present-read-write)))
+
+  (add-hook 'org-present-after-navigate-functions
+            (lambda ()
+              ;; Show only top-level headlines
+              (org-overview)
+              ;; Unfold the current entry
+              (org-show-entry)
+              ;; Show only direct subheadings of the slide but don't expand them
+              (org-show-children)
+              ))
+  )
+
 (provide 'init-org)
 ;;; init-org.el ends here