1 files changed, 27 insertions, 0 deletions
diff --git a/lisp/td-present.el b/lisp/td-present.el
new file mode 100644
index 0000000..72cd901
--- /dev/null
+++ b/lisp/td-present.el
@@ -0,0 +1,27 @@
+;;; -*- lexical-binding: t; -*-
+
+(use-package org-present
+  :ensure t
+  :hook ((org-present-mode                     . td/org-present-start)
+         (org-present-mode-quit                . td/org-present-end)
+         (org-present-after-navigate-functions . td/org-present-prepare-slide)))
+
+(defun td/org-present-start ()
+  (setq-local face-remapping-alist
+              '((default              (:height 1.5)  variable-pitch)
+                (header-line          (:height 4.0)  variable-pitch)
+                (org-document-title   (:height 1.75) org-document-title)
+                (org-code             (:height 1.55) org-code)
+                (org-verbatim         (:height 1.55) org-verbatim)
+                (org-block            (:height 1.25) org-block)
+                (org-block-begin-line (:height 0.7)  org-block))))
+
+(defun td/org-present-end ()
+  (setq-local face-remapping-alist '((default variable-pitch default))))
+
+(defun td/org-present-prepare-slide (buffer-name heading)
+  (org-overview)
+  (org-show-entry)
+  (org-show-children))
+
+(provide 'td-present)