mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions
tvl-depot/emacs/.emacs.d/wpc/laptop-battery.el

65 lines
1.9 KiB
EmacsLisp
Raw Normal View History

Massive configuration overhaul Currently paying the price of months of non-diligent git usage. Here's what has changed. - Theming support in Gvcci and wpgtk - Dropping support for i3 - Supporting EXWM - Many Elisp modules - Collapsed redundant directories in ./configs
2019-10-09 13:13:56 +02:00
;;; laptop-battery.el --- Display laptop battery information -*- lexical-binding: t -*-
More Elisp linting This should cover most of the remaining linting errors. After this, I expect fewer than ten linting errors.
2020-09-01 11:17:43 +02:00
Massive configuration overhaul Currently paying the price of months of non-diligent git usage. Here's what has changed. - Theming support in Gvcci and wpgtk - Dropping support for i3 - Supporting EXWM - Many Elisp modules - Collapsed redundant directories in ./configs
2019-10-09 13:13:56 +02:00
;; Author: William Carroll <wpcarro@gmail.com>
More Elisp linting This should cover most of the remaining linting errors. After this, I expect fewer than ten linting errors.
2020-09-01 11:17:43 +02:00
;; Version: 0.0.1
;; URL: https://git.wpcarro.dev/wpcarro/briefcase
More Elisp linting In order for this to scale, I need to solve two things: 1. Ad-hoc ignore fill-column rules for URLs and other exceptions. 2. Run Elisp flychecker without evaluating my Elisp code and firing its side-effects.
2020-09-01 14:44:18 +02:00
;; Package-Requires: ((emacs "25.1"))
Massive configuration overhaul Currently paying the price of months of non-diligent git usage. Here's what has changed. - Theming support in Gvcci and wpgtk - Dropping support for i3 - Supporting EXWM - Many Elisp modules - Collapsed redundant directories in ./configs
2019-10-09 13:13:56 +02:00
;;; Commentary:
;; Some wrappers to obtain battery information.
;;
;; To troubleshoot battery consumpton look into the CLI `powertop`.
;;; Code:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Roadmap
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; TODO: Support functions that work with reporting battery stats.
;; TODO: low-battery-reporting-threshold
;; TODO: charged-battery-reporting-threshold
;; TODO: Format modeline battery information.
;; TODO: Provide better time information in the modeline.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Dependencies
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'battery)
Rename alist.el to al.el After switching my namespace separator from "/" to "-" the function, `alist-get`, clashed (surprise!) with the pre-existing function, `alist-get`. As I was struggling to debug my broken Emacs (it broke bc Emacs 27 rolled out), and I changed the module name, "alist", to "al" attempting to defuse the issue.
2020-09-02 15:00:43 +02:00
(require 'al)
Massive configuration overhaul Currently paying the price of months of non-diligent git usage. Here's what has changed. - Theming support in Gvcci and wpgtk - Dropping support for i3 - Supporting EXWM - Many Elisp modules - Collapsed redundant directories in ./configs
2019-10-09 13:13:56 +02:00
(require 'maybe)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Library
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
More Elisp linting This should cover most of the remaining linting errors. After this, I expect fewer than ten linting errors.
2020-09-01 11:17:43 +02:00
(defun laptop-battery-available? ()
Massive configuration overhaul Currently paying the price of months of non-diligent git usage. Here's what has changed. - Theming support in Gvcci and wpgtk - Dropping support for i3 - Supporting EXWM - Many Elisp modules - Collapsed redundant directories in ./configs
2019-10-09 13:13:56 +02:00
"Return t if battery information is available."
Lint maybe.el This change had rippling implications.
2020-08-31 15:59:48 +02:00
(maybe-some? battery-status-function))
Massive configuration overhaul Currently paying the price of months of non-diligent git usage. Here's what has changed. - Theming support in Gvcci and wpgtk - Dropping support for i3 - Supporting EXWM - Many Elisp modules - Collapsed redundant directories in ./configs
2019-10-09 13:13:56 +02:00
More Elisp linting This should cover most of the remaining linting errors. After this, I expect fewer than ten linting errors.
2020-09-01 11:17:43 +02:00
(defun laptop-battery-percentage ()
Massive configuration overhaul Currently paying the price of months of non-diligent git usage. Here's what has changed. - Theming support in Gvcci and wpgtk - Dropping support for i3 - Supporting EXWM - Many Elisp modules - Collapsed redundant directories in ./configs
2019-10-09 13:13:56 +02:00
"Return the current percentage of the battery."
(->> battery-status-function
funcall
Rename alist.el to al.el After switching my namespace separator from "/" to "-" the function, `alist-get`, clashed (surprise!) with the pre-existing function, `alist-get`. As I was struggling to debug my broken Emacs (it broke bc Emacs 27 rolled out), and I changed the module name, "alist", to "al" attempting to defuse the issue.
2020-09-02 15:00:43 +02:00
(al-get 112)))
Massive configuration overhaul Currently paying the price of months of non-diligent git usage. Here's what has changed. - Theming support in Gvcci and wpgtk - Dropping support for i3 - Supporting EXWM - Many Elisp modules - Collapsed redundant directories in ./configs
2019-10-09 13:13:56 +02:00
More Elisp linting This should cover most of the remaining linting errors. After this, I expect fewer than ten linting errors.
2020-09-01 11:17:43 +02:00
(defun laptop-battery-print-percentage ()
Massive configuration overhaul Currently paying the price of months of non-diligent git usage. Here's what has changed. - Theming support in Gvcci and wpgtk - Dropping support for i3 - Supporting EXWM - Many Elisp modules - Collapsed redundant directories in ./configs
2019-10-09 13:13:56 +02:00
"Return the current percentage of the battery."
(interactive)
More Elisp linting This should cover most of the remaining linting errors. After this, I expect fewer than ten linting errors.
2020-09-01 11:17:43 +02:00
(->> (laptop-battery-percentage)
Massive configuration overhaul Currently paying the price of months of non-diligent git usage. Here's what has changed. - Theming support in Gvcci and wpgtk - Dropping support for i3 - Supporting EXWM - Many Elisp modules - Collapsed redundant directories in ./configs
2019-10-09 13:13:56 +02:00
message))
More Elisp linting This should cover most of the remaining linting errors. After this, I expect fewer than ten linting errors.
2020-09-01 11:17:43 +02:00
(defun laptop-battery-display ()
Massive configuration overhaul Currently paying the price of months of non-diligent git usage. Here's what has changed. - Theming support in Gvcci and wpgtk - Dropping support for i3 - Supporting EXWM - Many Elisp modules - Collapsed redundant directories in ./configs
2019-10-09 13:13:56 +02:00
"Display laptop battery percentage in the modeline."
(interactive)
(display-battery-mode 1))
More Elisp linting This should cover most of the remaining linting errors. After this, I expect fewer than ten linting errors.
2020-09-01 11:17:43 +02:00
(defun laptop-battery-hide ()
Massive configuration overhaul Currently paying the price of months of non-diligent git usage. Here's what has changed. - Theming support in Gvcci and wpgtk - Dropping support for i3 - Supporting EXWM - Many Elisp modules - Collapsed redundant directories in ./configs
2019-10-09 13:13:56 +02:00
"Hide laptop battery percentage in the modeline."
(interactive)
(display-battery-mode -1))
(provide 'laptop-battery)
;;; laptop-battery.el ends here
Reference in a new issue Copy permalink