chris/dotfiles
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

updates

Browse source
This commit is contained in:
Chris Cochrun 2023-12-11 10:20:45 -06:00
parent 6e1c5a007c
commit 2701cba99e
5 changed files with 33 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
.config/eww/battery.yuck
View file

@ -40,5 +40,5 @@
:min 0)) :min 0))
(button (button
:class "close-icon" :class "close-icon"
:onclick "eww close battery" :onclick "echo \"killed\" > /tmp/ewwbattery && eww close battery"
"󰅖"))) "󰅖")))

8
flake.lock
View file

@ -425,16 +425,16 @@
}, },
"nixpkgs-stable_2": { "nixpkgs-stable_2": {
"locked": { "locked": {
"lastModified": 1688392541, "lastModified": 1701952659,
"narHash": "sha256-lHrKvEkCPTUO+7tPfjIcb7Trk6k31rz18vkyqmkeJfY=", "narHash": "sha256-TJv2srXt6fYPUjxgLAL0cy4nuf1OZD4KuA1TrCiQqg0=",
"owner": "nixos", "owner": "nixos",
"repo": "nixpkgs", "repo": "nixpkgs",
"rev": "ea4c80b39be4c09702b0cb3b42eab59e2ba4f24b", "rev": "b4372c4924d9182034066c823df76d6eaf1f4ec4",
"type": "github" "type": "github"
}, },
"original": { "original": {
"owner": "nixos", "owner": "nixos",
"ref": "nixos-22.11", "ref": "nixos-23.11",
"repo": "nixpkgs", "repo": "nixpkgs",
"type": "github" "type": "github"
} }

1
pkgs/base-packages.nix
View file

@ -12,6 +12,7 @@
dutree dutree
cachix cachix
unzip unzip
ollama
# unrar # unrar
p7zip p7zip
zip zip

1
pkgs/desktop-packages.nix
View file

@ -24,7 +24,6 @@ with lib;
ungoogled-chromium ungoogled-chromium
qutebrowser qutebrowser
brave brave
ollama
ttyper ttyper
kget kget
audacity audacity

36
scripts/batmon.lisp
View file

@ -1,7 +1,8 @@
#!/usr/bin/env -S sbcl --script #!/usr/bin/env -S sbcl --script
(require "uiop") (require "uiop")
(load "/home/chris/.sbclrc") (load "/home/chris/.sbclrc")
(ql:quickload :clingon) (ql:quickload :serapeum)
(defun get-value (file) (defun get-value (file)
"Read a file and get it's value as a list of lines" "Read a file and get it's value as a list of lines"
(with-open-file (in file) (with-open-file (in file)
@ -9,14 +10,31 @@
while line while line
collect line))) collect line)))
(setf capacity (parse-integer (car (get-value "/sys/class/sound/card0/number")))) (defun close-eww ()
(setf status (parse-integer (car (get-value "/sys/class/sound/card1/number")))) (uiop:run-program "eww close battery" :ignore-error-status t))
(defun open-eww ()
(uiop:run-program "eww open battery" :ignore-error-status t))
(loop for i from 0 (defun clear-file (file)
while (< i 10) (with-open-file (out file :direction :output :if-exists :overwrite :if-does-not-exist :create)
do (uiop:println i)) (write-sequence " " out))
(uiop:println "Clearing killed"))
(if (<= capacity 30) (setf capacity (parse-integer (car (get-value "/sys/class/power_supply/BAT1/capacity"))))
(uiop:run-program (uiop:strcat "/run/current-system/sw/bin/eww " "open " "battery")) (setf status (car (get-value "/sys/class/power_supply/BAT1/status")))
(uiop:run-program (uiop:strcat "/run/current-system/sw/bin/eww " "close " "battery")))
(loop do (progn
(sleep 10)
(format t "~&Charge: ~a, Status: ~a" capacity status)
(if (string= "Charging" status)
(progn (format t "~&Charging, closing EWW") (close-eww))
(if (<= capacity 30)
(progn (setf killed (serapeum:trim-whitespace (car (get-value "/tmp/ewwbattery"))))
(if killed
(progn (format t "~&EWW has been killed, waiting 3 minutes")
(clear-file #p"/tmp/ewwbattery")
(sleep 360)))
(format t "~&Opening EWW")
(open-eww))
(progn (format t "~&Charged more than 30%, Closing EWW")
(close-eww))))))