awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

:fullscreen! toggles writeroom

Browse Source
This commit is contained in:
Henrik Lissner
2015-11-01 16:10:33 -05:00
parent 71546e6ee8
commit d5d1d29d5a
1 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
core/lib/defuns-ui.el
View File

@ -11,10 +11,12 @@
(set-frame-parameter nil 'alpha 0)))) (set-frame-parameter nil 'alpha 0))))
;;;###autoload ;;;###autoload
(defun narf:toggle-fullscreen () (evil-define-command narf:toggle-fullscreen (&optional bang)
(interactive) (interactive "<!>")
(if bang
(writeroom-mode (if writeroom-mode -1 1))
(set-frame-parameter nil 'fullscreen (set-frame-parameter nil 'fullscreen
(when (not (frame-parameter nil 'fullscreen)) 'fullboth))) (when (not (frame-parameter nil 'fullscreen)) 'fullboth))))
(defvar narf--big-mode nil) (defvar narf--big-mode nil)
;;;###autoload ;;;###autoload