Fix CSS to work with new conversion

This commit is contained in:
Stavros Polymenis 2017-12-06 00:09:09 +00:00
parent 98d4dac32a
commit 2d260a37de
5 changed files with 22 additions and 16 deletions

View File

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

View File

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

View File

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

View File

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

View File

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