blob: 72cd901a1f0efa105a14fc33b006c80b2ab41fd1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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)
|
