Re: Need a function for fbsd-battery-status.

[Nikolai Nespor]

(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"