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

moved html code into non-templated segment

Browse Source
This commit is contained in:
Stavros Polymenis 2016-10-19 22:10:31 +01:00
parent 5f35f6c717
commit 81f423e739
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/html.ml
View File

@ -44,11 +44,9 @@ let of_file_meta_pairs ?listing_tpl:(tpl=None) lgrn file_meta_pairs =
let t = Logarion.Configuration.(lgrn.title) in
logarion_page
t t
(div [ h2 [pcdata "Articles"];
match tpl with
| Some s -> Unsafe.data Template.(of_string s |> fold_index file_meta_pairs)
| None -> ul (List.map article_link file_meta_pairs);
])
(match tpl with
| Some s -> Unsafe.data Template.(of_string s |> fold_index file_meta_pairs)
| None -> (div [ h2 [pcdata "Articles"]; ul (List.map article_link file_meta_pairs); ]))
|> to_string
let form lgrn ymd =