Merge pull request #200 from ClojureCivitas/authors

add author post listing pages

Author: timothypratley

site/db.edn

@@ -119,6 +119,7 @@
   {:id          :kloimhardt
    :name        "Markus Agwin Kloimwieder"
    :url         "https://github.com/kloimhardt"
+   :image       "https://github.com/kloimhardt.png"
    :affiliation [:scicloj]}
   {:id          :edwardaw
    :name        "Edward Widjaja"
@@ -135,17 +136,22 @@
    :links [{:icon "github" :href "https://github.com/tombarys"}]}
   {:id          :mattb
    :name        "Matthias Buehlmaier"
+   :url         "https://github.com/buehlmaier"
+   :image       "https://github.com/buehlmaier.png"
    :affiliation [:cim]}
   {:id          :tanvi
    :name        "Tanvi Nagar"
    :email       "[email protected]"
    :affiliation [:cim]}
   {:id          :luke-zeitlin
    :name        "Luke Zeitlin"
+   :url         "https://github.com/larzeitlin"
+   :image       "https://github.com/larzeitlin.png"
    :affiliation []}
   {:id          :ludgersolbach
    :name        "Ludger Solbach"
    :url         "https://github.com/lsolbach"
+   :image       "https://github.com/lsolbach.png"
    :links       [{:icon "github" :href "https://github.com/lsolbach"}]
    :affiliation []}
   {:id    :bsless

src/civitas/authors.clj

@@ -1,13 +1,56 @@
 ^:kindly/hide-code
-^{:clay {:title "Authors"
+^{:clay {:title  "Authors"
          :quarto {:type :page}}}
 (ns civitas.authors
-  (:require [civitas.db :as db]
+  (:require [camel-snake-kebab.core :as csk]
+            [civitas.db :as db]
+            [civitas.explorer.geometry :as geom]
+            [civitas.explorer.svg :as svg]
+            [civitas.why.village.color :as color]
+            [clj-yaml.core :as yaml]
+            [clojure.java.io :as io]
+            [clojure.string :as str]
             [scicloj.kindly.v4.kind :as kind]))
 
-;; You belong here!
+;; You belong here! Thank you for sharing your ideas.
 
-;; Thank you for sharing your ideas.
+^:kindly/hide-code
+(def authors (->> (:author @db/db)
+                  (sort-by :name)))
+
+^:kindly/hide-code
+(defn authors-hexagon []
+  (let [colors (cycle (take 11 color/palette))
+        r 6]
+    [:g
+     [:g {:transform "scale(0.8)"}
+      (for [[{:keys [image name]} [x y] color] (map vector authors (geom/spiral 100) colors)]
+        [:a {:href (str "/" (csk/->Camel_Snake_Case name) ".html")}
+         [:title name]
+         [:g {:transform (str "translate(" (* r x) "," (* r y) ")")}
+          (svg/polygon {:fill         color
+                        :stroke       "#5881D8"
+                        :stroke-width 1}
+                       (geom/hex r))
+          [:image {:x                   -5
+                   :y                   -5
+                   :width               10
+                   :height              10
+                   :href                image
+                   :clip-path           "url(#hex)"
+                   :preserveAspectRatio "xMidYMid slice"}]]])]]))
+
+^:kind/hiccup ^:kindly/hide-code
+[:svg
+ {:xlmns   "http://www.w3.org/2000/svg"
+  :viewBox "-30 -30 60 60"
+  :width   "100%"}
+ [:defs
+  [:clipPath {:id "hex"}
+   [:polygon {:points (str/join " "
+                                (map #(str/join "," %) (geom/hex 5)))}]]]
+ [:text {:x -30, :y -15 :fill "#5881D8"} (str (count authors))]
+ (authors-hexagon)]
 
 ^:kindly/hide-code
 (defn card-link [href icon text]
@@ -18,23 +61,43 @@
 
 ^:kindly/hide-code
 (defn card [{:keys [name url links affiliation image]} affiliations]
-  (kind/hiccup
-    [:div.card
-     (when image [:img.card-img-top {:src image}])
-     [:div.card-body
-      [:h5.card-title name]
-      [:div
-       (when url (card-link url nil nil))
-       (for [{:keys [href icon]} links]
-         (card-link href icon nil))]
-      (for [{:keys [name url]} (map affiliations affiliation)]
-        (card-link url nil name))]]))
+  [:tr
+   [:td (when image [:img {:src image :width "50px"}])]
+   [:td name]
+   [:td (for [{:keys [name url]} (map affiliations affiliation)]
+          (card-link url nil name))]
+   [:td (card-link (str "/" (csk/->Camel_Snake_Case name) ".html") nil "posts")]])
 
 ^:kindly/hide-code
 (let [affiliations (db/index-by :id (:affiliation @db/db))]
-  (into ^:kind/hiccup [:div]
-        (comp (map #(card % affiliations))
-              (partition-all 5)
-              (map #(into [:div.card-group] %)))
-        (->> (:author @db/db)
-             (sort-by :name))))
+  ^:kind/hiccup
+  [:table
+   [:thead
+    [:tr
+     [:th ""]
+     [:th "Name"]
+     [:th "Affiliation"]
+     [:th "Posts"]]]
+   [:tbody
+    (map #(card % affiliations)
+         authors)]])
+
+^:kindly/hide-code
+^:kind/hidden
+(doseq [author authors]
+  (let [front-matter {:title   (:name author)
+                      :about   (assoc (select-keys author [:image :links])
+                                 :template "trestles")
+                      :author  author
+                      :listing {:contents  [".", "!./*.qmd"]
+                                :include   {:type   :post
+                                            :author (str "{" (:name author) "}" "*")}
+                                :sort      ["date desc" "title desc"]
+                                :sort-ui   true
+                                :filter-ui true}}]
+    (doto (io/file "site"
+                   (str (csk/->Camel_Snake_Case (:name author)) ".qmd"))
+      (io/make-parents)
+      (spit (str "---\n"
+                 (yaml/generate-string front-matter)
+                 "\n---\n")))))

src/civitas/why/village/scene.clj

@@ -9,7 +9,7 @@
                            :image       "preview.png"
                            :category    :collaboration
                            :tags        [:clojure :writing :workflow :motivation :community]}}}
-  (:require [civitas.db :as db]
+  (:require [civitas.authors :as authors]
             [civitas.explorer.geometry :as geom]
             [civitas.explorer.svg :as svg]
             [civitas.why.village.color :as color]
@@ -406,30 +406,6 @@
    (t (cylinder 1 10 6 (:sstone col)))
    (t (oblong-mesh 0 0 10 3 3 1 (:sstone col) "slate"))])
 
-(defn authors []
-  (let [authors (->> (:author @db/db)
-                     (sort-by :name))
-        n (count authors)
-        colors (cycle (take 11 color/palette))
-        r 6]
-    [:g
-     [:g {:transform "translate(0,-8)"}
-      (mu/mo (str n " authors"))]
-     [:g {:transform "scale(0.8)"}
-      (for [[{:keys [image]} [x y] color] (map vector authors (geom/spiral 100) colors)]
-        [:g {:transform (str "translate(" (* r x) "," (* r y) ")")}
-         (svg/polygon {:fill         color
-                       :stroke       (:dblue col)
-                       :stroke-width 1}
-                      (geom/hex r))
-         [:image {:x                   -5
-                  :y                   -5
-                  :width               10
-                  :height              10
-                  :href                image
-                  :clip-path           "url(#hex)"
-                  :preserveAspectRatio "xMidYMid slice"}]])]]))
-
 (defn posts []
   (let [r 3
         n 80
@@ -1278,7 +1254,9 @@ where you can view the code, or clone the repo to experiment locally."]
 
    [{:fill (:lblue col)}
     [:g {}
-     (authors)]
+     (authors/authors-hexagon)
+     [:g {:transform "translate(0,-8)"}
+      (mu/mo (str (count authors/authors) " authors"))]]
     "Thank you so much to the many authors for sharing your ideas!
 30 authors have contributed blog posts.
 I hope that you will join us, and write your own post."]