From a4055069157cb62199397cce308fc26cca713aa7 Mon Sep 17 00:00:00 2001
From: Alexander Ilin <alex.ilin@protonmail.com>
Date: Thu, 17 Aug 2023 01:43:02 +0200
Subject: [PATCH] lcd: fix initial window size by adding one extra space on the
 right

The added space balances the space on the left of every digit, which makes
for the symmetric initial window size.
---
 extra/lcd/lcd.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/lcd/lcd.factor b/extra/lcd/lcd.factor
index 4083e5c3f0..712ed3c3cc 100644
--- a/extra/lcd/lcd.factor
+++ b/extra/lcd/lcd.factor
@@ -16,7 +16,7 @@ IN: lcd
     '[ _ lcd-digit ] { } map-as concat ;
 
 : lcd ( digit-str -- string )
-    4 <iota> [ lcd-row ] with map join-lines ;
+    4 <iota> [ lcd-row ] with map join-lines " " append ;
 
 TUPLE: time-display < label timer ;
 
-- 
2.34.1