1 |
;;; battery.el --- display battery status information |
;;; battery.el --- display battery status information |
2 |
|
|
3 |
;; Copyright (C) 1997, 1998, 2000, 2001 Free Software Foundation, Inc. |
;; Copyright (C) 1997, 1998, 2000, 2001, 2003 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Ralph Schleicher <rs@nunatak.allgaeu.org> |
;; Author: Ralph Schleicher <rs@nunatak.allgaeu.org> |
6 |
;; Keywords: hardware |
;; Keywords: hardware |
24 |
|
|
25 |
;;; Commentary: |
;;; Commentary: |
26 |
|
|
27 |
;; There is at present only a function interpreting the new `/proc/apm' |
;; There is at present support for interpreting the new `/proc/apm' |
28 |
;; file format of Linux version 1.3.58 or newer. That is, what a lucky |
;; file format of Linux version 1.3.58 or newer and for the `/proc/acpi/' |
29 |
;; coincidence, exactly the interface provided by the author's laptop. |
;; directory structure of Linux 2.4.20 and 2.6. |
30 |
|
|
31 |
;;; Code: |
;;; Code: |
32 |
|
|
308 |
(cons ?r (or (and rate (number-to-string rate)) "N/A")) |
(cons ?r (or (and rate (number-to-string rate)) "N/A")) |
309 |
(cons ?B (or charging-state "N/A")) |
(cons ?B (or charging-state "N/A")) |
310 |
(cons ?b (or (and (string= charging-state "charging") "+") |
(cons ?b (or (and (string= charging-state "charging") "+") |
|
(and warn (< capacity warn) "-") |
|
311 |
(and low (< capacity low) "!") |
(and low (< capacity low) "!") |
312 |
|
(and warn (< capacity warn) "-") |
313 |
"")) |
"")) |
314 |
(cons ?h (or (and hours (number-to-string hours)) "N/A")) |
(cons ?h (or (and hours (number-to-string hours)) "N/A")) |
315 |
(cons ?m (or (and minutes (number-to-string minutes)) "N/A")) |
(cons ?m (or (and minutes (number-to-string minutes)) "N/A")) |