- unify header (h2 instead of h4 in listing)

- remove "(" and ")" from created timestamp in listing
abbysmal · Jan 26, 2017 · 59a4540 · 59a4540
1 parent 5389a91
commit 59a4540
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/canopy_article.ml b/canopy_article.ml
@@ -59,10 +59,10 @@ let to_tyxml_listing_entry article =
     | Some abstract -> [p ~a:[a_class ["list-group-item-text abstract"]] [Unsafe.data abstract]] in
   let created = ptime_to_pretty_date article.created in
   let content = [
-    h4 ~a:[a_class ["list-group-item-heading"]] [pcdata article.title];
+    h2 ~a:[a_class ["list-group-item-heading"]] [pcdata article.title];
     span ~a:[a_class ["author"]] [pcdata author];
     pcdata " ";
-    pcdata "("; time [pcdata created]; pcdata ")";
+    time [pcdata created];
     br ();
   ] in
   a ~a:[a_href ("/" ^ article.uri); a_class ["list-group-item"]] (content ++ abstract)