Improve post view

Moves link below main post and adds date

src/computersandblues/lodestone/app.cljs

@@ -294,6 +294,13 @@
 (defn user [{:keys [user]}]
   (:username user))
 
+(defn- list-accounts [accounts]
+  [:<>
+   (->> (map-indexed (fn [idx account]
+                       ^{:key idx} [user {:user account}]) accounts)
+        (interleave (repeat ", "))
+        (drop 1))])
+
 (defn attachment [{:keys [attachment]}]
   (case (:type attachment)
     "image" [:img {:src (:preview_url attachment)
@@ -309,23 +316,25 @@
 
 (defn post [{:keys [post]}]
   ; TODO: handle (:sensitive post)
-  [:article
-   [:div.users
-    [user {:user (:account post)}]
-    (when (seq (:mentions post))
-      [:span.mentions
-       {:style #js {:color "#777"}}
-       " (mentioning " (->> (map-indexed (fn [idx account]
-                                            ^{:key idx} [user {:user account}])
-                                          (:mentions post))
-                             (interleave (repeat ", "))
-                             (drop 1)) ")"])]
-   [:div.url [:a {:href (:url post)} (:url post)]]
-   [:div.content {:dangerouslySetInnerHTML (r/unsafe-html (:content post))}
+  [:article.post
+   [:header.metadata
+    [:section.users
+     [user {:user (:account post)}]
+     (when (seq (:mentions post))
+       [:span.mentions
+        " (mentioning " [list-accounts (:mentions post)] ")"])]
+    [:section.post-info
+     [:time.date {:datetime (:created_at post)} (first (str/split (:created_at post) "T"))]]]
+   [:section.content {:dangerouslySetInnerHTML (r/unsafe-html (:content post))}
     (when (seq (:media_attachments post))
-      [:div.attachments (map-indexed (fn [idx item]
-                                       ^{:key idx} [attachment {:attachment item}])
-                                     (:media_attachments post))])]
+      [:section.attachments
+       (map-indexed (fn [idx item]
+                      ^{:key idx} [attachment {:attachment item}])
+                    (:media_attachments post))])]
+   [:nav
+    [:ul.controls
+     [:li.control-element.url
+      [:a {:href (:url post) :target "_blank"} "↗ Open original post"]]]]
    #_[debug post]])
 
 (defn- refresh-displayed-posts!