Last active
December 18, 2019 18:30
-
-
Save agzam/d351d3192f637ed71473f2a8a424e6a2 to your computer and use it in GitHub Desktop.
Maximized undecorated (title-less) Emacs frame with no gaps around
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defun toggle-frame-maximized-undecorated () | |
(interactive) | |
(let* ((frame (selected-frame)) | |
(on? (and (frame-parameter frame 'undecorated) | |
(eq (frame-parameter frame 'fullscreen) 'maximized))) | |
(geom (frame-monitor-attribute 'geometry)) | |
(x (first geom)) | |
(y (second geom)) | |
(display-height (first (last geom)))) | |
(if on? | |
(progn | |
(set-frame-parameter frame 'undecorated nil) | |
(toggle-frame-maximized)) | |
(progn | |
(set-frame-position frame x y) | |
(set-frame-parameter frame 'fullscreen 'maximized) | |
(set-frame-parameter frame 'undecorated t) | |
(set-frame-height frame (- display-height 26) nil t) | |
(set-frame-position frame x y))))) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment