40 lines
1.1 KiB
EmacsLisp
40 lines
1.1 KiB
EmacsLisp
;;; ui.el
|
|
|
|
;;;###autoload
|
|
(defun doom/toggle-fullscreen ()
|
|
"Toggle fullscreen Emacs."
|
|
(interactive)
|
|
(set-frame-parameter
|
|
nil 'fullscreen
|
|
(unless (frame-parameter nil 'fullscreen)
|
|
'fullboth)))
|
|
|
|
;;;###autoload
|
|
(defun doom/toggle-line-numbers ()
|
|
"Toggle `nlinum-mode'."
|
|
(interactive)
|
|
(nlinum-mode (if nlinum-mode -1 +1)))
|
|
|
|
;;;###autoload
|
|
(defun doom/reset-theme ()
|
|
"Reset the color theme currently in use."
|
|
(interactive)
|
|
(let ((theme (car-safe custom-enabled-themes)))
|
|
(when theme
|
|
(mapc #'disable-theme custom-enabled-themes))
|
|
(load-theme theme t)))
|
|
|
|
;;;###autoload
|
|
(defun doom/window-zoom ()
|
|
"Maximize and isolate the current buffer. Activate again to undo this. If the
|
|
window changes before then, the undo expires."
|
|
(interactive)
|
|
(unless (one-window-p)
|
|
(setq doom-window-zoomed nil))
|
|
(if doom-window-zoomed
|
|
(progn
|
|
(set-window-configuration doom-window-zoomed)
|
|
(setq doom-window-zoomed nil))
|
|
(unless (one-window-p t)
|
|
(setq doom-window-zoomed (current-window-configuration))
|
|
(delete-other-windows))))
|