diff --git a/src/html.ml b/src/html.ml index 367f453..55ee4ea 100644 --- a/src/html.ml +++ b/src/html.ml @@ -8,6 +8,13 @@ let html_of ymd = (title (Unsafe.data ymd_title)) [link ~rel:[`Stylesheet] ~href:"style.css" ();] ) - (body [Unsafe.data ymd_body]) + (body [ + header [ + h1 [Unsafe.data ymd_title]; + details (summary [Unsafe.data ymd.Logarion.meta.abstract]) []; + ]; + Unsafe.data ymd_body; + footer [p []]; + ]) in Format.asprintf "%a" (Tyxml.Html.pp ()) tyhtml diff --git a/src/logarion.ml b/src/logarion.ml index 53a06b1..ccf58f1 100644 --- a/src/logarion.ml +++ b/src/logarion.ml @@ -39,6 +39,7 @@ let log_meta yaml = abstract = "" } in let field_map meta (k,v) = match k with | "title" -> { meta with title = v } + | "abstract" -> { meta with abstract = v } | _ -> meta in List.fold_left field_map m fields