covid19.lisp 173 B

12345678
  1. (in-package :stumpwm)
  2. (defvar *covid-19-count* "")
  3. (defcommand covid-19-update-count () ()
  4. (setq *covid-19-count* (run-shell-command "covid19" t))
  5. (mode-line-update))