C Mode: Fix mis-fontification of macro invocation as function declaration
[emacs.git] / lisp / battery.el
blob1b58489161e9dd995940aad5535748b8794cf543
1 ;;; battery.el --- display battery status information
3 ;; Copyright (C) 1997-1998, 2000-2016 Free Software Foundation, Inc.
5 ;; Author: Ralph Schleicher <rs@nunatak.allgaeu.org>
6 ;; Keywords: hardware
8 ;; This file is part of GNU Emacs.
10 ;; GNU Emacs is free software: you can redistribute it and/or modify
11 ;; it under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation, either version 3 of the License, or
13 ;; (at your option) any later version.
15 ;; GNU Emacs is distributed in the hope that it will be useful,
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details.
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
23 ;;; Commentary:
25 ;; There is at present support for GNU/Linux, OS X and Windows. This
26 ;; library supports both the `/proc/apm' file format of Linux version
27 ;; 1.3.58 or newer and the `/proc/acpi/' directory structure of Linux
28 ;; 2.4.20 and 2.6. Darwin (OS X) is supported by using the `pmset'
29 ;; program. Windows is supported by the GetSystemPowerStatus API call.
31 ;;; Code:
33 (require 'timer)
34 (eval-when-compile (require 'cl-lib))
36 (defgroup battery nil
37 "Display battery status information."
38 :prefix "battery-"
39 :group 'hardware)
41 (defcustom battery-linux-sysfs-regexp "[bB][aA][tT][0-9]?$"
42 "Regexp for folder names to be searched under
43 /sys/class/power_supply/ that contain battery information."
44 :version "25.2"
45 :type 'regexp
46 :group 'battery)
48 (defcustom battery-status-function
49 (cond ((and (eq system-type 'gnu/linux)
50 (file-readable-p "/proc/apm"))
51 #'battery-linux-proc-apm)
52 ((and (eq system-type 'gnu/linux)
53 (file-directory-p "/proc/acpi/battery"))
54 #'battery-linux-proc-acpi)
55 ((and (eq system-type 'gnu/linux)
56 (file-directory-p "/sys/class/power_supply/")
57 (directory-files "/sys/class/power_supply/" nil
58 battery-linux-sysfs-regexp))
59 #'battery-linux-sysfs)
60 ((and (eq system-type 'berkeley-unix)
61 (file-executable-p "/usr/sbin/apm"))
62 #'battery-bsd-apm)
63 ((and (eq system-type 'darwin)
64 (condition-case nil
65 (with-temp-buffer
66 (and (eq (call-process "pmset" nil t nil "-g" "ps") 0)
67 (> (buffer-size) 0)))
68 (error nil)))
69 #'battery-pmset)
70 ((fboundp 'w32-battery-status)
71 #'w32-battery-status))
72 "Function for getting battery status information.
73 The function has to return an alist of conversion definitions.
74 Its cons cells are of the form
76 (CONVERSION . REPLACEMENT-TEXT)
78 CONVERSION is the character code of a \"conversion specification\"
79 introduced by a `%' character in a control string."
80 :type '(choice (const nil) function)
81 :group 'battery)
83 (defcustom battery-echo-area-format
84 "Power %L, battery %B (%p%% load, remaining time %t)"
85 "Control string formatting the string to display in the echo area.
86 Ordinary characters in the control string are printed as-is, while
87 conversion specifications introduced by a `%' character in the control
88 string are substituted as defined by the current value of the variable
89 `battery-status-function'. Here are the ones generally available:
90 %c Current capacity (mAh or mWh)
91 %r Current rate of charge or discharge
92 %B Battery status (verbose)
93 %b Battery status: empty means high, `-' means low,
94 `!' means critical, and `+' means charging
95 %d Temperature (in degrees Celsius)
96 %L AC line status (verbose)
97 %p Battery load percentage
98 %m Remaining time (to charge or discharge) in minutes
99 %h Remaining time (to charge or discharge) in hours
100 %t Remaining time (to charge or discharge) in the form `h:min'"
101 :type '(choice string (const nil))
102 :group 'battery)
104 (defvar battery-mode-line-string nil
105 "String to display in the mode line.")
106 ;;;###autoload (put 'battery-mode-line-string 'risky-local-variable t)
108 (defcustom battery-mode-line-limit 100
109 "Percentage of full battery load below which display battery status"
110 :version "24.1"
111 :type 'integer
112 :group 'battery)
114 (defcustom battery-mode-line-format
115 (cond ((eq battery-status-function 'battery-linux-proc-acpi)
116 "[%b%p%%,%d°C]")
117 (battery-status-function
118 "[%b%p%%]"))
119 "Control string formatting the string to display in the mode line.
120 Ordinary characters in the control string are printed as-is, while
121 conversion specifications introduced by a `%' character in the control
122 string are substituted as defined by the current value of the variable
123 `battery-status-function'. Here are the ones generally available:
124 %c Current capacity (mAh or mWh)
125 %r Current rate of charge or discharge
126 %B Battery status (verbose)
127 %b Battery status: empty means high, `-' means low,
128 `!' means critical, and `+' means charging
129 %d Temperature (in degrees Celsius)
130 %L AC line status (verbose)
131 %p Battery load percentage
132 %m Remaining time (to charge or discharge) in minutes
133 %h Remaining time (to charge or discharge) in hours
134 %t Remaining time (to charge or discharge) in the form `h:min'"
135 :type '(choice string (const nil))
136 :group 'battery)
138 (defcustom battery-update-interval 60
139 "Seconds after which the battery status will be updated."
140 :type 'integer
141 :group 'battery)
143 (defcustom battery-load-low 25
144 "Upper bound of low battery load percentage.
145 A battery load percentage below this number is considered low."
146 :type 'integer
147 :group 'battery)
149 (defcustom battery-load-critical 10
150 "Upper bound of critical battery load percentage.
151 A battery load percentage below this number is considered critical."
152 :type 'integer
153 :group 'battery)
155 (defvar battery-update-timer nil
156 "Interval timer object.")
158 ;;;###autoload
159 (defun battery ()
160 "Display battery status information in the echo area.
161 The text being displayed in the echo area is controlled by the variables
162 `battery-echo-area-format' and `battery-status-function'."
163 (interactive)
164 (message "%s" (if (and battery-echo-area-format battery-status-function)
165 (battery-format battery-echo-area-format
166 (funcall battery-status-function))
167 "Battery status not available")))
169 ;;;###autoload
170 (define-minor-mode display-battery-mode
171 "Toggle battery status display in mode line (Display Battery mode).
172 With a prefix argument ARG, enable Display Battery mode if ARG is
173 positive, and disable it otherwise. If called from Lisp, enable
174 the mode if ARG is omitted or nil.
176 The text displayed in the mode line is controlled by
177 `battery-mode-line-format' and `battery-status-function'.
178 The mode line is be updated every `battery-update-interval'
179 seconds."
180 :global t :group 'battery
181 (setq battery-mode-line-string "")
182 (or global-mode-string (setq global-mode-string '("")))
183 (and battery-update-timer (cancel-timer battery-update-timer))
184 (if (and battery-status-function battery-mode-line-format)
185 (if (not display-battery-mode)
186 (setq global-mode-string
187 (delq 'battery-mode-line-string global-mode-string))
188 (add-to-list 'global-mode-string 'battery-mode-line-string t)
189 (setq battery-update-timer (run-at-time nil battery-update-interval
190 'battery-update-handler))
191 (battery-update))
192 (message "Battery status not available")
193 (setq display-battery-mode nil)))
195 (defun battery-update-handler ()
196 (battery-update)
197 (sit-for 0))
199 (defun battery-update ()
200 "Update battery status information in the mode line."
201 (let* ((data (and battery-status-function (funcall battery-status-function)))
202 (percentage (car (read-from-string (cdr (assq ?p data))))))
203 (setq battery-mode-line-string
204 (propertize (if (and battery-mode-line-format
205 (numberp percentage)
206 (<= percentage battery-mode-line-limit))
207 (battery-format battery-mode-line-format data)
209 'face
210 (and (numberp percentage)
211 (<= percentage battery-load-critical)
212 'error)
213 'help-echo "Battery status information")))
214 (force-mode-line-update))
216 ;;; `/proc/apm' interface for Linux.
218 (defconst battery-linux-proc-apm-regexp
219 (concat "^\\([^ ]+\\)" ; Driver version.
220 " \\([^ ]+\\)" ; APM BIOS version.
221 " 0x\\([0-9a-f]+\\)" ; APM BIOS flags.
222 " 0x\\([0-9a-f]+\\)" ; AC line status.
223 " 0x\\([0-9a-f]+\\)" ; Battery status.
224 " 0x\\([0-9a-f]+\\)" ; Battery flags.
225 " \\(-?[0-9]+\\)%" ; Load percentage.
226 " \\(-?[0-9]+\\)" ; Remaining time.
227 " \\(.*\\)" ; Time unit.
228 "$")
229 "Regular expression matching contents of `/proc/apm'.")
231 (defun battery-linux-proc-apm ()
232 "Get APM status information from Linux (the kernel).
233 This function works only with the new `/proc/apm' format introduced
234 in Linux version 1.3.58.
236 The following %-sequences are provided:
237 %v Linux driver version
238 %V APM BIOS version
239 %I APM BIOS status (verbose)
240 %L AC line status (verbose)
241 %B Battery status (verbose)
242 %b Battery status, empty means high, `-' means low,
243 `!' means critical, and `+' means charging
244 %p Battery load percentage
245 %s Remaining time (to charge or discharge) in seconds
246 %m Remaining time (to charge or discharge) in minutes
247 %h Remaining time (to charge or discharge) in hours
248 %t Remaining time (to charge or discharge) in the form `h:min'"
249 (let (driver-version bios-version bios-interface line-status
250 battery-status battery-status-symbol load-percentage
251 seconds minutes hours remaining-time tem)
252 (with-temp-buffer
253 (ignore-errors (insert-file-contents "/proc/apm"))
254 (when (re-search-forward battery-linux-proc-apm-regexp)
255 (setq driver-version (match-string 1))
256 (setq bios-version (match-string 2))
257 (setq tem (string-to-number (match-string 3) 16))
258 (if (not (logand tem 2))
259 (setq bios-interface "not supported")
260 (setq bios-interface "enabled")
261 (cond ((logand tem 16) (setq bios-interface "disabled"))
262 ((logand tem 32) (setq bios-interface "disengaged")))
263 (setq tem (string-to-number (match-string 4) 16))
264 (cond ((= tem 0) (setq line-status "off-line"))
265 ((= tem 1) (setq line-status "on-line"))
266 ((= tem 2) (setq line-status "on backup")))
267 (setq tem (string-to-number (match-string 6) 16))
268 (if (= tem 255)
269 (setq battery-status "N/A")
270 (setq tem (string-to-number (match-string 5) 16))
271 (cond ((= tem 0) (setq battery-status "high"
272 battery-status-symbol ""))
273 ((= tem 1) (setq battery-status "low"
274 battery-status-symbol "-"))
275 ((= tem 2) (setq battery-status "critical"
276 battery-status-symbol "!"))
277 ((= tem 3) (setq battery-status "charging"
278 battery-status-symbol "+")))
279 (setq load-percentage (match-string 7))
280 (setq seconds (string-to-number (match-string 8)))
281 (and (string-equal (match-string 9) "min")
282 (setq seconds (* 60 seconds)))
283 (setq minutes (/ seconds 60)
284 hours (/ seconds 3600))
285 (setq remaining-time
286 (format "%d:%02d" hours (- minutes (* 60 hours))))))))
287 (list (cons ?v (or driver-version "N/A"))
288 (cons ?V (or bios-version "N/A"))
289 (cons ?I (or bios-interface "N/A"))
290 (cons ?L (or line-status "N/A"))
291 (cons ?B (or battery-status "N/A"))
292 (cons ?b (or battery-status-symbol ""))
293 (cons ?p (or load-percentage "N/A"))
294 (cons ?s (or (and seconds (number-to-string seconds)) "N/A"))
295 (cons ?m (or (and minutes (number-to-string minutes)) "N/A"))
296 (cons ?h (or (and hours (number-to-string hours)) "N/A"))
297 (cons ?t (or remaining-time "N/A")))))
300 ;;; `/proc/acpi/' interface for Linux.
302 (defun battery-linux-proc-acpi ()
303 "Get ACPI status information from Linux (the kernel).
304 This function works only with the `/proc/acpi/' format introduced
305 in Linux version 2.4.20 and 2.6.0.
307 The following %-sequences are provided:
308 %c Current capacity (mAh)
309 %r Current rate
310 %B Battery status (verbose)
311 %b Battery status, empty means high, `-' means low,
312 `!' means critical, and `+' means charging
313 %d Temperature (in degrees Celsius)
314 %L AC line status (verbose)
315 %p Battery load percentage
316 %m Remaining time (to charge or discharge) in minutes
317 %h Remaining time (to charge or discharge) in hours
318 %t Remaining time (to charge or discharge) in the form `h:min'"
319 (let ((design-capacity 0)
320 (last-full-capacity 0)
321 full-capacity
322 (warn 0)
323 (low 0)
324 capacity rate rate-type charging-state minutes hours)
325 ;; ACPI provides information about each battery present in the system in
326 ;; a separate subdirectory. We are going to merge the available
327 ;; information together since displaying for a variable amount of
328 ;; batteries seems overkill for format-strings.
329 (with-temp-buffer
330 (dolist (dir (ignore-errors (directory-files "/proc/acpi/battery/"
331 t "\\`[^.]")))
332 (erase-buffer)
333 (ignore-errors (insert-file-contents (expand-file-name "state" dir)))
334 (when (re-search-forward "present: +yes$" nil t)
335 (and (re-search-forward "charging state: +\\(.*\\)$" nil t)
336 (member charging-state '("unknown" "charged" nil))
337 ;; On most multi-battery systems, most of the time only one
338 ;; battery is "charging"/"discharging", the others are
339 ;; "unknown".
340 (setq charging-state (match-string 1)))
341 (when (re-search-forward "present rate: +\\([0-9]+\\) \\(m[AW]\\)$"
342 nil t)
343 (setq rate (+ (or rate 0) (string-to-number (match-string 1))))
344 (when (> rate 0)
345 (setq rate-type (or (and rate-type
346 (if (string= rate-type (match-string 2))
347 rate-type
348 (error
349 "Inconsistent rate types (%s vs. %s)"
350 rate-type (match-string 2))))
351 (match-string 2)))))
352 (when (re-search-forward "remaining capacity: +\\([0-9]+\\) m[AW]h$"
353 nil t)
354 (setq capacity
355 (+ (or capacity 0) (string-to-number (match-string 1))))))
356 (goto-char (point-max))
357 (ignore-errors (insert-file-contents (expand-file-name "info" dir)))
358 (when (re-search-forward "present: +yes$" nil t)
359 (when (re-search-forward "design capacity: +\\([0-9]+\\) m[AW]h$"
360 nil t)
361 (cl-incf design-capacity (string-to-number (match-string 1))))
362 (when (re-search-forward "last full capacity: +\\([0-9]+\\) m[AW]h$"
363 nil t)
364 (cl-incf last-full-capacity (string-to-number (match-string 1))))
365 (when (re-search-forward
366 "design capacity warning: +\\([0-9]+\\) m[AW]h$" nil t)
367 (cl-incf warn (string-to-number (match-string 1))))
368 (when (re-search-forward "design capacity low: +\\([0-9]+\\) m[AW]h$"
369 nil t)
370 (cl-incf low (string-to-number (match-string 1)))))))
371 (setq full-capacity (if (> last-full-capacity 0)
372 last-full-capacity design-capacity))
373 (and capacity rate
374 (setq minutes (if (zerop rate) 0
375 (floor (* (/ (float (if (string= charging-state
376 "charging")
377 (- full-capacity capacity)
378 capacity))
379 rate)
380 60)))
381 hours (/ minutes 60)))
382 (list (cons ?c (or (and capacity (number-to-string capacity)) "N/A"))
383 (cons ?L (or (battery-search-for-one-match-in-files
384 (mapcar (lambda (e) (concat e "/state"))
385 (ignore-errors
386 (directory-files "/proc/acpi/ac_adapter/"
387 t "\\`[^.]")))
388 "state: +\\(.*\\)$" 1)
390 "N/A"))
391 (cons ?d (or (battery-search-for-one-match-in-files
392 (mapcar (lambda (e) (concat e "/temperature"))
393 (ignore-errors
394 (directory-files "/proc/acpi/thermal_zone/"
395 t "\\`[^.]")))
396 "temperature: +\\([0-9]+\\) C$" 1)
398 "N/A"))
399 (cons ?r (or (and rate (concat (number-to-string rate) " "
400 rate-type)) "N/A"))
401 (cons ?B (or charging-state "N/A"))
402 (cons ?b (or (and (string= charging-state "charging") "+")
403 (and capacity (< capacity low) "!")
404 (and capacity (< capacity warn) "-")
405 ""))
406 (cons ?h (or (and hours (number-to-string hours)) "N/A"))
407 (cons ?m (or (and minutes (number-to-string minutes)) "N/A"))
408 (cons ?t (or (and minutes
409 (format "%d:%02d" hours (- minutes (* 60 hours))))
410 "N/A"))
411 (cons ?p (or (and full-capacity capacity
412 (> full-capacity 0)
413 (number-to-string
414 (floor (/ capacity
415 (/ (float full-capacity) 100)))))
416 "N/A")))))
419 ;;; `/sys/class/power_supply/BATN' interface for Linux.
421 (defun battery-linux-sysfs ()
422 "Get ACPI status information from Linux kernel.
423 This function works only with the new `/sys/class/power_supply/'
424 format introduced in Linux version 2.4.25.
426 The following %-sequences are provided:
427 %c Current capacity (mAh or mWh)
428 %r Current rate
429 %B Battery status (verbose)
430 %d Temperature (in degrees Celsius)
431 %p Battery load percentage
432 %L AC line status (verbose)
433 %m Remaining time (to charge or discharge) in minutes
434 %h Remaining time (to charge or discharge) in hours
435 %t Remaining time (to charge or discharge) in the form `h:min'"
436 (let (charging-state temperature hours
437 ;; Some batteries report charges and current, other energy and power.
438 ;; In order to reliably be able to combine those data, we convert them
439 ;; all to energy/power (since we can't combine different charges if
440 ;; they're not at the same voltage).
441 (energy-full 0.0)
442 (energy-now 0.0)
443 (power-now 0.0)
444 (voltage-now 10.8)) ;Arbitrary default, in case the info is missing.
445 ;; SysFS provides information about each battery present in the
446 ;; system in a separate subdirectory. We are going to merge the
447 ;; available information together.
448 (with-temp-buffer
449 (dolist (dir (ignore-errors
450 (directory-files
451 "/sys/class/power_supply/" t
452 battery-linux-sysfs-regexp)))
453 (erase-buffer)
454 (ignore-errors (insert-file-contents
455 (expand-file-name "uevent" dir)))
456 (goto-char (point-min))
457 (when (re-search-forward
458 "POWER_SUPPLY_VOLTAGE_NOW=\\([0-9]*\\)$" nil t)
459 (setq voltage-now (/ (string-to-number (match-string 1)) 1000000.0)))
460 (goto-char (point-min))
461 (when (re-search-forward "POWER_SUPPLY_PRESENT=1$" nil t)
462 (goto-char (point-min))
463 (and (re-search-forward "POWER_SUPPLY_STATUS=\\(.*\\)$" nil t)
464 (member charging-state '("Unknown" "Full" nil))
465 (setq charging-state (match-string 1)))
466 (goto-char (point-min))
467 (when (re-search-forward
468 "POWER_SUPPLY_\\(CURRENT\\|POWER\\)_NOW=\\([0-9]*\\)$"
469 nil t)
470 (cl-incf power-now
471 (* (float (string-to-number (match-string 2)))
472 (if (eq (char-after (match-beginning 1)) ?C)
473 voltage-now 1.0))))
474 (goto-char (point-min))
475 (when (re-search-forward "POWER_SUPPLY_TEMP=\\([0-9]*\\)$" nil t)
476 (setq temperature (match-string 1)))
477 (goto-char (point-min))
478 (let (full-string now-string)
479 ;; Sysfs may list either charge (mAh) or energy (mWh).
480 ;; Keep track of both, and choose which to report later.
481 (cond ((and (re-search-forward
482 "POWER_SUPPLY_CHARGE_FULL=\\([0-9]*\\)$" nil t)
483 (setq full-string (match-string 1))
484 (re-search-forward
485 "POWER_SUPPLY_CHARGE_NOW=\\([0-9]*\\)$" nil t)
486 (setq now-string (match-string 1)))
487 (cl-incf energy-full (* (string-to-number full-string)
488 voltage-now))
489 (cl-incf energy-now (* (string-to-number now-string)
490 voltage-now)))
491 ((and (progn (goto-char (point-min)) t)
492 (re-search-forward
493 "POWER_SUPPLY_ENERGY_FULL=\\([0-9]*\\)$" nil t)
494 (setq full-string (match-string 1))
495 (re-search-forward
496 "POWER_SUPPLY_ENERGY_NOW=\\([0-9]*\\)$" nil t)
497 (setq now-string (match-string 1)))
498 (cl-incf energy-full (string-to-number full-string))
499 (cl-incf energy-now (string-to-number now-string)))))
500 (goto-char (point-min))
501 (unless (zerop power-now)
502 (let ((remaining (if (string= charging-state "Discharging")
503 energy-now
504 (- energy-full energy-now))))
505 (setq hours (/ remaining power-now)))))))
506 (list (cons ?c (cond ((or (> energy-full 0) (> energy-now 0))
507 (number-to-string (/ energy-now voltage-now)))
508 (t "N/A")))
509 (cons ?r (if (> power-now 0.0)
510 (format "%.1f" (/ power-now 1000000.0))
511 "N/A"))
512 (cons ?m (if hours (format "%d" (* hours 60)) "N/A"))
513 (cons ?h (if hours (format "%d" hours) "N/A"))
514 (cons ?t (if hours
515 (format "%d:%02d" hours (* (- hours (floor hours)) 60))
516 "N/A"))
517 (cons ?d (or temperature "N/A"))
518 (cons ?B (or charging-state "N/A"))
519 (cons ?p (cond ((and (> energy-full 0) (> energy-now 0))
520 (format "%.1f"
521 (/ (* 100 energy-now) energy-full)))
522 (t "N/A")))
523 (cons ?L (cond
524 ((battery-search-for-one-match-in-files
525 (list "/sys/class/power_supply/AC/online"
526 "/sys/class/power_supply/ACAD/online"
527 "/sys/class/power_supply/ADP1/online")
528 "1" 0)
529 "AC")
530 ((battery-search-for-one-match-in-files
531 (list "/sys/class/power_supply/AC/online"
532 "/sys/class/power_supply/ACAD/online"
533 "/sys/class/power_supply/ADP1/online")
534 "0" 0)
535 "BAT")
536 (t "N/A"))))))
539 ;;; `apm' interface for BSD.
540 (defun battery-bsd-apm ()
541 "Get APM status information from BSD apm binary.
542 The following %-sequences are provided:
543 %L AC line status (verbose)
544 %B Battery status (verbose)
545 %b Battery status, empty means high, `-' means low,
546 `!' means critical, and `+' means charging
547 %P Advanced power saving mode state (verbose)
548 %p Battery charge percentage
549 %s Remaining battery charge time in seconds
550 %m Remaining battery charge time in minutes
551 %h Remaining battery charge time in hours
552 %t Remaining battery charge time in the form `h:min'"
553 (let* ((os-name (car (split-string
554 (shell-command-to-string "/usr/bin/uname"))))
555 (apm-flag (if (equal os-name "OpenBSD") "P" "s"))
556 (apm-cmd (concat "/usr/sbin/apm -ablm" apm-flag))
557 (apm-output (split-string (shell-command-to-string apm-cmd)))
558 ;; Battery status
559 (battery-status
560 (let ((stat (string-to-number (nth 0 apm-output))))
561 (cond ((eq stat 0) '("high" . ""))
562 ((eq stat 1) '("low" . "-"))
563 ((eq stat 2) '("critical" . "!"))
564 ((eq stat 3) '("charging" . "+"))
565 ((eq stat 4) '("absent" . nil)))))
566 ;; Battery percentage
567 (battery-percentage (nth 1 apm-output))
568 ;; Battery life
569 (battery-life (nth 2 apm-output))
570 ;; AC status
571 (line-status
572 (let ((ac (string-to-number (nth 3 apm-output))))
573 (cond ((eq ac 0) "disconnected")
574 ((eq ac 1) "connected")
575 ((eq ac 2) "backup power"))))
576 ;; Advanced power savings mode
577 (apm-mode
578 (let ((apm (string-to-number (nth 4 apm-output))))
579 (if (string= os-name "OpenBSD")
580 (cond ((eq apm 0) "manual")
581 ((eq apm 1) "automatic")
582 ((eq apm 2) "cool running"))
583 (if (eq apm 1) "on" "off"))))
584 seconds minutes hours remaining-time)
585 (unless (member battery-life '("unknown" "-1"))
586 (if (member os-name '("OpenBSD" "NetBSD"))
587 (setq minutes (string-to-number battery-life)
588 seconds (* 60 minutes))
589 (setq seconds (string-to-number battery-life)
590 minutes (truncate (/ seconds 60))))
591 (setq hours (truncate (/ minutes 60))
592 remaining-time (format "%d:%02d" hours
593 (- minutes (* 60 hours)))))
594 (list (cons ?L (or line-status "N/A"))
595 (cons ?B (or (car battery-status) "N/A"))
596 (cons ?b (or (cdr battery-status) "N/A"))
597 (cons ?p (if (string= battery-percentage "255")
598 "N/A"
599 battery-percentage))
600 (cons ?P (or apm-mode "N/A"))
601 (cons ?s (or (and seconds (number-to-string seconds)) "N/A"))
602 (cons ?m (or (and minutes (number-to-string minutes)) "N/A"))
603 (cons ?h (or (and hours (number-to-string hours)) "N/A"))
604 (cons ?t (or remaining-time "N/A")))))
607 ;;; `pmset' interface for Darwin (OS X).
609 (defun battery-pmset ()
610 "Get battery status information using `pmset'.
612 The following %-sequences are provided:
613 %L Power source (verbose)
614 %B Battery status (verbose)
615 %b Battery status, empty means high, `-' means low,
616 `!' means critical, and `+' means charging
617 %p Battery load percentage
618 %h Remaining time in hours
619 %m Remaining time in minutes
620 %t Remaining time in the form `h:min'"
621 (let (power-source load-percentage battery-status battery-status-symbol
622 remaining-time hours minutes)
623 (with-temp-buffer
624 (ignore-errors (call-process "pmset" nil t nil "-g" "ps"))
625 (goto-char (point-min))
626 (when (re-search-forward "\\(?:Currentl?y\\|Now\\) drawing from '\\(AC\\|Battery\\) Power'" nil t)
627 (setq power-source (match-string 1))
628 (when (re-search-forward "^ -InternalBattery-0[ \t]+" nil t)
629 (when (looking-at "\\([0-9]\\{1,3\\}\\)%")
630 (setq load-percentage (match-string 1))
631 (goto-char (match-end 0))
632 (cond ((looking-at "; charging")
633 (setq battery-status "charging"
634 battery-status-symbol "+"))
635 ((< (string-to-number load-percentage) battery-load-critical)
636 (setq battery-status "critical"
637 battery-status-symbol "!"))
638 ((< (string-to-number load-percentage) battery-load-low)
639 (setq battery-status "low"
640 battery-status-symbol "-"))
642 (setq battery-status "high"
643 battery-status-symbol "")))
644 (when (re-search-forward "\\(\\([0-9]+\\):\\([0-9]+\\)\\) remaining" nil t)
645 (setq remaining-time (match-string 1))
646 (let ((h (string-to-number (match-string 2)))
647 (m (string-to-number (match-string 3))))
648 (setq hours (number-to-string (+ h (if (< m 30) 0 1)))
649 minutes (number-to-string (+ (* h 60) m)))))))))
650 (list (cons ?L (or power-source "N/A"))
651 (cons ?p (or load-percentage "N/A"))
652 (cons ?B (or battery-status "N/A"))
653 (cons ?b (or battery-status-symbol ""))
654 (cons ?h (or hours "N/A"))
655 (cons ?m (or minutes "N/A"))
656 (cons ?t (or remaining-time "N/A")))))
659 ;;; Private functions.
661 (defun battery-format (format alist)
662 "Substitute %-sequences in FORMAT."
663 (replace-regexp-in-string
664 "%."
665 (lambda (str)
666 (let ((char (aref str 1)))
667 (if (eq char ?%) "%"
668 (or (cdr (assoc char alist)) ""))))
669 format t t))
671 (defun battery-search-for-one-match-in-files (files regexp match-num)
672 "Search REGEXP in the content of the files listed in FILES.
673 If a match occurred, return the parenthesized expression numbered by
674 MATCH-NUM in the match. Otherwise, return nil."
675 (with-temp-buffer
676 (catch 'found
677 (dolist (file files)
678 (and (ignore-errors (insert-file-contents file nil nil nil 'replace))
679 (re-search-forward regexp nil t)
680 (throw 'found (match-string match-num)))))))
683 (provide 'battery)
685 ;;; battery.el ends here