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

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
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