From 4430c2eb3d151d9acfcb6734993a4ad12ba99386 Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Thu, 5 Sep 2024 16:06:42 -0700
Subject: [PATCH] Skip printing .mp3

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

diff --git a/gui/m291/src/m291.tal b/gui/m291/src/m291.tal
index 0b8f0f7..f4c15de 100644
--- a/gui/m291/src/m291.tal
+++ b/gui/m291/src/m291.tal
@@ -882,18 +882,13 @@
 	[ LIT2 15 -Screen/auto ] DEO
 	.Screen/width DEI2 #0018 SUB2 ,&bound STR2
 	&>w ( -- )
+		LDAk [ LIT ". ] NEQ ?{ INC2k ;dict/mp3-ext scmp3 ?&end }
 		LDAk <draw-glyph>
 		( | trim )
 		.Screen/x DEI2 [ LIT2 &bound $2 ] LTH2 ?{
 			POP2 [ LIT ". ] <draw-glyph>
 			[ LIT ". ] !<draw-glyph> }
-		next-glyph LDAk ?&>w
-	POP2 JMP2r
-
-@next-glyph ( addr* -- addr* )
-	INC2 LDAk
-	( utf8 ) #06 SFT #02 EQU ?next-glyph
-	JMP2r
+		next-glyph LDAk ?&>w &end POP2 JMP2r
 
 @<draw-glyph> ( char -- )
 	DUP #7f LTH ?{
@@ -907,6 +902,11 @@
 	.Screen/x DEO2
 	JMP2r
 
+@next-glyph ( addr* -- addr* )
+	INC2 LDAk
+	( utf8 ) #06 SFT #02 EQU ?next-glyph
+	JMP2r
+
 @<update-cursor> ( color addr* -- )
 	;fill-icn .Screen/addr DEO2
 	#40 <draw-cursor>