Fix CSS to work with new conversion

share/sass/layout.sass

@@ -87,7 +87,8 @@ button
   border: .5mm solid
 
 .timeline
-  width: 90ch
+  max-width: 90ch
+  margin: auto auto
 
 .timeline > li
   position: relative
@@ -95,13 +96,15 @@ button
 
 .timeline > li time
   float: left
-  width: 14ch
-  text-align: center
+  width: 30%
+  text-align: right
   
-.timeline > li div
+  padding: 0 2ch 1em 0;
+
+.timeline > li .title
   float: left
   padding: 0 0 1em 2ch
-  width: 60%
+  max-width: 60%
 
 .topics > li
   display: inline

share/sass/main-dark.sass

@@ -6,5 +6,5 @@ body
 body, a, header a:visited
   color: #f2f2f2
 
-pre, .timeline > li div
+pre, .timeline > li .title
   border-left: 1mm solid #f2f2f233

share/sass/main-light.sass

@@ -6,5 +6,5 @@ body
 body, a, header a:visited
   color: #191B22
 
-pre, .timeline > li div
+pre, .timeline > li .title
   border-left: 1mm solid #191B22

share/static/main.css

@@ -97,7 +97,8 @@ button {
   border: .5mm solid; }
 
 .timeline {
-  width: 90ch; }
+  max-width: 90ch;
+  margin: auto auto; }
 
 .timeline > li {
   position: relative;
@@ -105,13 +106,14 @@ button {
 
 .timeline > li time {
   float: left;
-  width: 14ch;
-  text-align: center; }
+  width: 30%;
+  text-align: right;
+  padding: 0 2ch 1em 0; }
 
-.timeline > li div {
+.timeline > li .title {
   float: left;
   padding: 0 0 1em 2ch;
-  width: 60%; }
+  max-width: 60%; }
 
 .topics > li {
   display: inline;
@@ -129,5 +131,5 @@ body {
 body, a, header a:visited {
   color: #f2f2f2; }
 
-pre, .timeline > li div {
+pre, .timeline > li .title {
   border-left: 1mm solid #f2f2f233; }

src/converters/html.ml

@@ -50,12 +50,13 @@ let listing metas =
         anchor
           (Meta.alias meta ^ ".html")
           [
-            div ~style_class:"title" [data meta.Meta.title];
-            div ~style_class:"time"  [data Meta.Date.(pretty_date (last meta.Meta.date))]
+            time  @@ [unescaped_data Meta.Date.(pretty_date (last meta.Meta.date))];
+            pcdata "\n";
+            span ~a:[a_class ["title"]] [data meta.Meta.title];
           ]
       ]
   in
-  ul @@ List.map item metas
+  ul ~a:[a_class ["timeline"]] @@ List.map item metas
 
 module Renderer = struct
   let meta meta e =