94 lines
3.0 KiB
EmacsLisp
94 lines
3.0 KiB
EmacsLisp
;;; core/autoload/ui.el -*- lexical-binding: t; -*-
|
|
|
|
;;;###autoload
|
|
(defun doom/toggle-fullscreen ()
|
|
"Toggle fullscreen Emacs (non-native on MacOS)."
|
|
(interactive)
|
|
(set-frame-parameter
|
|
nil 'fullscreen
|
|
(unless (frame-parameter nil 'fullscreen)
|
|
'fullboth)))
|
|
|
|
;;;###autoload
|
|
(defun doom/toggle-line-numbers (&optional arg)
|
|
"Toggle `linum-mode'."
|
|
(interactive "P")
|
|
(cond ((boundp 'display-line-numbers)
|
|
(setq display-line-numbers
|
|
(pcase arg
|
|
('(4) 'relative)
|
|
(1 t)
|
|
(-1 nil)
|
|
(_ (not display-line-numbers)))))
|
|
((featurep 'nlinum)
|
|
(nlinum-mode (or arg (if nlinum-mode -1 +1))))
|
|
(t
|
|
(error "No line number plugin detected"))))
|
|
|
|
;;;###autoload
|
|
(defun doom-resize-window (window new-size &optional horizontal force-p)
|
|
"Resize a window to NEW-SIZE. If HORIZONTAL, do it width-wise.
|
|
If FORCE-P is omitted when `window-size-fixed' is non-nil, resizing will fail."
|
|
(with-selected-window (or window (selected-window))
|
|
(let ((window-size-fixed (unless force-p window-size-fixed)))
|
|
(enlarge-window (- new-size (if horizontal (window-width) (window-height)))
|
|
horizontal))))
|
|
|
|
;;;###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)
|
|
(if (and (one-window-p)
|
|
(assoc ?_ register-alist))
|
|
(jump-to-register ?_)
|
|
(window-configuration-to-register ?_)
|
|
(delete-other-windows)))
|
|
|
|
(defvar doom--window-enlargened nil)
|
|
;;;###autoload
|
|
(defun doom/window-enlargen ()
|
|
"Enlargen the current window. Activate again to undo."
|
|
(interactive)
|
|
(setq doom--window-enlargened
|
|
(if (and doom--window-enlargened
|
|
(assoc ?_ register-alist))
|
|
(ignore (jump-to-register ?_))
|
|
(window-configuration-to-register ?_)
|
|
(doom-resize-window nil (truncate (/ (frame-width) 1.2)) t)
|
|
(doom-resize-window nil (truncate (/ (frame-height) 1.2)))
|
|
t)))
|
|
|
|
;;;###autoload
|
|
(defun doom/delete-frame ()
|
|
"Delete the current frame, but ask for confirmation if it isn't empty."
|
|
(interactive)
|
|
(if (cdr (frame-list))
|
|
(when (doom-quit-p "Close frame?")
|
|
(delete-frame))
|
|
(save-buffers-kill-emacs)))
|
|
|
|
;;;###autoload
|
|
(defun doom/reload-theme ()
|
|
"Reset the color theme currently in use."
|
|
(interactive)
|
|
(let ((theme (or (car-safe custom-enabled-themes) doom-theme)))
|
|
(when theme
|
|
(mapc #'disable-theme custom-enabled-themes))
|
|
(run-hooks 'doom-pre-reload-theme-hook)
|
|
(doom|init-ui)
|
|
(run-hooks 'doom-post-reload-theme-hook)))
|
|
|
|
;;;###autoload
|
|
(define-minor-mode doom-big-font-mode
|
|
"A global mode that resizes the font, for streams, screen-sharing and
|
|
presentations."
|
|
:init-value nil
|
|
:lighter " BIG"
|
|
:global t
|
|
(unless (fontp doom-big-font)
|
|
(user-error "`doom-big-font' isn't set to a valid font"))
|
|
(if doom-big-font-mode
|
|
(set-frame-font doom-big-font t t)
|
|
(set-frame-font doom-font t t)))
|