Function: doom-modeline-override-battery

doom-modeline-override-battery is a natively compiled function defined in doom-modeline-segments.el.

Signature

(doom-modeline-override-battery)

Documentation

Override default battery mode-line.

Source Code

;; Defined in /nix/store/1lcicrdd2r4b8rkc91nnn74ymk1jl6yd-emacs-packages-deps/share/emacs/site-lisp/elpa/doom-modeline-20260928.1632/doom-modeline-segments.el
(defun doom-modeline-override-battery ()
  "Override default battery mode-line."
  (if (and doom-modeline-battery
           (bound-and-true-p doom-modeline-mode))
      (progn
        (advice-add #'battery-update :override #'doom-modeline-update-battery-status)
        (when (not (memq 'battery-mode-line-string doom-modeline-tab-bar-string))
          (setq doom-modeline-tab-bar-string
                (append doom-modeline-tab-bar-string '(battery-mode-line-string))))
        (setq global-mode-string
                  (delq 'battery-mode-line-string global-mode-string))
        (and (bound-and-true-p display-battery-mode) (battery-update)))
    (progn
      (advice-remove #'battery-update #'doom-modeline-update-battery-status)
      (when (and display-battery-mode battery-status-function battery-mode-line-format
                 (not (memq 'battery-mode-line-string global-mode-string)))
        (progn
          (when (memq 'battery-mode-line-string doom-modeline-tab-bar-string)
            (setq doom-modeline-tab-bar-string
                  (delq 'battery-mode-line-string doom-modeline-tab-bar-string)))
          (setq global-mode-string
                        (append global-mode-string '(battery-mode-line-string))))))))