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

PRAISE BE TO THE BYTE COMPILER FOR THY SHARP QUOTES

Browse source
This commit is contained in:
Henrik Lissner 2017-04-17 02:17:10 -04:00
parent ef88d30b73
commit 5ae94b765c
79 changed files with 798 additions and 795 deletions
Download patch file Download diff file Expand all files Collapse all files

4
modules/app/present/autoload.el
View file

@ -49,7 +49,7 @@
;;;###autoload
(defun +present|remove-overlays ()
(mapc 'delete-overlay +present--overlays-list)
(mapc #'delete-overlay +present--overlays-list)
(remove-from-invisibility-spec '(+present)))
;;;###autoload
@ -63,7 +63,7 @@
(unless (cl-remove-if-not (lambda (buf) (buffer-local-value 'org-tree-slide-mode buf))
(doom-buffers-in-mode 'org-mode))
(org-tree-slide-mode -1)
(remove-hook 'kill-buffer-hook '+present--cleanup-org-tree-slides-mode)))
(remove-hook 'kill-buffer-hook #'+present--cleanup-org-tree-slides-mode)))
(defun +present--make-invisible (beg end)
(let ((overlay (make-overlay beg end)))

15
modules/app/present/config.el
View file

@ -52,8 +52,8 @@
:init
(after! org
(map! :map org-mode-map
"<f8>" '+present/org-tree-slides
"<f7>" '+present/next))
"<f8>" #'+present/org-tree-slides
"<f7>" #'+present/next))
:config
(setq org-tree-slide-skip-outline-level 2
org-tree-slide-activate-message " "
@ -62,11 +62,11 @@
(org-tree-slide-simple-profile)
(map! :map org-tree-slide-mode-map
[right] 'org-tree-slide-move-next-tree
[left] 'org-tree-slide-move-previous-tree)
[right] #'org-tree-slide-move-next-tree
[left] #'org-tree-slide-move-previous-tree)
(add-hook! 'org-tree-slide-mode-after-narrow-hook
'(+present|detect-slide +present|add-overlays org-display-inline-images))
#'(+present|detect-slide +present|add-overlays org-display-inline-images))
(add-hook! 'org-tree-slide-mode-hook
(doom/window-zoom)
@ -102,7 +102,6 @@
(when (and (org-at-heading-p) (not (eobp))) (backward-char 1))
(point)))))))))
(apply orig-fn args)))
(advice-add 'org-tree-slide--display-tree-with-narrow
:around '+present*org-tree-slide-narrow-exclude-header)))
(advice-add #'org-tree-slide--display-tree-with-narrow
:around #'+present*org-tree-slide-narrow-exclude-header)))