eriedaberrie/.emacs.d
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Make battery checker check more standardized values

Browse source
This commit is contained in:
eriedaberrie 2024-04-23 00:43:11 -07:00
parent 89abc90a68
commit db0995ea1f
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
init.el
View file

@ -979,15 +979,15 @@
(cd "~/"))) (cd "~/")))
(defvar my-ac-previous-status t (defvar my-ac-previous-status t
"Whether battery was not in use on last check.") "Whether connected to AC during last check.")
(require 'battery) (require 'battery)
(defun my-bat-check () (defun my-bat-check ()
"Check if battery status has changed. "Check if battery status has changed.
Used to toggle `goggles-pulse', `pixel-scroll-precision-mode', and `nyan-mode'." Used to toggle `goggles-pulse', `pixel-scroll-precision-mode', and `nyan-mode'."
(let ((ac-status (not (string= (let ((ac-status (not (string=
(cdr (assq ?L (funcall battery-status-function))) (cdr (assq ?B (funcall battery-status-function)))
"BAT")))) "discharging"))))
(unless (eq ac-status my-ac-previous-status) (unless (eq ac-status my-ac-previous-status)
(setq my-ac-previous-status ac-status) (setq my-ac-previous-status ac-status)
(when (boundp 'goggles-pulse) (when (boundp 'goggles-pulse)