From fa22cab3043e82d4f99155e4de7a71329e9cc66e Mon Sep 17 00:00:00 2001
From: "yakumo.izuru" <yakumo.izuru@eb64cd80-c68d-6f47-b6a3-0ada418499da>
Date: Sat, 21 Oct 2023 01:27:14 +0000
Subject: [PATCH] Finally got the right spacing between date and title

Signed-off-by: Izuru Yakumo <yakumo.izuru@chaotic.ninja>

git-svn-id: file:///srv/svn/repo/kosuzu/trunk@54 eb64cd80-c68d-6f47-b6a3-0ada418499da
---
 cli/html.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/cli/html.ml b/cli/html.ml
index 5f26360..d88ab25 100644
--- a/cli/html.ml
+++ b/cli/html.ml
@@ -95,7 +95,7 @@ let to_dated_links ?(limit) meta_list =
                                 | h::t -> if i < limit then reduced (h::acc) (i+1) t else acc in
                         List.rev @@ reduced [] 0 meta_list in
         List.fold_left
-        (fun a m -> Printf.sprintf "%s<li>%s <a href=\"%s.htm\">%s</a></li>" a Logarion.(Date.(pretty_date (listing m.Text.date)))          
+        (fun a m -> Printf.sprintf "%s<li>%s&ensp;<a href=\"%s.htm\">%s</a></li>" a Logarion.(Date.(pretty_date (listing m.Text.date))) 
         (Logarion.Text.short_id m) m.Logarion.Text.title)
         "" meta_list