commit f299434ccdc1c2773862671866d66322aa79f7b6 parent d4a557924c04d309e383560be2e60a2b48532ff2 Author: Vincent Demeester <vincent@sbr.pm> Date: Thu, 9 Jun 2022 14:16:38 +0200 tools/emacs: add org-tree-slide configuration Signed-off-by: Vincent Demeester <vincent@sbr.pm> Diffstat:
| M | tools/emacs/config/config-org.el | | | 28 | ++++++++++++++++++++++++++++ |
1 file changed, 28 insertions(+), 0 deletions(-)
diff --git a/tools/emacs/config/config-org.el b/tools/emacs/config/config-org.el @@ -568,5 +568,33 @@ With prefix argument, also display headlines without a TODO keyword." (file-relative-name file dir)))) ) +(use-package org-tree-slide + :functions (org-display-inline-images + org-remove-inline-images) + :bind (:map org-mode-map + ("s-<f7>" . org-tree-slide-mode) + :map org-tree-slide-mode-map + ("<left>" . org-tree-slide-move-previous-tree) + ("<right>" . org-tree-slide-move-next-tree) + ("S-SPC" . org-tree-slide-move-previous-tree) + ("SPC" . org-tree-slide-move-next-tree)) + :hook ((org-tree-slide-play . (lambda () + (text-scale-increase 4) + (org-display-inline-images) + (read-only-mode 1))) + (org-tree-slide-stop . (lambda () + (text-scale-increase 0) + (org-remove-inline-images) + (read-only-mode -1)))) + :init (setq org-tree-slide-header t + org-tree-slide-slide-in-effect nil + org-tree-slide-heading-emphasis nil + org-tree-slide-cursor-init t + org-tree-slide-modeline-display 'outside + org-tree-slide-skip-done nil + org-tree-slide-skip-comments t + org-tree-slide-content-margin-top 1 + org-tree-slide-skip-outline-level 4)) + (provide 'config-org) ;;; config-org.el ends here