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

[anhnmncb]

Nikolai Nespor <address@hidden> writes:

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

Nice, thank you :)