first commit

main.lisp

@@ -0,0 +1,24 @@
+(defpackage :cl-battery
+  (:use :cl)
+  (:export 
+    show-bat
+    )
+  )
+
+(in-package #:cl-battery)
+
+(defun show-bat ()
+(let ((bat_stat (open #P"/sys/class/power_supply/BAT0/status"))
+      (bat_now  (open #P"/sys/class/power_supply/BAT0/current_now"))
+      (bat_full (open #P"/sys/class/power_supply/BAT0/charge_full"))
+      (ac_online (open #P"/sys/class/power_supply/ADP0/online"))
+      )
+  (format *standard-output* "~A ~$% ~A~%" (read-line bat_stat) (* (float (/ (read bat_now) (read bat_full))) 100) 
+          (if (equal (read ac_online) 1)
+            "To Be Fully Charged"
+            "Left"))
+  (close bat_stat)
+  (close bat_now)
+  (close bat_full)))
+
+(sb-ext:save-lisp-and-die #P"bat" :toplevel #'cl-battery:show-bat :executable t)