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

Improve doom/toggle-fullscreen #397

Browse source
This commit is contained in:
Henrik Lissner 2018-02-01 17:42:39 -05:00
parent 08b2cc8ea3
commit c9e8be1f60
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 12 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

17
core/autoload/ui.el
View file

@ -2,12 +2,19 @@
;;;###autoload ;;;###autoload
(defun doom/toggle-fullscreen () (defun doom/toggle-fullscreen ()
"Toggle fullscreen Emacs (non-native on MacOS)." "Toggle fullscreen for the current frame using non-native fullscreen. If you
prefer native fullscreen, use `toggle-frame-fullscreen' instead."
(interactive) (interactive)
(set-frame-parameter (modify-frame-parameters
nil 'fullscreen nil
(unless (frame-parameter nil 'fullscreen) `((maximized
'fullboth))) . ,(unless (memq (frame-parameter nil 'fullscreen) '(fullscreen fullboth))
(frame-parameter nil 'fullscreen)))
(fullscreen
. ,(if (memq (frame-parameter nil 'fullscreen) '(fullscreen fullboth))
(when (eq (frame-parameter nil 'maximized) 'maximized)
'maximized)
'fullboth)))))
(defvar doom--line-number-style doom-line-numbers-style) (defvar doom--line-number-style doom-line-numbers-style)
;;;###autoload ;;;###autoload