|
|
|
@ -83,9 +83,9 @@ let to_dated_links ?(limit) meta_list =
|
|
|
|
|
List.rev @@ reduced [] 0 meta_list |
|
|
|
|
in |
|
|
|
|
List.fold_left |
|
|
|
|
(fun a m -> |
|
|
|
|
a ^ Logarion.(Date.(pretty_date (listing m.Text.date)) ^ " ") |
|
|
|
|
^ {|<a href="|} ^ Logarion.Text.short_id m ^ {|.htm">|} ^ m.Logarion.Text.title ^ "</a><br>") |
|
|
|
|
(fun a m -> Printf.sprintf "%s<li> %s <a href=\"%s.htm\">%s</a>" a |
|
|
|
|
Logarion.(Date.(pretty_date (listing m.Text.date))) |
|
|
|
|
(Logarion.Text.short_id m) m.Logarion.Text.title) |
|
|
|
|
"" meta_list |
|
|
|
|
|
|
|
|
|
let date_index ?(limit) conv htm meta_list = |
|
|
|
@ -146,8 +146,8 @@ let listing_index topic_map topic_roots path metas =
|
|
|
|
|
let topic_main_index conv htm topic_roots metas = |
|
|
|
|
wrap conv htm "Topics" |
|
|
|
|
(fold_topic_roots topic_roots |
|
|
|
|
^ "<nav><h1>Latest</h1>" ^ to_dated_links ~limit:10 metas |
|
|
|
|
^ {|<a href="index.date.htm">More by date</a></nav>|} ) |
|
|
|
|
^ "<nav><h1>Latest</h1><ul>" ^ to_dated_links ~limit:8 metas |
|
|
|
|
^ {|<a href="index.date.htm">More by date</a></ul></nav>|} ) |
|
|
|
|
|
|
|
|
|
let topic_sub_index conv htm topic_map topic_root metas = |
|
|
|
|
wrap conv htm topic_root |
|
|
|
|