From 77c597b02ec9cf68d45c6d80fdb4146f7856bb2f Mon Sep 17 00:00:00 2001 From: "yakumo.izuru" Date: Thu, 19 Oct 2023 01:21:22 +0000 Subject: [PATCH] Prettify HTML output and add a hardcoded favicon path (soon to be configurable) Signed-off-by: Izuru Yakumo git-svn-id: file:///srv/svn/repo/kosuzu/trunk@50 eb64cd80-c68d-6f47-b6a3-0ada418499da --- cli/html.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/cli/html.ml b/cli/html.ml index 580d438..c51d889 100644 --- a/cli/html.ml +++ b/cli/html.ml @@ -13,7 +13,7 @@ let init kv = let header = to_string "HTM-header" kv in let footer = to_string "HTM-footer" kv in let style = match to_string "HTM-style" kv with - | Some s -> Printf.sprintf "" s | None -> "" in + | Some s -> Printf.sprintf "\n" s | None -> "" in { templates = { header; footer}; style } let wrap conv htm text_title body = @@ -31,8 +31,8 @@ let wrap conv htm text_title body = (if feed <> "" then sprintf "feed" feed else "")) in let footer = match htm.templates.footer with None -> "" | Some x -> replace x in - Printf.sprintf "%s%s\n%s\n%s\ - \n%s%s%s" + Printf.sprintf "\n\n\n\n%s%s\n%s\n%s\ + \n\n\n\n%s%s%s\n" text_title (if site_title <> "" then (" • " ^ site_title) else "") htm.style (if feed <> "" then Printf.sprintf "" feed else "")