commit d8c723115cf04e9d7d30fb3de5f4350fc895786a
from: Omar Polo <op@omarpolo.com>
date: Tue Oct 12 21:14:18 2021 UTC

ping antenna

commit - 168273ddd8e6859fdda6888a1ac4db36bf8039ee
commit + d8c723115cf04e9d7d30fb3de5f4350fc895786a
blob - d9d798d3aebc903dbedf51fa0b7ee9b89af5b948
blob + 4cb2fa898d7ff0d5655872a37d9e76215d70b46e
--- src/blog/core.clj
+++ src/blog/core.clj
@@ -1,8 +1,9 @@
 (ns blog.core
   (:require
-   [blog.rss :as rss]
-   [blog.http :as http]
    [blog.gemini :as gemini]
+   [blog.http :as http]
+   [blog.net-gemini :as net-gemini]
+   [blog.rss :as rss]
    [blog.time :as time]
    [clojure.edn :as edn]
    [clojure.java.io :as io]
@@ -238,6 +239,12 @@ Disallow: /cgi/man/
   []
   (sh "rsync" "-r" "--delete" "resources/out/http/"   "op:sites/www.omarpolo.com/")
   (sh "rsync" "-r" "--delete" "resources/out/gemini/" "op:gemini/gemini.omarpolo.com"))
+
+(defn antenna
+  "Ping antenna"
+  []
+  (net-gemini/head "warmedal.se" 1965
+                   (str "gemini://warmedal.se/~antenna/submit?gemini://gemini.omarpolo.com")))
 
 (defn stop-jetty []
   (.stop @j)
@@ -248,9 +255,10 @@ Disallow: /cgi/man/
   (load-pages!)
   (doseq [action actions]
     (case action
-      "clean"  (clean)
-      "build"  (build)
-      "deploy" (deploy)
+      "clean"   (clean)
+      "build"   (build)
+      "deploy"  (deploy)
+      "antenna" (antenna)
 
       (println "unrecognized action" action))))
 
@@ -268,6 +276,8 @@ Disallow: /cgi/man/
     (deploy)
     (local-deploy))
 
+  (antenna)
+
   (do
     (load-posts!)
     (load-pages!)
blob - /dev/null
blob + 765c96e6315075eb5c60a7ed50d61b5930416cb8 (mode 644)
--- /dev/null
+++ src/blog/net_gemini.clj
@@ -0,0 +1,7 @@
+(ns blog.net-gemini
+  (:import (com.omarpolo.gemini Gemini)))
+
+(defn head [host port req]
+  (with-open [res (Gemini/get host port (str req "\r\n"))]
+    {:code (.getCode res)
+     :meta (.getMeta res)}))