commit 5a4e6000e5ff9ab299d8c9f395d8fbb3c818387c
Author: Simon Watson <spw01@protonmail.com>
Date:   Sun Aug 13 09:18:14 2023 -0400

    mc

diff --git a/ecl-build.lisp b/ecl-build.lisp
index bc590ef..4166dd9 100644
--- a/ecl-build.lisp
+++ b/ecl-build.lisp
@@ -1,3 +1,5 @@
+;; TODO
+
 (load "./pest.asd")
 (asdf:load-system 'pest)
 (sb-ext:save-lisp-and-die
diff --git a/non-ql-deps.sh b/non-ql-deps.sh
new file mode 100755
index 0000000..2b87939
--- /dev/null
+++ b/non-ql-deps.sh
@@ -0,0 +1,3 @@
+#!/bin/bash
+
+git clone https://github.com/gorozhin/chlorophyll.git ~/quicklisp/local-projects/chlorophyll
diff --git a/pest.lisp b/pest.lisp
index 6ead371..10b96dd 100644
--- a/pest.lisp
+++ b/pest.lisp
@@ -18,14 +18,19 @@
 (defvar *bg* NIL) 
 (defvar *style* NIL)
 
+;; Battery
+(defvar *display-battery* NIL)
+
 (defun reload-config ()
   (setf *config* (config-parse "~/Repos/cl-pest/config.toml"))
   (setf *fg* (if *config*
-		 (destructuring-bind (r g b) (subseq (assoc "fg" (cdr (assoc "colors" *config* :test #'equal)) :test #'equal) (- 4 3))
+		 (destructuring-bind (r g b)
+		     (subseq (assoc "fg" (cdr (assoc "colors" *config* :test #'equal)) :test #'equal) (- 4 3))
 		   (chlorophyll:create-rgb-color r g b))
 		 (chlorophyll:create-rgb-color 255 255 255)))
   (setf *bg* (if *config*
-		 (destructuring-bind (r g b) (subseq (assoc "bg" (cdr (assoc "colors" *config* :test #'equal)) :test #'equal) (- 4 3))
+		 (destructuring-bind (r g b)
+		     (subseq (assoc "bg" (cdr (assoc "colors" *config* :test #'equal)) :test #'equal) (- 4 3))
 		   (chlorophyll:create-rgb-color r g b))
 		 (chlorophyll:create-rgb-color 0 0 0)))
   (setf *style* (chlorophyll:new-style