commit - 168273ddd8e6859fdda6888a1ac4db36bf8039ee
commit + d8c723115cf04e9d7d30fb3de5f4350fc895786a
blob - d9d798d3aebc903dbedf51fa0b7ee9b89af5b948
blob + 4cb2fa898d7ff0d5655872a37d9e76215d70b46e
--- src/blog/core.clj
+++ src/blog/core.clj
(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]
[]
(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)
(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))))
(deploy)
(local-deploy))
+ (antenna)
+
(do
(load-posts!)
(load-pages!)
blob - /dev/null
blob + 765c96e6315075eb5c60a7ed50d61b5930416cb8 (mode 644)
--- /dev/null
+++ src/blog/net_gemini.clj
+(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)}))