From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Chong Yidong Newsgroups: gmane.emacs.devel Subject: Battery update Date: Thu, 07 Aug 2008 12:35:39 -0400 Message-ID: <87bq04dbqc.fsf@stupidchicken.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: ger.gmane.org 1218127013 21274 80.91.229.12 (7 Aug 2008 16:36:53 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Thu, 7 Aug 2008 16:36:53 +0000 (UTC) Cc: 643@emacsbugs.donarmstrong.com, Emre Sahin To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Thu Aug 07 18:37:44 2008 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1KR8UY-0003UU-LY for ged-emacs-devel@m.gmane.org; Thu, 07 Aug 2008 18:37:34 +0200 Original-Received: from localhost ([127.0.0.1]:58715 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1KR8Tc-0002HE-Vo for ged-emacs-devel@m.gmane.org; Thu, 07 Aug 2008 12:36:37 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1KR8Sh-0001rv-DD for emacs-devel@gnu.org; Thu, 07 Aug 2008 12:35:39 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1KR8Se-0001qt-GX for emacs-devel@gnu.org; Thu, 07 Aug 2008 12:35:38 -0400 Original-Received: from [199.232.76.173] (port=36041 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1KR8Se-0001qk-7V for emacs-devel@gnu.org; Thu, 07 Aug 2008 12:35:36 -0400 Original-Received: from cyd.mit.edu ([18.115.2.24]:50295 helo=cyd) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1KR8Se-0000kr-1F for emacs-devel@gnu.org; Thu, 07 Aug 2008 12:35:36 -0400 Original-Received: by cyd (Postfix, from userid 1000) id 11B6257E17C; Thu, 7 Aug 2008 12:35:39 -0400 (EDT) X-detected-kernel: by monty-python.gnu.org: Linux 2.6 (newer, 3) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:102164 Archived-At: The Linux kernel developers have deprecated the longstanding /proc/acpi interface, which breaks battery.el on recent kernels (bug#643 and bug#660). Now, the battery information is supposed to come through sysfs. Even though it's the feature freeze, I think it's necessary to ensure that battery.el works at least at a basic level. So, here's a patch that adds primitive sysfs support for battery.el. It doesn't do as much as before, because AFAICT the new sysfs interface provides less information than the old acpi interface (go figure). It's lightly tested. Could someone try this out and see if it does the right thing? *** trunk/lisp/battery.el.~1.46.~ 2008-05-06 03:57:26.000000000 -0400 --- trunk/lisp/battery.el 2008-08-07 12:34:45.000000000 -0400 *************** *** 47,52 **** --- 47,56 ---- ((and (eq system-type 'gnu/linux) (file-directory-p "/proc/acpi/battery")) 'battery-linux-proc-acpi) + ((and (eq system-type 'gnu/linux) + (file-directory-p "/sys/class/power_supply/") + (directory-files "/sys/class/power_supply/" nil "BAT[0-9]$")) + 'battery-linux-sysfs) ((and (eq system-type 'darwin) (condition-case nil (with-temp-buffer *************** *** 70,75 **** --- 74,81 ---- (defcustom battery-echo-area-format (cond ((eq battery-status-function 'battery-linux-proc-acpi) "Power %L, battery %B at %r (%p%% load, remaining time %t)") + ((eq battery-status-function 'battery-linux-sysfs) + "Power %L, battery %B (%p%% load)") ((eq battery-status-function 'battery-pmset) "%L power, battery %B (%p%% load, remaining time %t)") (battery-status-function *************** *** 276,282 **** (defun battery-linux-proc-acpi () "Get ACPI status information from Linux kernel. ! This function works only with the new `/proc/acpi/' format introduced in Linux version 2.4.20 and 2.6.0. The following %-sequences are provided: --- 282,288 ---- (defun battery-linux-proc-acpi () "Get ACPI status information from Linux kernel. ! This function works only with the `/proc/acpi/' format introduced in Linux version 2.4.20 and 2.6.0. The following %-sequences are provided: *************** *** 390,395 **** --- 396,480 ---- "N/A"))))) + ;;; `/sys/class/power_supply/BATN' interface for Linux. + + (defun battery-linux-sysfs () + "Get ACPI status information from Linux kernel. + This function works only with the new `/sys/class/power_supply/BAT' + format introduced in Linux version 2.4.25. + + The following %-sequences are provided: + %c Current capacity (mAh or mWh) + %B Battery status (verbose) + %p Battery load percentage + %L AC line status (verbose)" + (let (charging-state + (charge-full 0) + (charge-now 0) + (energy-full 0) + (energy-now 0)) + ;; SysFS provides information about each battery present in the + ;; system in a separate subdirectory. We are going to merge the + ;; available information together. + (with-temp-buffer + (dolist (dir (ignore-errors + (directory-files + "/sys/class/power_supply/" t "BAT[0-9]$"))) + (erase-buffer) + (ignore-errors (insert-file-contents + (expand-file-name "uevent" dir))) + (when (re-search-forward "POWER_SUPPLY_PRESENT=1$" nil t) + (goto-char (point-min)) + (and (re-search-forward "POWER_SUPPLY_STATUS=\\(.*\\)$" nil t) + ;; On most multi-battery systems, most of the time only + ;; one battery is "charging"/"discharging", the others + ;; are "unknown". + (member charging-state '("Unknown" "Full" nil)) + (setq charging-state (match-string 1))) + (let (full-string now-string) + ;; Energy or charge + (cond ((and (re-search-forward + "POWER_SUPPLY_CHARGE_FULL=\\([0-9]*\\)$" nil t) + (setq full-string (match-string 1)) + (re-search-forward + "POWER_SUPPLY_CHARGE_NOW=\\([0-9]*\\)$" nil t) + (setq now-string (match-string 1))) + (setq charge-full (+ charge-full + (string-to-number full-string)) + charge-now (+ charge-now + (string-to-number now-string)))) + ((and (re-search-forward + "POWER_SUPPLY_ENERGY_FULL=\\([0-9]*\\)$" nil t) + (setq full-string (match-string 1)) + (re-search-forward + "POWER_SUPPLY_ENERGY_NOW=\\([0-9]*\\)$" nil t) + (setq now-string (match-string 1))) + (setq energy-full (+ energy-full + (string-to-number full-string)) + energy-now (+ energy-now + (string-to-number now-string))))))))) + (list (cons ?c (cond ((or (> charge-full 0) (> charge-now 0)) + (number-to-string charge-now)) + ((or (> energy-full 0) (> energy-now 0)) + (number-to-string energy-now)) + (t "N/A"))) + (cons ?B (or charging-state "N/A")) + (cons ?p (cond ((> charge-full 0) + (format "%.1f" + (/ (* 100 charge-now) (float charge-full)))) + ((> energy-full 0) + (format "%.1f" + (/ (* 100 energy-now) (float energy-full)))) + (t "N/A"))) + (cons ?L (if (file-readable-p "/sys/class/power_supply/AC/online") + (if (battery-search-for-one-match-in-files + "/sys/class/power_supply/AC/online" "1" 0) + "AC" + "BAT") + "N/A"))))) + + + ;;; `pmset' interface for Darwin (OS X). (defun battery-pmset ()