From 701408830b043870af5ba261a3a9c47254704e2f Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Tue, 27 Aug 2024 09:20:09 -0700
Subject: [PATCH] (m291) Trim file names

---
 gui/m291/src/m291.tal | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/gui/m291/src/m291.tal b/gui/m291/src/m291.tal
index d8c83ad..3a2c5f9 100644
--- a/gui/m291/src/m291.tal
+++ b/gui/m291/src/m291.tal
@@ -674,8 +674,13 @@
 @<draw-uf2> ( text* color -- )
 	,<draw-glyph>/color STR
 	[ LIT2 15 -Screen/auto ] DEO
+	.Screen/width DEI2 #0018 SUB2 ,&bound STR2
 	&>w ( -- )
 		LDAk <draw-glyph>
+		( | trim )
+		.Screen/x DEI2 [ LIT2 &bound $2 ] LTH2 ?{
+			POP2 [ LIT ". ] <draw-glyph>
+			[ LIT ". ] !<draw-glyph> }
 		next-glyph LDAk ?&>w
 	POP2 JMP2r