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