Current File : //usr/local/share/emacs/27.2/lisp/battery.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
(< (aref emacs-version (1- (length emacs-version))) ?A)
(string-lessp emacs-version "23")
(error "`%s' was compiled for Emacs 23 or later" #$))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\210\312\313\314\315\316\317\320\321\310\303& \207" [require timer custom-declare-group battery nil "Display battery status information." :prefix "battery-" :group hardware custom-declare-variable battery-upower-device "battery_BAT1" "Upower battery device name." :version "26.1" :type string] 10)
(defalias 'battery--find-linux-sysfs-batteries #[nil "\303\304\305\306\"\303\211\2030 \n@\307 !\204 \310 !\203) \311\312\313 \"!\203) B\nA\211\204
*\237)\207" [dirs file --dolist-tail-- nil directory-files "/sys/class/power_supply/" t file-directory-p file-symlink-p file-exists-p expand-file-name "capacity"] 5])
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\313\306\307&\207" [custom-declare-variable battery-status-function (cond ((and (eq system-type 'gnu/linux) (file-readable-p "/proc/apm")) #'battery-linux-proc-apm) ((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/") (battery--find-linux-sysfs-batteries)) #'battery-linux-sysfs) ((and (eq system-type 'berkeley-unix) (file-executable-p "/usr/sbin/apm")) #'battery-bsd-apm) ((and (eq system-type 'darwin) (condition-case nil (with-temp-buffer (and (eq (call-process "pmset" nil t nil "-g" "ps") 0) (> (buffer-size) 0))) (error nil))) #'battery-pmset) ((fboundp 'w32-battery-status) #'w32-battery-status)) "Function for getting battery status information.\nThe function has to return an alist of conversion definitions.\nIts cons cells are of the form\n\n (CONVERSION . REPLACEMENT-TEXT)\n\nCONVERSION is the character code of a \"conversion specification\"\nintroduced by a `%' character in a control string." :type (choice (const nil) function) :group battery battery-echo-area-format "Power %L, battery %B (%p%% load, remaining time %t)" "Control string formatting the string to display in the echo area.\nOrdinary characters in the control string are printed as-is, while\nconversion specifications introduced by a `%' character in the control\nstring are substituted as defined by the current value of the variable\n`battery-status-function'. Here are the ones generally available:\n%c Current capacity (mAh or mWh)\n%r Current rate of charge or discharge\n%B Battery status (verbose)\n%b Battery status: empty means high, `-' means low,\n `!' means critical, and `+' means charging\n%d Temperature (in degrees Celsius)\n%L AC line status (verbose)\n%p Battery load percentage\n%m Remaining time (to charge or discharge) in minutes\n%h Remaining time (to charge or discharge) in hours\n%t Remaining time (to charge or discharge) in the form `h:min'" (choice string (const nil))] 8)
#@37 String to display in the mode line.
(defvar battery-mode-line-string nil (#$ . 3182))
(byte-code "\300\301\302\303\304\305\306\307\310\311& \210\300\312\313\314\306\315\310\311&\210\300\316\317\320\306\307\310\311&\210\300\321\322\323\306\307\310\311&\210\300\324\325\326\306\307\310\311&\207" [custom-declare-variable battery-mode-line-limit 100 "Percentage of full battery load below which display battery status." :version "24.1" :type integer :group battery battery-mode-line-format (cond ((eq battery-status-function 'battery-linux-proc-acpi) "[%b%p%%,%d°C]") (battery-status-function "[%b%p%%]")) "Control string formatting the string to display in the mode line.\nOrdinary characters in the control string are printed as-is, while\nconversion specifications introduced by a `%' character in the control\nstring are substituted as defined by the current value of the variable\n`battery-status-function'. Here are the ones generally available:\n%c Current capacity (mAh or mWh)\n%r Current rate of charge or discharge\n%B Battery status (verbose)\n%b Battery status: empty means high, `-' means low,\n `!' means critical, and `+' means charging\n%d Temperature (in degrees Celsius)\n%L AC line status (verbose)\n%p Battery load percentage\n%m Remaining time (to charge or discharge) in minutes\n%h Remaining time (to charge or discharge) in hours\n%t Remaining time (to charge or discharge) in the form `h:min'" (choice string (const nil)) battery-update-interval 60 "Seconds after which the battery status will be updated." battery-load-low 25 "Upper bound of low battery load percentage.\nA battery load percentage below this number is considered low." battery-load-critical 10 "Upper bound of critical battery load percentage.\nA battery load percentage below this number is considered critical."] 10)
#@24 Interval timer object.
(defvar battery-update-timer nil (#$ . 5006))
#@185 Display battery status information in the echo area.
The text being displayed in the echo area is controlled by the variables
`battery-echo-area-format' and `battery-status-function'.
(defalias 'battery #[nil "\302\303\203 \203 \304 \"\202 \305\"\207" [battery-echo-area-format battery-status-function message "%s" battery-format "Battery status not available"] 5 (#$ . 5082) nil])
#@281 Non-nil if Display-Battery mode is enabled.
See the `display-battery-mode' command
for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `display-battery-mode'.
(custom-declare-variable 'display-battery-mode nil '(#$ . 5478) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'battery :type 'boolean)
#@497 Toggle battery status display in mode line (Display Battery mode).
If called interactively, enable Display-Battery mode if ARG is
positive, and disable it if ARG is zero or negative. If called from
Lisp, also enable the mode if ARG is omitted or nil, and toggle it if
ARG is `toggle'; disable the mode otherwise.
The text displayed in the mode line is controlled by
`battery-mode-line-format' and `battery-status-function'.
The mode line is be updated every `battery-update-interval'
seconds.
(defalias 'display-battery-mode #[(&optional arg) "\306 \307\310 \311=\203 \312\310!?\202 \313 !\314V\"\210\315 \204! \316\f\203) \317\f!\210
\203R $\203R \204? \320\302 \"\202Y \321\303\302\322#\210\323\324%\325#\326 \210\202Y \327\330!\210\324\331\332\312\310!\203e \333\202f \334\"\210\335\336!\203\223 \337\310!\210\306 \203~ \306 \232\203\223 \315 &\327\340\312\310!\203\215 \341\202\216 \342&#\210))\343 \210\312\310!\207" [#1=#:last-message arg battery-mode-line-string global-mode-string battery-update-timer battery-status-function current-message set-default display-battery-mode toggle default-value prefix-numeric-value 0 #2="" (#2#) cancel-timer delq add-to-list t run-at-time nil battery-update-handler battery-update message "Battery status not available" run-hooks display-battery-mode-hook display-battery-mode-on-hook display-battery-mode-off-hook called-interactively-p any customize-mark-as-set "Display-Battery mode %sabled%s" "en" "dis" force-mode-line-update battery-mode-line-format battery-update-interval local] 4 (#$ . 5928) (list (or current-prefix-arg 'toggle))])
(defvar display-battery-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [display-battery-mode-map display-battery-mode-hook variable-documentation put "Hook run after entering or leaving `display-battery-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode display-battery-mode nil boundp] 6)
(defalias 'battery-update-handler #[nil "\300 \210\301\302!\207" [battery-update sit-for 0] 2])
#@53 Update battery status information in the mode line.
(defalias 'battery-update #[nil "\205 \306\307 \236A!@\310 \203& \n\247\203& \n\fX\203& \311 \"\202' \312\313\n\247\2054 \n
X\2054 \314\315\316%*\317 \207" [battery-status-function data percentage battery-mode-line-format battery-mode-line-limit battery-load-critical read-from-string 112 propertize battery-format "" face error help-echo "Battery status information" force-mode-line-update battery-mode-line-string] 6 (#$ . 8083)])
#@54 Regular expression matching contents of `/proc/apm'.
(defconst battery-linux-proc-apm-regexp "^\\([^ ]+\\) \\([^ ]+\\) 0x\\([0-9a-f]+\\) 0x\\([0-9a-f]+\\) 0x\\([0-9a-f]+\\) 0x\\([0-9a-f]+\\) \\(-?[0-9]+\\)% \\(-?[0-9]+\\) \\(.*\\)$" (#$ . 8583))
#@664 Get APM status information from Linux (the kernel).
This function works only with the new `/proc/apm' format introduced
in Linux version 1.3.58.
The following %-sequences are provided:
%v Linux driver version
%V APM BIOS version
%I APM BIOS status (verbose)
%L AC line status (verbose)
%B Battery status (verbose)
%b Battery status, empty means high, `-' means low,
`!' means critical, and `+' means charging
%p Battery load percentage
%s Remaining time (to charge or discharge) in seconds
%m Remaining time (to charge or discharge) in minutes
%h Remaining time (to charge or discharge) in hours
%t Remaining time (to charge or discharge) in the form `h:min'
(defalias 'battery-linux-proc-apm #[nil "\306\211\211\211\211\211\211\211\211\211\211\211 ? @ A B C D\307\310! ErEq\210\311\216\31215 \313\314!0\2029 \210\202: \210\315F!\203 \316\317!D\316\320!C\321\316\322!\323\"\324\320\"\204_ \325B\202 \326B\324\323\"\203o \327B\202y \324\330\"\203y \331B\321\316\332!\323\"\211\333U\203\214 \334A\202\241 \317U\203\230 \335A\202\241 \320U\203\241 \336A\321\316\337!\323\"\211\340U\203\264 \341@\202 \321\316\342!\323\"\211\333U\203\312 \343@\344?\202\364 \317U\203\331 \345@\346?\202\364 \320U\203\350 \347@\350?\202\364 \322U\203\364 \351@\352?\316\353!\321\316\354!!\316\355!\356\230\203\n\357\f_\f\357\245\f\360\245\361\362\n \357\n_Z#+\363D\206$\341B\364C\206,\341B\365B\2064\341B\366A\206<\341B\367@\206D\341B\370?\206L\344B\371
\206S\341B\372\f\203_\373\f!\206`\341B\374 \203l\373 !\206m\341B\375\n\203y\373\n!\206z\341B\376 \206\201\341B\257 .\f\207" [tem remaining-time hours minutes seconds load-percentage nil generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] (error) insert-file-contents "/proc/apm" re-search-forward match-string 1 2 string-to-number 3 16 logand "not supported" "enabled" "disabled" 32 "disengaged" 4 0 "off-line" "on-line" "on backup" 6 255 "N/A" 5 "high" "" "low" "-" "critical" "!" "charging" "+" 7 8 9 "min" 60 3600 format "%d:%02d" 118 86 73 76 66 98 112 115 number-to-string 109 104 116 battery-status-symbol battery-status line-status bios-interface bios-version driver-version #1# battery-linux-proc-apm-regexp] 13 (#$ . 8836)])
#@624 Get ACPI status information from Linux (the 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:
%c Current capacity (mAh)
%r Current rate
%B Battery status (verbose)
%b Battery status, empty means high, `-' means low,
`!' means critical, and `+' means charging
%d Temperature (in degrees Celsius)
%L AC line status (verbose)
%p Battery load percentage
%m Remaining time (to charge or discharge) in minutes
%h Remaining time (to charge or discharge) in hours
%t Remaining time (to charge or discharge) in the form `h:min'
(defalias 'battery-linux-proc-acpi #[nil "\306\211\307\306\211\307\211\211\211\211\211 @ A B C D\310\311! ErEq\210\312\216\31314 \314\315\316\317#0\2026 \210\307\307 F\211 G\2031G@F\320 \210\3211V \322\323\324F\"!0\202Z \210\202[ \210\325\326\307\316#\203\301 \325\327\307\316#\203u \n\330\235\203u \331\332!\325\333\307\316#\203\255 \f\206\202 \306\334\331\332!!\\\211\306V\203\255 \203\251 \331\335!\230\203\237 \202\246 \336\337 \331\335!#\206\254 \331\335!\325\340\307\316#\203\301
\206\272 \306\334\331\332!!\\db\210\3411\323 \322\323\342F\"!0\202\327 \210\202\330 \210\325\326\307\316#\203(\325\343\307\316#\203\362 D\334\331\332!!\\D\325\344\307\316#\203C\334\331\332!!\\C\325\345\307\316#\203A\334\331\332!!\\A\325\346\307\316#\203(@\334\331\332!!\\@GA\211G\204? -C\306V\203>C\202@DB
\203l\f\203l\f\306U\203T\306\202g\347\n\350\230\203bB
Z\202c
\351_\f\"\211\351\245\352
\203w\353
!\206x\354B\355\356\357\360\3611\212\314\362\316\317#0\202\214\210\307\"\363\332#\206\224\354B\364\356\357\365\3661\246\314\367\316\317#0\202\250\210\307\"\370\332#\206\260\354B\371\f\203\277\353\f!\372 Q\206\300\354B\373\n\206\307\354B\374\n\350\230\203\323\375\202\364
\203\342
@W\203\342\376\202\364
\203\361
AW\203\361\377\202\364\201H B\201I \203\353!\206\354B\201J \203\353 !\206\354B\201K \203*\201L \201M \351_Z#\206+\354B\201N B\203K
\203KB\306V\203K\353\347\364
_B\"!\206L\354B\257\n. \207" [hours minutes charging-state rate-type rate capacity 0 nil generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] (error) directory-files "/proc/acpi/battery/" t "\\`[^.]" erase-buffer (error) insert-file-contents expand-file-name "state" re-search-forward "present: +yes$" "charging state: +\\(.*\\)$" ("unknown" "charged" nil) match-string 1 "present rate: +\\([0-9]+\\) \\(m[AW]\\)$" string-to-number 2 error "Inconsistent rate types (%s vs. %s)" "remaining capacity: +\\([0-9]+\\) m[AW]h$" (error) "info" "design capacity: +\\([0-9]+\\) m[AW]h$" "last full capacity: +\\([0-9]+\\) m[AW]h$" "design capacity warning: +\\([0-9]+\\) m[AW]h$" "design capacity low: +\\([0-9]+\\) m[AW]h$" floor "charging" 60 99 number-to-string "N/A" 76 battery-search-for-one-match-in-files mapcar #[(e) "\301P\207" [e "/state"] 2] (error) "/proc/acpi/ac_adapter/" "state: +\\(.*\\)$" 100 #[(e) "\301P\207" [e "/temperature"] 2] (error) "/proc/acpi/thermal_zone/" "temperature: +\\([0-9]+\\) C$" 114 " " 66 98 "+" "!" "-" low warn full-capacity last-full-capacity design-capacity #1# dir --dolist-tail-- "" 104 109 116 format "%d:%02d" 112] 16 (#$ . 11136)])
#@534 Get ACPI status information from Linux kernel.
This function works only with the new `/sys/class/power_supply/'
format introduced in Linux version 2.4.25.
The following %-sequences are provided:
%c Current capacity (mAh or mWh)
%r Current rate
%B Battery status (verbose)
%d Temperature (in degrees Celsius)
%p Battery load percentage
%L AC line status (verbose)
%m Remaining time (to charge or discharge) in minutes
%h Remaining time (to charge or discharge) in hours
%t Remaining time (to charge or discharge) in the form `h:min'
(defalias 'battery-linux-sysfs #[nil "\306\211\211\307\310\311\312 @\313\314! ArAq\210\315\216\3161% \317 0\202' \210\306\306 B\211 C\203LC@B\320 \210\3211G \322\323\324B\"!0\202K \210\202L \210eb\210\325\326\306\327#\203_ \330\331\332!!\333\245eb\210\325\334\306\327#\203Ceb\210\325\335\306\327#\203\201 @\336\235\203\201 \331\332!@eb\210\325\337\306\327#\203\242 \330\331\340!!\332\224f\341=\203\236 \202\237 \332_\\eb\210\325\342\306\327#\203\261 \331\332!eb\210\306\211 D E\325\343\306\327#\203\361 \331\332!\211E\203\361 \325\344\306\327#\203\361 \331\332!\211D\203\361 \330E!_\\\n\330D!_\\\202$eb\210\325\345\306\327#\203$\331\332!\211E\203$\325\346\306\327#\203$\331\332!\211D\203$ \330E!\\\n\330D!\\*eb\210 \347U\204C@\350\230\2039\n\202< \nZ\211 F \245)CA\211C\2040 -\351 \347V\204Z\n\347V\203b\352\n\245!\202c\353B\354 \355V\203t\356\357 \360\245\"\202u\353B\361\f\203\204\356\362\f\363_\"\202\205\353B\364\f\203\222\356\362\f\"\202\223\353B\365\f\203\247\356\366\f\211\367\f!Z\363_#\202\250\353B\370
\206\257\353B\371@\206\267\353B\372 \347V\203\320\n\347V\203\320\356\357\370\n_ \245\"\202\321\353B\373\374\375\376\377E\201G \347#\203\346\201H \202\372\374\375\376\377E\201I \347#\203\371\201J \202\372\353B\257 .\207" [voltage-now power-now energy-now energy-full hours temperature nil 0.0 0.0 0.0 10.8 generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] (error) battery--find-linux-sysfs-batteries erase-buffer (error) insert-file-contents expand-file-name "uevent" re-search-forward "POWER_SUPPLY_VOLTAGE_NOW=\\([0-9]*\\)$" t string-to-number match-string 1 1000000.0 "POWER_SUPPLY_PRESENT=1$" "POWER_SUPPLY_STATUS=\\(.*\\)$" ("Unknown" "Full" nil) "POWER_SUPPLY_\\(CURRENT\\|POWER\\)_NOW=\\([0-9]*\\)$" 2 67 "POWER_SUPPLY_TEMP=\\([0-9]*\\)$" "POWER_SUPPLY_CHARGE_FULL=\\([0-9]*\\)$" "POWER_SUPPLY_CHARGE_NOW=\\([0-9]*\\)$" "POWER_SUPPLY_ENERGY_FULL=\\([0-9]*\\)$" "POWER_SUPPLY_ENERGY_NOW=\\([0-9]*\\)$" 0 "Discharging" 99 number-to-string "N/A" 114 0.0 format "%.1f" 1000000.0 109 "%d" 60 104 116 "%d:%02d" floor 100 66 112 76 battery-search-for-one-match-in-files "/sys/class/power_supply/AC/online" "/sys/class/power_supply/ACAD/online" "/sys/class/power_supply/ADP1/online" charging-state #1# dir --dolist-tail-- now-string full-string remaining "1" "AC" "0" "BAT"] 14 (#$ . 14450)])
(defalias 'battery-upower-prop #[(pname &optional device) "\303\304\305\306\206 P\305\n%\207" [device battery-upower-device pname dbus-get-property :system "org.freedesktop.UPower" "/org/freedesktop/UPower/devices/"] 6])
(put 'battery-upower-prop 'byte-optimizer 'byte-compile-inline-expand)
#@504 Get battery status from dbus Upower interface.
This function works only in systems with `upowerd' daemon
running.
The following %-sequences are provided:
%c Current capacity (mWh)
%p Battery load percentage
%r Current rate
%B Battery status (verbose)
%L AC line status (verbose)
%s Remaining time (to charge or discharge) in seconds
%m Remaining time (to charge or discharge) in minutes
%h Remaining time (to charge or discharge) in hours
%t Remaining time (to charge or discharge) in the form `h:min'
(defalias 'battery-upower #[nil "\306\307\310\311\312\313\206
\nP\312 %*\314\307\310\311\312\313\206 \nP\312 %*\315\307\310\311\312\313\2061 \nP\312 %*\316\307\310\311\312\313\206C \nP\312 %*\317\320\310\311\312\313\206U \nP\312 %*\321\307\310\311\312\313\206g \nP\312 %*\322\307\310\311\312\313\206y \nP\312 %*\323\307\211\211\211 * + , - . / 0 1 2.\203\251 0\203\251 0*\202\267 .\204\267 1\203\267 1**\203\316 *\324\245\211\324\245\325\326\f\327
\324\"#\330-\203\337 \331\332\333-_!!\206\340 \334B\3352\203\360 \331\3322!!\206\361 \334B\336,\203\331,!\337P\206\334B\340/\203\341/+\"A\206\342B\343.\203 \344\202 \345B\346*\203.\331*!\206/\334B\347
\203;\331
!\206<\334B\350\f\203H\331\f!\206I\334B\351 \206P\334B\257 .\f\207" [device pname battery-upower-device remaining-time hours minutes "Percentage" nil dbus-get-property :system "org.freedesktop.UPower" "/org/freedesktop/UPower/devices/" "TimeToEmpty" "TimeToFull" "State" "Online" "line_power_ACAD" "Energy" "EnergyRate" ((0 . "unknown") (1 . "charging") (2 . "discharging") (3 . "empty") (4 . "fully-charged") (5 . "pending-charge") (6 . "pending-discharge")) 60 format "%d:%02d" mod 99 number-to-string round 1000 "N/A" 112 114 " W" 66 assoc "unknown" 76 "on-line" "off-line" 115 109 104 116 seconds battery-states energy-rate energy online state time-to-full time-to-empty percents] 13 (#$ . 17713)])
#@499 Get APM status information from BSD apm binary.
The following %-sequences are provided:
%L AC line status (verbose)
%B Battery status (verbose)
%b Battery status, empty means high, `-' means low,
`!' means critical, and `+' means charging
%P Advanced power saving mode state (verbose)
%p Battery charge percentage
%s Remaining battery charge time in seconds
%m Remaining battery charge time in minutes
%h Remaining battery charge time in hours
%t Remaining battery charge time in the form `h:min'
(defalias 'battery-bsd-apm #[nil "\306\307\310!!@\211\311\267\202 \312\202 \313\202 \314\315 P\306\307\n!!\316\232\203+ \317\202, \320 \321\322\323\f\" 8!\211 \324\267\202P \325\202Q \326\202Q \327\202Q \330\202Q \331\202Q \332) \322\333\f\" 8 ?\322\334\f\" 8 \321\322\335\f\" 8!\211 @\336\267\202\200 \337\202\201 \340\202\201 \341\202\201 \332) A\321\322\342\f\" 8! B\343\230\203\253 B\344\267\202\247 \345\202\270 \346\202\270 \347\202\270 \332\202\270 \350B\351\"\203\267 \352\202\270 \353) \"\332\211 C D\332\211 E F \354\235\204\355\235\203\343 \321 !D\356D_C\202\360 \321 !C\357C\356\"D\357D\356\"E\360\361E\362D\356\"#F\363A\206\n\364B\365@\206\364B\366A\206 \364B\367?\370\230\203)\364\202+?B\371\"\2063\364B\372C\203A\373C!\206B\364B\374D\203P\373D!\206Q\364B\375E\203_\373E!\206`\364B\376F\206h\364B\257 .\207" [os-name apm-flag apm-cmd apm-output indices #1=#:val split-string shell-command-to-string "/usr/bin/uname" #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("OpenBSD" 13 "FreeBSD" 17)) "mP" "st" "ms" "/usr/sbin/apm -abl" "FreeBSD" ((ac . 0) (battery-status . 1) (battery-percent . 2) (apm-mode . 3) (battery-life . 4)) ((ac . 3) (battery-status . 0) (battery-percent . 1) (apm-mode . 4) (battery-life . 2)) string-to-number alist-get battery-status #s(hash-table size 5 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (0 60 1 64 2 68 3 72 4 76)) ("high" . "") ("low" . "-") ("critical" . "!") ("charging" . "+") ("absent") nil battery-percent battery-life ac #s(hash-table size 3 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (0 116 1 120 2 124)) "disconnected" "connected" "backup power" apm-mode "OpenBSD" #s(hash-table size 3 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (0 155 1 159 2 163)) "manual" "automatic" "cool running" eql 1 "on" "off" ("unknown" "-1") ("OpenBSD" "NetBSD") 60 truncate format "%d:%02d" mod 76 "N/A" 66 98 112 "255" 80 115 number-to-string 109 104 116 battery-percentage #2=#:val line-status apm seconds minutes hours remaining-time] 11 (#$ . 19653)])
#@361 Get battery status information using `pmset'.
The following %-sequences are provided:
%L Power source (verbose)
%B Battery status (verbose)
%b Battery status, empty means high, `-' means low,
`!' means critical, and `+' means charging
%p Battery load percentage
%h Remaining time in hours
%m Remaining time in minutes
%t Remaining time in the form `h:min'
(defalias 'battery-pmset #[nil "\306\211\211\211\211\211\211 0\307\310! 1r1q\210\311\216\3121, \313\314\306\315\306\316\317&0\2020 \210\2021 \210eb\210\320\321\306\315#\203\277 \322\323!0\320\324\306\315#\203\277 \325\326!\203\277 \322\323!\327\225b\210\325\330!\203d \331\332\202\210 \333
!2W\203t \334\335\202\210 \333
!3W\203\204 \336\337\202\210 \340\341\320\342\306\315#\203\277 \322\323!\333\322\343!!\333\322\344!! 4 5\34554\346W\203\260 \327\202\261 \323\\!\3455\347_4\\!*+\3500\206\307 \351B\352
\206\316 \351B\353\f\206\325 \351B\354 \206\334 \341B\355 \206\343 \351B\356\206\352 \351B\357\n\206\361 \351B\257.\207" [minutes hours remaining-time battery-status-symbol battery-status load-percentage nil generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] (error) call-process "pmset" t "-g" "ps" re-search-forward "\\(?:Currentl?y\\|Now\\) drawing from '\\(AC\\|Battery\\) Power'" match-string 1 "^ -InternalBattery-0\\([ ]+(id=[0-9]+)\\)*[ ]+" looking-at "\\([0-9]\\{1,3\\}\\)%" 0 "; charging" "charging" "+" string-to-number "critical" "!" "low" "-" "high" "" "\\(\\([0-9]+\\):\\([0-9]+\\)\\) remaining" 2 3 number-to-string 30 60 76 "N/A" 112 66 98 104 109 116 power-source #1# battery-load-critical battery-load-low m h] 8 (#$ . 22316)])
#@35 Substitute %-sequences in FORMAT.
(defalias 'battery-format #[(format alist) "\301\302\303\304\211%\207" [format replace-regexp-in-string "%." #[(str) "\303H\211\304=\203 \305\202 \306 \n\"A\206 \307)\207" [str char alist 1 37 "%" assoc ""] 4] t] 6 (#$ . 24022)])
#@177 Search REGEXP in the content of the files listed in FILES.
If a match occurred, return the parenthesized expression numbered by
MATCH-NUM in the match. Otherwise, return nil.
(defalias 'battery-search-for-one-match-in-files #[(files regexp match-num) "\306\307!rq\210\310\216\3112H \312\211\205F @\3131( \314\n\312\211\211\315%0\202, \210\202> \203> \316\f\312\317#\203> \320\311\321
!\"\210 A\211\204 \312*0+\207" [#1=#:temp-buffer files file --dolist-tail-- regexp match-num generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] found nil (error) insert-file-contents replace re-search-forward t throw match-string] 7 (#$ . 24299)])
(provide 'battery)
Mini Shell