diff options
| -rw-r--r-- | bin/.local/bin/scripts/lisp/weather.scm | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/bin/.local/bin/scripts/lisp/weather.scm b/bin/.local/bin/scripts/lisp/weather.scm new file mode 100644 index 0000000..91acee7 --- /dev/null +++ b/bin/.local/bin/scripts/lisp/weather.scm @@ -0,0 +1,30 @@ +(use rfc.http) +(use rfc.uri) +(use file.util) +(use gauche.process) + +(define radar-url "https://radar.weather.gov/ridge/standard/KLVX_loop.gif") +(define radar-gif-path "/tmp/latest_radar.gif") +(define lat 38.3051) +(define lon -85.5742) +(define api-url "https://api.weather.gov/points/38.3051,-85.5742") +(define forecast-url "https://api.weather.gov/gridpoints/LMK/56,80/forecast") + +(define (download-weather-radar-gif url filename) + (let-values (((status headers body) + (http-get (uri-ref url 'host) + (uri-ref url 'path) + :secure #t + :receiver (http-file-receiver filename)))) + (unless (string=? status "200") + (error "Failed to download file" url status)) + filename)) + +(define (play-radar-gif) + (let* ([mpv-command + (list "mpv" + "--loop=inf" + "--autofit=400x480" + radar-gif-path)] + [process (run-process mpv-command)]) + (process-wait process))) |