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

simplified optional parameters for templates

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

20
src/html.ml
View File

@ -8,31 +8,31 @@ let head ?(style="/style.css") t =
meta ~a:[a_charset "utf-8"] (); meta ~a:[a_charset "utf-8"] ();
] ]
let logarion_header ?header_tpl:(tpl=None) title = let logarion_header ?(header_tpl=None) title =
match tpl with match header_tpl with
| Some s -> Unsafe.data Template.(of_string s |> fold_header title) | Some s -> Unsafe.data Template.(of_string s |> fold_header title)
| None -> header [ h1 [ pcdata title] ] | None -> header [ h1 [ pcdata title] ]
let logarion_page head_title header_title main = let logarion_page ?(header_tpl=None) head_title header_title main =
html (head head_title) html (head head_title)
(body [ logarion_header header_title; main ] ) (body [ logarion_header header_title; main ] )
let logarion_text ?text_tpl:(tpl=None) ymd = let logarion_text ?(text_tpl=None) ymd =
match tpl with match text_tpl with
| Some s -> Unsafe.data Template.(of_string s |> fold_text ymd) | Some s -> Unsafe.data Template.(of_string s |> fold_text ymd)
| None -> | None ->
let ymd_body = Omd.to_html (Omd.of_string Ymd.(ymd.body)) in let ymd_body = Omd.to_html (Omd.of_string Ymd.(ymd.body)) in
details details
(summary [Unsafe.data Ymd.(ymd.meta.abstract)]) (summary [Unsafe.data Ymd.(ymd.meta.abstract)])
[time ~a:[a_datetime (Ymd.(rfc_string_of ymd.meta.date.published))] []]; [time ~a:[a_datetime Ymd.(rfc_string_of ymd.meta.date.published)] []];
Unsafe.data ymd_body; Unsafe.data ymd_body;
footer [p []] footer [p []]
let of_ymd ?text_tpl:(tpl=None) lgrn ymd = let of_ymd ?(text_tpl=None) lgrn ymd =
logarion_page logarion_page
Ymd.(ymd.meta.title ^ " by " ^ ymd.meta.author.name) Ymd.(ymd.meta.title ^ " by " ^ ymd.meta.author.name)
Logarion.Configuration.(lgrn.title) Logarion.Configuration.(lgrn.title)
(logarion_text ~text_tpl:tpl ymd) (logarion_text ~text_tpl ymd)
|> to_string |> to_string
let article_link (file, meta) = let article_link (file, meta) =
@ -40,11 +40,11 @@ let article_link (file, meta) =
[Unsafe.data Ymd.(meta.title)] [Unsafe.data Ymd.(meta.title)]
] ]
let of_file_meta_pairs ?listing_tpl:(tpl=None) lgrn file_meta_pairs = let of_file_meta_pairs ?(listing_tpl=None) lgrn file_meta_pairs =
let t = Logarion.Configuration.(lgrn.title) in let t = Logarion.Configuration.(lgrn.title) in
logarion_page logarion_page
t t t t
(match tpl with (match listing_tpl with
| Some s -> Unsafe.data Template.(of_string s |> fold_index file_meta_pairs) | 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); ])) | None -> (div [ h2 [pcdata "Articles"]; ul (List.map article_link file_meta_pairs); ]))
|> to_string |> to_string