emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

lang/org: minor refactor of contrib submodules

Browse source
This commit is contained in:
Henrik Lissner 2019-10-20 18:45:15 -04:00
parent c5464f1798
commit 1694641636
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
5 changed files with 26 additions and 35 deletions
Download patch file Download diff file Expand all files Collapse all files

18
modules/lang/org/contrib/present.el
View file

@ -36,5 +36,19 @@
#'org-display-inline-images)
(add-hook 'org-tree-slide-mode-hook #'+org-present-init-org-tree-window-h)
(advice-add #'org-tree-slide--display-tree-with-narrow
:around #'+org-present*narrow-to-subtree))
(defadvice! +org-present--narrow-to-subtree-a (orig-fn &rest args)
"Narrow to the target subtree when you start the presentation."
:around #'org-tree-slide--display-tree-with-narrow
(cl-letf (((symbol-function #'org-narrow-to-subtree)
(lambda () (save-excursion
(save-match-data
(org-with-limited-levels
(narrow-to-region
(progn (org-back-to-heading t)
(forward-line 1)
(point))
(progn (org-end-of-subtree t t)
(when (and (org-at-heading-p) (not (eobp))) (backward-char 1))
(point)))))))))
(apply orig-fn args))))