[STUMP] [PATCH] Add charge_{now,full} support to sysfs-battery.

[Desmond O. Chang]

---
 contrib/battery-portable.lisp |    6 ++++--
 1 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/contrib/battery-portable.lisp b/contrib/battery-portable.lisp
index 13ae2f4..b06a492 100644
--- a/contrib/battery-portable.lisp
+++ b/contrib/battery-portable.lisp
@@ -203,8 +203,10 @@
               :unknown
               (let* ((state (sysfs-field path "status"))
                      (consumption (sysfs-int-field path "current_now"))
-                     (curr (sysfs-int-field path "energy_now"))
-                     (full (sysfs-int-field path "energy_full"))
+                     (curr (handler-case (sysfs-int-field path "energy_now")
+                             (file-error () (sysfs-int-field path 
"charge_now"))))
+                     (full (handler-case (sysfs-int-field path "energy_full")
+                             (file-error () (sysfs-int-field path 
"charge_full"))))
                      (percent (* 100 (/ curr full))))
                 (cond
                   ((string= state "Full") (values :charged percent))
-- 
1.6.4.3