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 "")