[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[STUMP] [PATCH] Add charge_{now,full} support to sysfs-battery.
From: |
Desmond O. Chang |
Subject: |
[STUMP] [PATCH] Add charge_{now,full} support to sysfs-battery. |
Date: |
Wed, 30 Sep 2009 17:57:55 +0800 |
---
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
- [STUMP] [PATCH] Add charge_{now,full} support to sysfs-battery.,
Desmond O. Chang <=