feat(wpcarro/emacs): Delete laptop-battery.el
Clean-up Change-Id: I82a3652919af46482e1541d14cda1af8de6cc578 Reviewed-on: https://cl.tvl.fyi/c/depot/+/7414 Tested-by: BuildkiteCI Reviewed-by: wpcarro <wpcarro@gmail.com>
This commit is contained in:
		
							parent
							
								
									580616a812
								
							
						
					
					
						commit
						1aded94d5f
					
				
					 2 changed files with 9 additions and 73 deletions
				
			
		|  | @ -1,63 +0,0 @@ | |||
| ;;; laptop-battery.el --- Display laptop battery information -*- lexical-binding: t -*- | ||||
| 
 | ||||
| ;; Author: William Carroll <wpcarro@gmail.com> | ||||
| ;; Version: 0.0.1 | ||||
| ;; Package-Requires: ((emacs "25.1")) | ||||
| 
 | ||||
| ;;; 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) | ||||
| (require 'al) | ||||
| (require 'maybe) | ||||
| 
 | ||||
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | ||||
| ;; Library | ||||
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | ||||
| 
 | ||||
| (defun laptop-battery-available? () | ||||
|   "Return t if battery information is available." | ||||
|   (maybe-some? battery-status-function)) | ||||
| 
 | ||||
| (defun laptop-battery-percentage () | ||||
|   "Return the current percentage of the battery." | ||||
|   (->> battery-status-function | ||||
|        funcall | ||||
|        (al-get 112))) | ||||
| 
 | ||||
| (defun laptop-battery-print-percentage () | ||||
|   "Return the current percentage of the battery." | ||||
|   (interactive) | ||||
|   (->> (laptop-battery-percentage) | ||||
|        message)) | ||||
| 
 | ||||
| (defun laptop-battery-display () | ||||
|   "Display laptop battery percentage in the modeline." | ||||
|   (interactive) | ||||
|   (display-battery-mode 1)) | ||||
| 
 | ||||
| (defun laptop-battery-hide () | ||||
|   "Hide laptop battery percentage in the modeline." | ||||
|   (interactive) | ||||
|   (display-battery-mode -1)) | ||||
| 
 | ||||
| (provide 'laptop-battery) | ||||
| ;;; laptop-battery.el ends here | ||||
|  | @ -13,16 +13,15 @@ | |||
| ;; Dependencies | ||||
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | ||||
| 
 | ||||
| (require 'constants) | ||||
| (require 'prelude) | ||||
| (require 'al) | ||||
| (require 'fonts) | ||||
| (require 'theme) | ||||
| (require 'laptop-battery) | ||||
| (require 'modeline) | ||||
| (require 'general) | ||||
| (require 'dash) | ||||
| (require '>) | ||||
| (require 'al) | ||||
| (require 'constants) | ||||
| (require 'dash) | ||||
| (require 'fonts) | ||||
| (require 'general) | ||||
| (require 'modeline) | ||||
| (require 'prelude) | ||||
| (require 'theme) | ||||
| 
 | ||||
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | ||||
| ;; Configuration | ||||
|  | @ -159,7 +158,7 @@ | |||
|   :config | ||||
|   (setq alert-default-style 'notifier)) | ||||
| 
 | ||||
| (laptop-battery-display) | ||||
| (display-battery-mode 1) | ||||
| 
 | ||||
| (setq theme-whitelist | ||||
|       (->> (custom-available-themes) | ||||
|  |  | |||
		Loading…
	
	Add table
		Add a link
		
	
		Reference in a new issue