Blob


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