Stage uncommited changes

views.janet

@@ -107,17 +107,18 @@
 (defn home [data]
   (base "home"
     data
-    [[:h2 "Projects"]
+    [[:h2 "Recent Posts"]
+     [:ul
+      (map (fn [post]
+             (let [{:published-at {:year y :month m :day d}} post]
+               [:li " -- " [:a {:href (utils/slugify-content data post)} (post "title")]])) (data :posts))]
+     [:h2 "Projects"]
      [:ul
       [:li "Berliner Winter"]
       [:li "Vanilla Sky"]
       [:li "All My Friends"]
       [:li "Kosmopolit"]]
-     [:h2 "Recent Posts"]
-     [:ul
-      (map (fn [post]
-             [:li [:a {:href (utils/slugify-content data post)} (post "title")]]) (data :posts))]]
-    []))
+     ] []))
 
 (defn post [data item]
   (base "post"