mc

ecl-build.lisp

@@ -1,3 +1,5 @@
+;; TODO
+
 (load "./pest.asd")
 (asdf:load-system 'pest)
 (sb-ext:save-lisp-and-die

non-ql-deps.sh

@@ -0,0 +1,3 @@
+#!/bin/bash
+
+git clone https://github.com/gorozhin/chlorophyll.git ~/quicklisp/local-projects/chlorophyll

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