diff --git a/scripts/batmon.el b/scripts/batmon.el
new file mode 100755
index 0000000..e0ffe7c
--- /dev/null
+++ b/scripts/batmon.el
@@ -0,0 +1,7 @@
+#!/usr/bin/env -S emacs -Q --script
+(let ((i 0))
+  (while (< i 10)
+    (message (int-to-string i))
+    (setq i (+ i 1))))
+
+(shell-command (concat "eww " "open " "battery"))
diff --git a/scripts/batmon.lisp b/scripts/batmon.lisp
new file mode 100755
index 0000000..dd09dbc
--- /dev/null
+++ b/scripts/batmon.lisp
@@ -0,0 +1,22 @@
+#!/usr/bin/env -S sbcl --script
+(require "uiop")
+(load "/home/chris/.sbclrc")
+(ql:quickload :clingon)
+(defun get-value (file)
+  "Read a file and get it's value as a list of lines"
+  (with-open-file (in file)
+    (loop for line = (read-line in nil nil)
+          while line
+          collect line)))
+
+(setf capacity (parse-integer (car (get-value "/sys/class/sound/card0/number"))))
+(setf status (parse-integer (car (get-value "/sys/class/sound/card1/number"))))
+
+(loop for i from 0
+      while (< i 10)
+      do (uiop:println i))
+
+(if (<= capacity 30)
+    (uiop:run-program (uiop:strcat "/run/current-system/sw/bin/eww " "open " "battery"))
+    (uiop:run-program (uiop:strcat "/run/current-system/sw/bin/eww " "close " "battery")))
+