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

fix(org): restore frame layout when disabling org-tree-slide-mode

Browse source
This commit is contained in:
Henrik Lissner 2021-09-27 13:35:11 +02:00
parent 1419b9dc41
commit 5f1a26290c
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
modules/lang/org/autoload/contrib-present.el
View file

@ -62,12 +62,16 @@
(defvar cwm-frame-internal-border) (defvar cwm-frame-internal-border)
(defvar cwm-left-fringe-ratio) (defvar cwm-left-fringe-ratio)
(defvar cwm-centered-window-width) (defvar cwm-centered-window-width)
(defvar +org-present--last-wconf nil)
;;;###autoload ;;;###autoload
(defun +org-present-prettify-slide-h () (defun +org-present-prettify-slide-h ()
"TODO"
"Set up the org window for presentation." "Set up the org window for presentation."
(doom/window-maximize-buffer)
(let ((arg (if org-tree-slide-mode +1 -1))) (let ((arg (if org-tree-slide-mode +1 -1)))
(if (not org-tree-slide-mode)
(when +org-present--last-wconf
(set-window-configuration +org-present--last-wconf))
(setq +org-present--last-wconf (current-window-configuration))
(doom/window-maximize-buffer))
(when (fboundp 'centered-window-mode) (when (fboundp 'centered-window-mode)
(setq-local cwm-use-vertical-padding t) (setq-local cwm-use-vertical-padding t)
(setq-local cwm-frame-internal-border 100) (setq-local cwm-frame-internal-border 100)