Blob
1 (ns blog.net-gemini2 (:require [gemini.core :as gemini]))4 (def antenna-uri "gemini://warmedal.se/~antenna")6 (defn ping-antenna7 "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 (comment14 (ping-antenna "gemini://gemini.omarpolo.com")15 )