[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Need a function for fbsd-battery-status.
From: |
Nikolai Nespor |
Subject: |
Re: Need a function for fbsd-battery-status. |
Date: |
Sun, 23 Nov 2008 15:35:03 +0100 |
User-agent: |
Gnus/5.11 (Gnus v5.11) Emacs/22.3 (berkeley-unix) |
(defun battery-freebsd-acpi ()
(let* ((acpi-output (split-string
(shell-command-to-string "sysctl -n hw.acpi.battery")))
(battery-life-percentage (nth 0 acpi-output))
(battery-life-time (nth 1 acpi-output))
(battery-status-terse (cond
((< (string-to-number battery-life-time)
0) "+")
((> (string-to-number battery-life-percentage)
30) "")
((< (string-to-number battery-life-percentage)
31) "-")
((< (string-to-number battery-life-percentage)
15) "!")
(t "?")))
(retval ()))
(when battery-life-percentage
(setq retval (cons (cons ?p battery-life-percentage) retval)))
(when battery-status-terse
(setq retval (cons (cons ?b battery-status-terse) retval)))
retval))
HTH, Nikolai
--
Ich verwalte sie. Ich zähle sie und zähle sie wieder.
Das ist nicht leicht. Aber ich bin ein ernsthafter Mann.
\\
---> Antoine de Saint-Exupery, "Der kleine Prinz"