From a9191781cb173b56e60c7c3fa27e22e38dd95811 Mon Sep 17 00:00:00 2001 From: Stavros Polymenis Date: Fri, 23 Dec 2016 02:07:34 +0000 Subject: [PATCH] hide unlisted or unpublished files --- src/html.ml | 5 +++++ src/web.ml | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/src/html.ml b/src/html.ml index 9f44ae9..4e6941d 100644 --- a/src/html.ml +++ b/src/html.ml @@ -45,6 +45,11 @@ let article_link (file, meta) = let of_file_meta_pairs ?(header_tpl=None) ?(listing_tpl=None) ?(entry_tpl=None) blog_url lgrn file_meta_pairs = let t = Logarion.Configuration.(lgrn.title) in + let file_meta_pairs = + file_meta_pairs + |> List.filter Ymd.(fun (_,a) -> not @@ CategorySet.categorised [Category.Unlisted] a.categories) + |> List.fast_sort Ymd.(fun (_,a) (_,b) -> compare (Date.last a.date) (Date.last b.date)) + in logarion_page ~header_tpl blog_url diff --git a/src/web.ml b/src/web.ml index 77e69bc..c4d1c83 100644 --- a/src/web.ml +++ b/src/web.ml @@ -76,7 +76,7 @@ let () = let (>>=) = Lwt.(>>=) and (>|=) = Lwt.(>|=) in let module L = Logarion in - let ymd f = L.of_file f in + let ymd f = L.of_file f |> (fun ymd -> if Ymd.(categorised [Category.Published]) ymd then ymd else Ymd.blank_ymd ()) in let ret_param name req = Lwt.return (param req name) in let option_load tpl o = match o with Some f -> Some (tpl f) | None -> None in let header_tpl = option_load Template.header Configuration.(webcfg.template.header) in