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