7909250f7543

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/bin/unheic	Tue May 30 11:24:14 2023 -0400
@@ -0,0 +1,5 @@
+#!/usr/bin/env bash
+
+set -euo pipefail
+
+for f in *.HEIC; do heif-convert -q 100 "$f" "$f.jpg"; done

--- a/lisp/weather.lisp	Wed May 10 22:51:54 2023 -0400
+++ b/lisp/weather.lisp	Tue May 30 11:24:14 2023 -0400
@@ -179,7 +179,7 @@
             (adopt:print-help-and-exit *ui*)
             (progn
               (load-config)
-              (run (or (first arguments) "14604")
+              (run (or (first arguments) "14607")
                    :hours (gethash 'hours options))))
         (error (e) (adopt:print-error-and-exit e))))))
 

--- a/stumpwmrc	Wed May 10 22:51:54 2023 -0400
+++ b/stumpwmrc	Tue May 30 11:24:14 2023 -0400
@@ -241,7 +241,7 @@
   (local-time:find-timezone-by-location-name "US/Eastern"))
 
 (defparameter *budget/start*
-  (local-time:encode-timestamp 0 0 0 0 7 5 2023 :timezone *tz/eastern*))
+  (local-time:encode-timestamp 0 0 0 0 21 5 2023 :timezone *tz/eastern*))
 
 (defun budget/per-day ()
   (first (losh:read-all-from-file "/home/sjl/Dropbox/budget/per-day")))
@@ -938,13 +938,3 @@
 
 
 #;;; Scratch ------------------------------------------------------------------
-(message (format nil "~S" (remove #\newline (run-shell-command "acpi" t))))
-
-
-(defparameter *s*
-  (losh:sh '("/home/sjl/src/dotfiles/lisp/bin/weather" "-H" "36") :result-type 'list))
-
-(loop :for line :in *s* :collect
-      (ppcre:regex-replace " 1[0-9]:00 " line "^2\\&^*"))
-
-(message "^8foo")