Write sunrise-sunset script in Clojure

scripts/push-sunrise-sunset.clj

@@ -0,0 +1,39 @@
+#!/usr/bin/env bb
+(require '[babashka.process :refer [shell process exec]]
+         '[org.httpkit.client :as hk-client])
+
+(def NTFY_ADDRESS "http://nuc:8080/home-thewagner-ec1")
+(def LAT "46.519833N")
+(def LON "6.6335E")
+
+(defn poll! []
+  (-> (shell {:continue true :out :string} "sunwait poll" LAT LON)
+      :out
+      str/split-lines
+      first))
+
+(defn twilights! []
+  (-> (shell {:out :string} "sunwait list" LAT LON)
+      :out
+      str/split-lines
+      first))
+
+(defn wait! []
+  (shell "sunwait wait" LAT LON))
+
+(let [now (poll!)
+      lst (twilights!)
+      opts (merge
+             {:next-twilights lst}
+             (case now
+               "NIGHT" {:title "Sunrise!" :message "Good morning! 🌅"}
+               "DAY"   {:title "Sunset!"  :message "Good evening! 🌇"}))]
+  (println opts)
+  (try
+    (wait!)
+    @(hk-client/post NTFY_ADDRESS {:headers {"Title" (opts :title)}
+                                   :body (opts :message)})
+    (catch Exception e
+      (if (= 130 (:exit (ex-data e)))
+        (println "Interrupted")
+        (println "An Error occured" e)))))