Fix non-empty authors in HTML conversion

This commit is contained in:
orbifx 2022-11-06 12:29:49 +00:00
parent cc7515bfac
commit 671f5b5390
1 changed files with 6 additions and 6 deletions

View File

@ -58,7 +58,7 @@ let page htm conversion text =
let opt_kv key value = if String.length value > 0
then "<dt>" ^ key ^ "<dd>" ^ value else "" in
(* let author acc auth = sep_append acc Person.(auth.name ^ " ") in*)
let authors = (Person.Set.to_string text.authors ^ " ") in
let authors = Person.Set.to_string text.authors in
let keywords = str_set "keywords" text in
let header =
let time x = Printf.sprintf {|<time datetime="%s">%s</time>|}