commit - fec02a6bc4085efa69cbf9c0ae2e2126326f1555
commit + 3864659458dc9f31fd6edcb921e5bd662bec7118
blob - fa062023f0f8246e94c9f191b1a56fa42606cce2
blob + f84d059d52152e04168dc83eab2ba6f070f226dd
--- src/blog/core.clj
+++ src/blog/core.clj
(spit (str "resources/out/http/rss.xml")
(rss/feed #(str "https://www.omarpolo.com/post/" % ".html") @posts)))
+(defn generate-robots-txt []
+ (spit "resources/out/gemini/robots.txt" "# block some bots from accessing the gempkg
+User-agent: archiver
+Disallow: /cgi/gempkg/
+
+User-agent: indexer
+Disallow: /cgi/gempkg/
+
+User-agent: researcher
+Disallow: /cgi/gempkg/
+"))
+
(defn copy-dir
"Copy the content of resources/`dir` to resources/out/`proto`/`dir`,
assuming these two directories exists."
(copy-assets)
(copy-cgi)
(render-rss)
+ (generate-robots-txt)
(doseq [[proto ffn ext homefn postfn tagsfn tagfn pagefn]
[[:http identity ".html" http/home-page http/post-page http/tags-page http/tag-page http/custom-page]
[:gemini gemini-post ".gmi" gemini/home-page gemini/post-page gemini/tags-page gemini/tag-page gemini/custom-page]]]
"Copy the files to the server"
[]
(sh "rsync" "-r" "--delete" "resources/out/http/" "op:sites/www.omarpolo.com/")
- (sh "rsync" "-r" "--delete" "resources/out/gemini/" "op:gemini"))
+ (sh "rsync" "-r" "--delete" "resources/out/gemini/" "op:gemini/gemini.omarpolo.com"))
(defn stop-jetty []
(.stop @j)