1 ddc03123 2020-03-28 op (ns blog.core
  2 5e8f809e 2020-06-27 op   (:require
  3 5e8f809e 2020-06-27 op    [blog.rss :as rss]
  4 52f2ea18 2020-10-03 op    [blog.http :as http]
  5 52f2ea18 2020-10-03 op    [blog.gemini :as gemini]
  6 5e8f809e 2020-06-27 op    [blog.time :as time]
  7 5e8f809e 2020-06-27 op    [clojure.edn :as edn]
  8 5e8f809e 2020-06-27 op    [clojure.java.io :as io]
  9 5e8f809e 2020-06-27 op    [clojure.java.shell :refer [sh]]
 10 5e8f809e 2020-06-27 op    [ring.adapter.jetty :as jetty]
 11 5e8f809e 2020-06-27 op    [ring.middleware.content-type :refer [wrap-content-type]]
 12 5e8f809e 2020-06-27 op    [ring.middleware.resource :refer [wrap-resource]])
 13 0ae518ce 2020-11-19 op   (:import (java.io File)
 14 0ae518ce 2020-11-19 op            (java.nio.file Files Paths))
 15 5e8f809e 2020-06-27 op   (:gen-class))
 16 ddc03123 2020-03-28 op 
 17 ddc03123 2020-03-28 op (defn copy-file [src dst]
 18 ddc03123 2020-03-28 op   (with-open [in  (io/input-stream (io/file src))
 19 ddc03123 2020-03-28 op               out (io/output-stream (io/file dst))]
 20 ddc03123 2020-03-28 op     (io/copy in out)))
 21 ddc03123 2020-03-28 op 
 22 52f2ea18 2020-10-03 op (defn post [{:keys [slug gemtext?] :as p}]
 23 0ca1be33 2020-12-30 op   (let [ext  (if gemtext? ".gmi" ".md")
 24 0ca1be33 2020-12-30 op         path (str "posts/" slug ext)
 25 0ca1be33 2020-12-30 op         file (io/resource path)]
 26 0ca1be33 2020-12-30 op     (when-not file
 27 0ca1be33 2020-12-30 op       (throw (ex-info "51: post not found" {:slug     slug
 28 0ca1be33 2020-12-30 op                                             :gemtext? gemtext?
 29 0ca1be33 2020-12-30 op                                             :path     path})))
 30 52f2ea18 2020-10-03 op     (-> p
 31 0ca1be33 2020-12-30 op         (assoc  :body (slurp file))
 32 52f2ea18 2020-10-03 op         (update :date time/parse))))
 33 ddc03123 2020-03-28 op 
 34 d72c4e8f 2020-10-05 op (def pages (atom nil))
 35 ddc03123 2020-03-28 op (def per-tag (atom {}))
 36 ddc03123 2020-03-28 op (def posts (atom []))
 37 ddc03123 2020-03-28 op 
 38 ddc03123 2020-03-28 op (defn add-post! [m]
 39 ddc03123 2020-03-28 op   (let [p (post m)]
 40 ddc03123 2020-03-28 op     (swap! posts conj p)
 41 ddc03123 2020-03-28 op     (doseq [t (:tags m)]
 42 ddc03123 2020-03-28 op       (swap! per-tag update t conj p))))
 43 ddc03123 2020-03-28 op 
 44 5e8f809e 2020-06-27 op (defn load-posts! []
 45 5e8f809e 2020-06-27 op   (reset! per-tag {})
 46 5e8f809e 2020-06-27 op   (reset! posts [])
 47 5e8f809e 2020-06-27 op   (doseq [p (-> "posts.edn"
 48 5e8f809e 2020-06-27 op                 io/resource
 49 5e8f809e 2020-06-27 op                 slurp
 50 5e8f809e 2020-06-27 op                 edn/read-string)]
 51 5e8f809e 2020-06-27 op     (add-post! p)))
 52 ddc03123 2020-03-28 op 
 53 d72c4e8f 2020-10-05 op (defn load-pages! []
 54 d72c4e8f 2020-10-05 op   (reset! pages (->> "pages.edn"
 55 d72c4e8f 2020-10-05 op                      io/resource
 56 d72c4e8f 2020-10-05 op                      slurp
 57 d72c4e8f 2020-10-05 op                      edn/read-string
 58 d72c4e8f 2020-10-05 op                      (map (fn [{:keys [slug] :as p}]
 59 d72c4e8f 2020-10-05 op                             (assoc p :body (as-> slug $
 60 d72c4e8f 2020-10-05 op                                                 (str "pages/" $ ".gmi")
 61 d72c4e8f 2020-10-05 op                                                 (io/resource $)
 62 d72c4e8f 2020-10-05 op                                                 (slurp $))))))))
 63 d72c4e8f 2020-10-05 op 
 64 ddc03123 2020-03-28 op (defn create-dirs! []
 65 ddc03123 2020-03-28 op   (doseq [d ["resources/out"
 66 52f2ea18 2020-10-03 op              "resources/out/gemini"
 67 d72c4e8f 2020-10-05 op              "resources/out/gemini/pages"
 68 52f2ea18 2020-10-03 op              "resources/out/gemini/post"
 69 52f2ea18 2020-10-03 op              "resources/out/gemini/tag"
 70 9a594f34 2020-10-14 op              "resources/out/gemini/img"
 71 0ae518ce 2020-11-19 op              "resources/out/gemini/cgi"
 72 52f2ea18 2020-10-03 op              "resources/out/http"
 73 52f2ea18 2020-10-03 op              "resources/out/http/css"
 74 d72c4e8f 2020-10-05 op              "resources/out/http/pages"
 75 52f2ea18 2020-10-03 op              "resources/out/http/post"
 76 52f2ea18 2020-10-03 op              "resources/out/http/tag"
 77 52f2ea18 2020-10-03 op              "resources/out/http/img"]]
 78 ddc03123 2020-03-28 op     (.. (File. d) mkdirs)))
 79 ddc03123 2020-03-28 op 
 80 52f2ea18 2020-10-03 op (defn gemini-post [{? :gemtext?}] ?)
 81 52f2ea18 2020-10-03 op 
 82 52f2ea18 2020-10-03 op (defn post-pages [{:keys [proto]}]
 83 52f2ea18 2020-10-03 op   (let [tags (keys @per-tag)
 84 52f2ea18 2020-10-03 op         ext  (if (= proto :gemini) ".gmi" ".html")
 85 52f2ea18 2020-10-03 op         ffn  (if (= proto :gemini) gemini-post identity)]
 86 ddc03123 2020-03-28 op     (map-indexed (fn [i posts]
 87 ddc03123 2020-03-28 op                    {:filename (if (= i 0)
 88 52f2ea18 2020-10-03 op                                 (str "index" ext)
 89 52f2ea18 2020-10-03 op                                 (str (inc i) ext))
 90 ddc03123 2020-03-28 op                     :tags tags
 91 ddc03123 2020-03-28 op                     :nth (inc i)
 92 ddc03123 2020-03-28 op                     :posts posts
 93 ddc03123 2020-03-28 op                     :has-next true
 94 ddc03123 2020-03-28 op                     :has-prev true})
 95 52f2ea18 2020-10-03 op                  (partition-all 6 (filter ffn @posts)))))
 96 ddc03123 2020-03-28 op 
 97 ddc03123 2020-03-28 op (defn fix-next-last
 98 ddc03123 2020-03-28 op   "Fix the :has-prev/:has-next for the post pages.  This assumes
 99 ddc03123 2020-03-28 op   that `(not (empty? post-pages))`"
100 ddc03123 2020-03-28 op   [post-pages]
101 ddc03123 2020-03-28 op   (-> post-pages
102 ddc03123 2020-03-28 op       (->> (into []))
103 ddc03123 2020-03-28 op       (update 0                        assoc :has-prev false)
104 ddc03123 2020-03-28 op       (update (dec (count post-pages)) assoc :has-next false)))
105 ddc03123 2020-03-28 op 
106 d72c4e8f 2020-10-05 op (defn render-pages [pagefn proto ext]
107 d72c4e8f 2020-10-05 op   (doseq [page @pages
108 d72c4e8f 2020-10-05 op           :let [{:keys [slug]} page
109 d72c4e8f 2020-10-05 op                 filename (str "resources/out/"
110 d72c4e8f 2020-10-05 op                               (name proto) "/pages/"
111 d72c4e8f 2020-10-05 op                               slug ext)]]
112 d72c4e8f 2020-10-05 op     (spit filename
113 d72c4e8f 2020-10-05 op           (pagefn page))))
114 d72c4e8f 2020-10-05 op 
115 52f2ea18 2020-10-03 op (defn render-post-list [viewfn proto]
116 52f2ea18 2020-10-03 op   (doseq [p    (fix-next-last (post-pages {:proto proto}))
117 ddc03123 2020-03-28 op           :let [{:keys [filename]} p]]
118 52f2ea18 2020-10-03 op     (spit (str "resources/out/" (name proto) "/" filename)
119 52f2ea18 2020-10-03 op           (viewfn p))))
120 ddc03123 2020-03-28 op 
121 52f2ea18 2020-10-03 op (defn render-post [viewfn proto ext {s :slug, :as post}]
122 52f2ea18 2020-10-03 op   (spit (str "resources/out/" (name proto) "/post/" s ext)
123 52f2ea18 2020-10-03 op         (viewfn post)))
124 ddc03123 2020-03-28 op 
125 52f2ea18 2020-10-03 op (defn render-tags [viewfn proto ext tags]
126 52f2ea18 2020-10-03 op   (spit (str "resources/out/" (name proto) "/tags" ext)
127 52f2ea18 2020-10-03 op         (viewfn tags)))
128 ddc03123 2020-03-28 op 
129 52f2ea18 2020-10-03 op (defn render-tag [viewfn proto ext tag posts]
130 52f2ea18 2020-10-03 op   (spit (str "resources/out/" (name proto) "/tag/" tag ext)
131 52f2ea18 2020-10-03 op         (viewfn tag posts)))
132 ddc03123 2020-03-28 op 
133 4f9bd2e2 2020-03-30 op (defn render-rss []
134 441c3bcd 2020-11-19 op   (let [gemposts (->> @posts
135 441c3bcd 2020-11-19 op                       (filter gemini-post)
136 441c3bcd 2020-11-19 op                       (map #(dissoc % :body)))]
137 441c3bcd 2020-11-19 op     (spit (str "resources/out/gemini/rss.xml")
138 441c3bcd 2020-11-19 op           (rss/feed #(str "gemini://gemini.omarpolo.com/post/" % ".gmi")
139 441c3bcd 2020-11-19 op                     gemposts))
140 441c3bcd 2020-11-19 op     (spit (str "resources/out/gemini/rss.gmi")
141 441c3bcd 2020-11-19 op           (gemini/feed-page gemposts)))
142 52f2ea18 2020-10-03 op   (spit (str "resources/out/http/rss.xml")
143 bade790b 2020-11-05 op         (rss/feed #(str "https://www.omarpolo.com/post/" % ".html") @posts)))
144 4f9bd2e2 2020-03-30 op 
145 ddc03123 2020-03-28 op (defn copy-dir
146 0ae518ce 2020-11-19 op   "Copy the content of resources/`dir` to resources/out/`proto`/`dir`,
147 0ae518ce 2020-11-19 op   assuming these two directories exists."
148 9a594f34 2020-10-14 op   [dir proto]
149 0ae518ce 2020-11-19 op   ;; java sucks at files
150 0ae518ce 2020-11-19 op   (sh "cp" "-a"
151 0ae518ce 2020-11-19 op       (str "resources/" dir)
152 0ae518ce 2020-11-19 op       (str "resources/out/" proto "/")))
153 ddc03123 2020-03-28 op 
154 ddc03123 2020-03-28 op (defn copy-assets
155 ddc03123 2020-03-28 op   "Copy css and images to their places"
156 ddc03123 2020-03-28 op   []
157 9a594f34 2020-10-14 op   (copy-dir "img" "http")
158 9a594f34 2020-10-14 op   (copy-dir "img" "gemini")
159 52f2ea18 2020-10-03 op   (copy-file "resources/favicon.ico" "resources/out/http/favicon.ico")
160 52f2ea18 2020-10-03 op   (copy-file "resources/css/style.css" "resources/out/http/css/style.css"))
161 ddc03123 2020-03-28 op 
162 0ae518ce 2020-11-19 op (defn copy-cgi
163 0ae518ce 2020-11-19 op   "Copy cgi scripts to their place."
164 0ae518ce 2020-11-19 op   []
165 0ae518ce 2020-11-19 op   (copy-dir "cgi" "gemini"))
166 0ae518ce 2020-11-19 op 
167 52f2ea18 2020-10-03 op (comment (build)
168 40ca3ee3 2020-12-28 op          (copy-cgi)
169 52f2ea18 2020-10-03 op          (count (filter gemini-post @posts))
170 52f2ea18 2020-10-03 op          (gemini/post-page (first @posts))
171 52f2ea18 2020-10-03 op          )
172 52f2ea18 2020-10-03 op 
173 5e8f809e 2020-06-27 op (defn build
174 ddc03123 2020-03-28 op   "Build the blog"
175 ddc03123 2020-03-28 op   []
176 ddc03123 2020-03-28 op   (create-dirs!)
177 ddc03123 2020-03-28 op   (copy-assets)
178 0ae518ce 2020-11-19 op   (copy-cgi)
179 4f9bd2e2 2020-03-30 op   (render-rss)
180 d72c4e8f 2020-10-05 op   (doseq [[proto ffn ext homefn postfn tagsfn tagfn pagefn]
181 d72c4e8f 2020-10-05 op           [[:http identity ".html" http/home-page http/post-page http/tags-page http/tag-page http/custom-page]
182 d72c4e8f 2020-10-05 op            [:gemini gemini-post ".gmi" gemini/home-page gemini/post-page gemini/tags-page gemini/tag-page gemini/custom-page]]]
183 d72c4e8f 2020-10-05 op     (render-pages pagefn proto ext)
184 52f2ea18 2020-10-03 op     (render-post-list homefn proto)
185 52f2ea18 2020-10-03 op     (doseq [p (filter ffn @posts)]
186 52f2ea18 2020-10-03 op       (render-post postfn proto ext p))
187 52f2ea18 2020-10-03 op     (render-tags tagsfn proto ext (keys @per-tag))
188 52f2ea18 2020-10-03 op     (doseq [t @per-tag
189 52f2ea18 2020-10-03 op             :let [[tag posts] t]]
190 52f2ea18 2020-10-03 op       (render-tag tagfn proto ext (name tag) (filter ffn posts)))))
191 ddc03123 2020-03-28 op 
192 ddc03123 2020-03-28 op (def j (atom nil))
193 ddc03123 2020-03-28 op 
194 5e8f809e 2020-06-27 op (defn serve
195 ddc03123 2020-03-28 op   "Serve a preview"
196 ddc03123 2020-03-28 op   []
197 ddc03123 2020-03-28 op   (reset!
198 ddc03123 2020-03-28 op    j
199 ddc03123 2020-03-28 op    (jetty/run-jetty (-> (fn [_] {:status 404, :body "not found"})
200 ddc03123 2020-03-28 op                         (wrap-resource "out")
201 ddc03123 2020-03-28 op                         (wrap-content-type))
202 30bd347e 2020-08-04 op                     {:port 3030
203 ddc03123 2020-03-28 op                      :join? false})))
204 ddc03123 2020-03-28 op 
205 5e8f809e 2020-06-27 op (defn clean
206 60905fa3 2020-03-29 op   "clean the output directory"
207 60905fa3 2020-03-29 op   []
208 52f2ea18 2020-10-03 op   (sh "rm" "-rf" "resources/out/http/")
209 52f2ea18 2020-10-03 op   (sh "rm" "-rf" "resources/out/gemini/"))
210 60905fa3 2020-03-29 op 
211 4696276a 2020-09-22 op (defn local-deploy
212 4696276a 2020-09-22 op   "Copy the files to the local server"
213 4696276a 2020-09-22 op   []
214 52f2ea18 2020-10-03 op   (sh "rsync" "-r" "--delete" "resources/out/http/" "/var/www/omarpolo.local/"))
215 4696276a 2020-09-22 op 
216 5e8f809e 2020-06-27 op (defn deploy
217 ddc03123 2020-03-28 op   "Copy the files to the server"
218 ddc03123 2020-03-28 op   []
219 52f2ea18 2020-10-03 op   (sh "rsync" "-r" "--delete" "resources/out/http/"   "op:sites/www.omarpolo.com/")
220 52f2ea18 2020-10-03 op   (sh "rsync" "-r" "--delete" "resources/out/gemini/" "op:gemini"))
221 ddc03123 2020-03-28 op 
222 ddc03123 2020-03-28 op (defn stop-jetty []
223 ddc03123 2020-03-28 op   (.stop @j)
224 ddc03123 2020-03-28 op   (reset! j nil))
225 ddc03123 2020-03-28 op 
226 5e8f809e 2020-06-27 op (defn -main [& actions]
227 5e8f809e 2020-06-27 op   (load-posts!)
228 d72c4e8f 2020-10-05 op   (load-pages!)
229 5e8f809e 2020-06-27 op   (doseq [action actions]
230 5e8f809e 2020-06-27 op     (case action
231 5e8f809e 2020-06-27 op       "clean"  (clean)
232 5e8f809e 2020-06-27 op       "build"  (build)
233 5e8f809e 2020-06-27 op       "deploy" (deploy)
234 5e8f809e 2020-06-27 op 
235 5e8f809e 2020-06-27 op       (println "unrecognized action" action))))
236 5e8f809e 2020-06-27 op 
237 ddc03123 2020-03-28 op (comment
238 6776a2f2 2020-09-20 op   (do
239 6776a2f2 2020-09-20 op     (load-posts!)
240 d72c4e8f 2020-10-05 op     (load-pages!)
241 d72c4e8f 2020-10-05 op     ;; (clean)
242 4696276a 2020-09-22 op     (build)
243 4696276a 2020-09-22 op     (local-deploy))
244 ddc03123 2020-03-28 op   (serve)
245 ddc03123 2020-03-28 op   (stop-jetty)
246 4696276a 2020-09-22 op 
247 4696276a 2020-09-22 op   (do
248 4696276a 2020-09-22 op     (deploy)
249 4696276a 2020-09-22 op     (local-deploy))
250 ddc03123 2020-03-28 op )