From 4efaabaf272a557e68e7dd0e183afee3ef7ef4bc Mon Sep 17 00:00:00 2001 From: Po Lu Date: Mon, 3 Jan 2022 10:16:06 +0000 Subject: [PATCH] Implement AC line status for the Haiku battery function * lisp/battery.el (battery--search-haiku-acpi-status): Return `fully-charged' instead of `normal'. (battery-haiku-acpi-battery): Implement %L for AC line status. --- lisp/battery.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/battery.el b/lisp/battery.el index f4d59f30bbb..45334163fa6 100644 --- a/lisp/battery.el +++ b/lisp/battery.el @@ -651,7 +651,7 @@ Last Full Charge \\([[:digit:]]+\\)") ((not (zerop (logand state 2))) 'charging) ((not (zerop (logand state 1))) 'discharging) ((not (zerop (logand state 4))) 'critical) - (t 'normal)) + (t 'fully-charged)) :design-capacity design-capacity :design-voltage design-voltage :last-full-charge last-full-charge))) @@ -663,6 +663,7 @@ This function only works on Haiku systems with an ACPI battery. The following %-sequences are provided: %c Current capacity (mAh) %r Current rate of charge or discharge +%L AC line status (verbose) %B Battery status (verbose) %b Battery status: empty means high, `-' means low, `!' means critical, and `+' means charging @@ -688,6 +689,8 @@ The following %-sequences are provided: "-") ((eq state 'critical) "!") (t "")))) + (cons ?L (if (not (eq (plist-get list :state) 'discharging)) + "on-line" "off-line")) (cons ?p (format "%.0f" (* 100 (/ (plist-get list :capacity) (plist-get list :last-full-charge)))))) -- 2.39.2