diff --git a/cli/html.ml b/cli/html.ml index 43540df..16116e0 100644 --- a/cli/html.ml +++ b/cli/html.ml @@ -1,14 +1,20 @@ -let wrap ?(keywords="") (title:string) (subtitle:string) body = - {||} +let wrap (title:string) (subtitle:string) body = + {|<!DOCTYPE HTML>|} + ^ {|<html><head><title>|} ^ subtitle ^ " | " ^ title - ^ {|
|} ^ title + ^ {||} + ^ {||} + ^ {||} + ^ {||} + ^ {|
|} ^ title ^ {|
|} ^ body ^ "" let topic_link root topic = - {||} ^ String.capitalize_ascii topic ^ "" - + let replaced_space = String.map (function ' '->'+' | x->x) in + {||} + ^ String.capitalize_ascii topic ^ "" + let page archive_title text = let open Logarion in let open Text in @@ -34,7 +40,7 @@ let page archive_title text = ^ opt_kv "Keywords: " keywords ^ opt_kv "Id: " (Id.to_string text.uuid) ^ {|
|} in
-  wrap ~keywords archive_title text.title ((T.of_string text.body header) ^ "
") + wrap archive_title text.title ((T.of_string text.body header) ^ "") let to_dated_links ?(limit) meta_list = let meta_list = match limit with @@ -48,7 +54,7 @@ let to_dated_links ?(limit) meta_list = List.fold_left (fun a m -> a ^ Logarion.(Date.(pretty_date (listing m.Text.date)) ^ " ") - ^ {||} ^ m.Logarion.Text.title ^ "
") + ^ {||} ^ m.Logarion.Text.title ^ "
") "" meta_list let date_index ?(limit) title meta_list = @@ -85,7 +91,7 @@ let text_item path meta = let open Logarion in " |} ^ meta.Text.title - ^ "
" + ^ "
" let listing_index topic_map topic_roots path metas = let rec item_group topics = @@ -109,7 +115,7 @@ let listing_index topic_map topic_roots path metas = let topic_main_index title topic_roots metas = wrap title "Topics" (fold_topic_roots topic_roots - ^ "