master 4efaabaf27: Implement AC line status for the Haiku battery function

[Po Lu]

branch: master
commit 4efaabaf272a557e68e7dd0e183afee3ef7ef4bc
Author: Po Lu <luangruo@yahoo.com>
Commit: Po Lu <luangruo@yahoo.com>

    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 f4d59f30bb..45334163fa 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))))))