1 d8c72311 2021-10-12 op (ns blog.net-gemini
 2 5dd19ade 2021-10-16 op   (:require [gemini.core :as gemini]))
 3 d8c72311 2021-10-12 op 
 4 5dd19ade 2021-10-16 op (def antenna-uri "gemini://warmedal.se/~antenna")
 5 10c8a6d2 2021-10-13 op 
 6 5dd19ade 2021-10-16 op (defn ping-antenna
 7 5dd19ade 2021-10-16 op   "Sends the given `url` to antenna."
 8 5dd19ade 2021-10-16 op   [url]
 9 5dd19ade 2021-10-16 op   (gemini/with-request [req {:request (str antenna-uri "/submit?" url)
10 5dd19ade 2021-10-16 op                              :follow-redirects? true}]
11 5dd19ade 2021-10-16 op     (gemini/body-as-string! req)))
12 5dd19ade 2021-10-16 op 
13 10c8a6d2 2021-10-13 op (comment
14 5dd19ade 2021-10-16 op   (ping-antenna "gemini://gemini.omarpolo.com")
15 10c8a6d2 2021-10-13 op )