50 lines
1.8 KiB
EmacsLisp
50 lines
1.8 KiB
EmacsLisp
;;; ui/modeline/autoload/modeline.el -*- lexical-binding: t; -*-
|
|
|
|
;;;###autodef
|
|
(defalias 'def-modeline-format! #'doom-modeline-def-modeline)
|
|
|
|
;;;###autodef
|
|
(defalias 'def-modeline-segment! #'doom-modeline-def-segment)
|
|
|
|
;;;###autodef
|
|
(defalias 'set-modeline! #'doom-modeline-set-modeline)
|
|
|
|
|
|
(defvar +modeline--old-bar-height nil)
|
|
;;;###autoload
|
|
(defun +modeline-resize-for-font-h ()
|
|
"Adjust the modeline's height when the font size is changed by
|
|
`doom/increase-font-size' or `doom/decrease-font-size'.
|
|
|
|
Meant for `doom-change-font-size-hook'."
|
|
(unless +modeline--old-bar-height
|
|
(setq +modeline--old-bar-height doom-modeline-height))
|
|
(let ((default-height +modeline--old-bar-height)
|
|
(scale (or (frame-parameter nil 'font-scale) 0)))
|
|
(if (> scale 0)
|
|
(let* ((font-size (string-to-number
|
|
(aref (doom--font-name (frame-parameter nil 'font)
|
|
(selected-frame))
|
|
xlfd-regexp-pixelsize-subnum)))
|
|
(scale (frame-parameter nil 'font-scale)))
|
|
(setq doom-modeline-height (+ default-height (* scale doom-font-increment))))
|
|
(setq doom-modeline-height default-height))
|
|
;; already has a variable watcher in Emacs 26+
|
|
(unless EMACS26+ (doom-modeline-refresh-bars))))
|
|
|
|
;;;###autoload
|
|
(defun +modeline-update-env-in-all-windows-h (&rest _)
|
|
"Update version strings in all buffers."
|
|
(dolist (window (window-list))
|
|
(with-selected-window window
|
|
(doom-modeline-update-env)
|
|
(force-mode-line-update))))
|
|
|
|
;;;###autoload
|
|
(defun +modeline-clear-env-in-all-windows-h (&rest _)
|
|
"Blank out version strings in all buffers."
|
|
(dolist (buffer (buffer-list))
|
|
(with-current-buffer buffer
|
|
(setq doom-modeline-env--version
|
|
(bound-and-true-p doom-modeline-load-string))))
|
|
(force-mode-line-update t))
|