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

fix titling in articles

Browse Source
This commit is contained in:
Stavros Polymenis 2016-10-17 23:09:07 +01:00
parent 6de3d95c83
commit 0d36a25e1f
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/html.ml
View File

@ -29,10 +29,9 @@ let logarion_text ?text_tpl:(tpl=None) ymd =
footer [p []]
let of_ymd ?text_tpl:(tpl=None) lgrn ymd =
let ymd_title = Ymd.(ymd.meta.title) in
logarion_page
(ymd_title ^ " by " ^ ymd.meta.author.name)
ymd_title
Ymd.(ymd.meta.title ^ " by " ^ ymd.meta.author.name)
Logarion.(lgrn.title)
(logarion_text ~text_tpl:tpl ymd)
|> to_string