procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Extend battery.el to exotic power supply types

Browse source 
* lisp/battery.el (battery-linux-sysfs-regexp): Rename from
'battery--linux-sysfs-regexp' and make a defcustom. All users
changed.  (Bug#23216)
This commit is contained in:
Matthew Leach 2016-04-16 14:39:35 +03:00 • committed by Eli Zaretskii
parent e390b7b546
commit 934549e23d
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/battery.el
View file

@ -38,8 +38,12 @@
:prefix "battery-"
:group 'hardware)
;; Either BATn or yeeloong-bat, basically.
(defconst battery--linux-sysfs-regexp "[bB][aA][tT][0-9]?$")
(defcustom battery-linux-sysfs-regexp "[bB][aA][tT][0-9]?$"
"Regexp for folder names to be searched under
/sys/class/power_supply/ that contain battery information."
:version "25.2"
:type 'regexp
:group 'battery)
(defcustom battery-status-function
(cond ((and (eq system-type 'gnu/linux)
@ -51,7 +55,7 @@
((and (eq system-type 'gnu/linux)
(file-directory-p "/sys/class/power_supply/")
(directory-files "/sys/class/power_supply/" nil
battery--linux-sysfs-regexp))
battery-linux-sysfs-regexp))
#'battery-linux-sysfs)
((and (eq system-type 'berkeley-unix)
(file-executable-p "/usr/sbin/apm"))
@ -445,7 +449,7 @@ The following %-sequences are provided:
(dolist (dir (ignore-errors
(directory-files
"/sys/class/power_supply/" t
battery--linux-sysfs-regexp)))
battery-linux-sysfs-regexp)))
(erase-buffer)
(ignore-errors (insert-file-contents
(expand-file-name "uevent" dir)))