Noob biff example app about biff-code-review HOT 3 CLOSED

(defn get-posts 
  [db]
  (biff/q db 
    '{:find [id title body email time]
      :keys [post-id post-title post-body post-author post-time]
      :where [[id :post/title title]
              [id :post/body body]
              [id :post/created time]
              [id :post/user author-id]
              [author-id :user/email email]]
      :order-by [[time :desc]]}))

(defn get-posts 
  [db]
  (->> (biff/q db 
               '{:find (pull post [* {:post/user [*]}])
                 :where [[post :post/title]]})
       (sort-by :post/created #(compare %2 %1))))

(defn render-post
  [{:keys [post-id post-title post-body post-author post-time]} email]
  [:article.post {:id (str "post-" post-id)}
   [:header
    [:div
     [:h1 post-title]
     [:div.about (str "by " (first (clojure.string/split post-author #"@")) " on " post-time)]]
    (if email 
      [:a.action {:hx-get (str "/app/update/" post-id)
                  :hx-target (str "#post-" post-id)
                  :hx-swap "outerHTML"} "Edit"])]
   [:p.body post-body]])

(defn render-post
  [{:post/keys [title body user created] :keys [xt/id]} email]
  [:article.post {:id (str "post-" id)}
   [:header
    [:div
     [:h1 title]
     [:div.about (str "by " (first (clojure.string/split (:user/email user) #"@")) " on " created)]]
    (if email 
      [:a.action {:hx-get (str "/app/update/" id)
                  :hx-target (str "#post-" id)
                  :hx-swap "outerHTML"} "Edit"])]
   [:p.body body]])