software-archive/logarion-2016
2
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

implemented header and footer

Browse Source
This commit is contained in:
Stavros Polymenis 2016-09-05 22:08:26 +01:00
parent 7a4b7c9105
commit 7218db542b
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/html.ml
View File

@ -8,6 +8,13 @@ let html_of ymd =
(title (Unsafe.data ymd_title)) (title (Unsafe.data ymd_title))
[link ~rel:[`Stylesheet] ~href:"style.css" ();] [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 in
Format.asprintf "%a" (Tyxml.Html.pp ()) tyhtml Format.asprintf "%a" (Tyxml.Html.pp ()) tyhtml

1
src/logarion.ml
View File

@ -39,6 +39,7 @@ let log_meta yaml =
abstract = "" } in abstract = "" } in
let field_map meta (k,v) = match k with let field_map meta (k,v) = match k with
| "title" -> { meta with title = v } | "title" -> { meta with title = v }
| "abstract" -> { meta with abstract = v }
| _ -> meta | _ -> meta
in in
List.fold_left field_map m fields List.fold_left field_map m fields