dotfiles/scripts/batmon.el

8 lines
173 B
EmacsLisp
Executable file

#!/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"))