17 lines
710 B
EmacsLisp
17 lines
710 B
EmacsLisp
;;; ui/doom-modeline/autoload.el -*- lexical-binding: t; -*-
|
|
|
|
(defvar +doom-modeline--old-height nil)
|
|
|
|
;;;###autoload
|
|
(defun +doom-modeline|resize-for-big-font ()
|
|
"Adjust the modeline's height when `doom-big-font-mode' is enabled. This was
|
|
made to be added to `doom-big-font-mode-hook'."
|
|
(if doom-big-font-mode
|
|
(let* ((font-size (font-get doom-font :size))
|
|
(big-size (font-get doom-big-font :size))
|
|
(ratio (/ (float big-size) font-size)))
|
|
(setq +doom-modeline--old-height +doom-modeline-height
|
|
+doom-modeline-height (ceiling (* +doom-modeline--old-height ratio))))
|
|
(setq +doom-modeline-height +doom-modeline--old-height))
|
|
(+doom-modeline|init))
|
|
|