From c56bc2d31a8b1cb2794cc6c4cb39634c80508526 Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Sun, 17 Mar 2024 18:14:02 -0700
Subject: [PATCH] Formatting in manifest

---
 src/manifest.tal | 36 ++++++++++++++++++------------------
 1 file changed, 18 insertions(+), 18 deletions(-)

diff --git a/src/manifest.tal b/src/manifest.tal
index f44b4eb..4e2a4bc 100644
--- a/src/manifest.tal
+++ b/src/manifest.tal
@@ -70,10 +70,10 @@
 @get-cat ( cat -- cat* )
 	[ LIT2 00 _&t ] STR2
 	;<draw-menu>/manifest LDA2
-	&cat ( -- )
-	[ LIT2 &t $1 &id $1 ] INCk ,&id STR
-	EQU ?&end
-	skip-cat LDAk ?&cat
+	&>w ( -- )
+		[ LIT2 &t $1 &id $1 ] INCk ,&id STR
+		EQU ?&end
+		skip-cat LDAk ?&>w
 	POP2 #0000 &end JMP2r
 
 @get-cat-length ( cat* -- sub* length )
@@ -87,8 +87,7 @@
 		[ LIT2 &t $1 &id 00 ] INCk ,&id STR
 		EQU ?&end
 		INC2k get-strw #0008 ADD2 STH2
-		ADD2r
-		( ) skip-cat LDAk ?&>w
+		ADD2r skip-cat LDAk ?&>w
 	&end POP2 STH2r
 	( left padding + 4 ) #000e ADD2 JMP2r
 
@@ -105,19 +104,19 @@
 	ORAk ?{ JMP2r }
 	( not null ) ,&mk STR2
 	;<draw-menu>/manifest LDA2
-	&cat ( -- )
-	get-cat-length #00
-	&subcat ( -- )
-	OVR2 LDA2 [ LIT2 &mk $2 ] NEQ2 ?{
-		POP2 INC2 INC2 LDA2 JMP2r }
-	next-sub ?&subcat
-	POP2 LDAk ?&cat
+	&>cat ( -- )
+		get-cat-length #00
+		&>subcat ( -- )
+			OVR2 LDA2 [ LIT2 &mk $2 ] NEQ2 ?{
+				POP2 INC2 INC2 LDA2 JMP2r }
+			next-sub ?&>subcat
+		POP2 LDAk ?&>cat
 	POP2 #0000 JMP2r
 
 @skip-cat ( cat* -- next-cat* )
 	get-cat-length #00
-	&subcat ( -- )
-	next-sub ?&subcat
+	&>subcat ( -- )
+		next-sub ?&>subcat
 	POP2 JMP2r
 
 @next-sub ( sub* to from -- sub* to from continue )
@@ -286,10 +285,11 @@
 	POP2 JMP2r
 
 @exit ( -- )
-	#010f DEO
+	#800f DEO
 	JMP2r
-	( @
-	| assets )
+
+(
+@|assets )
 
 @hand-icn [ 2020 20b8 7c7c 3838 ]