2 files changed, 23 insertions(+), 7 deletions(-)

M src/assets.tal
M src/left.tal

@@ 16,6 16,10 @@
 @underline-icn [
 	0000 0000 0000 0000 0000 0000 00ff 0000
 	0000 0000 0000 0000 0000 0000 00ff 0000 ]
+@marker-icns [
+	070f 0f0f 0f0f 0f0f 0f0f 0f0f 0f0f 0f07 ]
+&end [
+	80c0 e0f0 f8fc feff fffe fcf8 f0e0 c080 ]
 @rune-icns [
 0000 0000 0038 4482 8282 4438 0000 0000 0000 0000 00fe 8282 8282 82fe 0000 0000
 0000 0000 0038 4482 9282 4438 0000 0000 0000 0000 00fe 8282 9282 82fe 0000 0000

@@ 1275,11 1275,11 @@ JMP2r
 	.selection/from LDZ2 get-current-marker ,&sel STR
 	.nav/len LDZ #00 EQUk ?&when-empty
 	&l
-		#0010 .Screen/x DEO2
+		#0008 .Screen/x DEO2
 		#00 OVR #40 SFT2 #0020 ADD2 .Screen/y DEO2
 		DUP get-marker INC2 LDA [ LIT "| ] EQU #03 MUL STH
 		DUP [ LIT &sel $1 ] EQU #30 SFT STHr ADD INC ;draw-chr/color STA
-		DUP get-marker draw-marker POP2
+		DUP get-marker draw-marker
 		INC GTHk ?&l
 	POP2
 


@@ 1332,19 1332,30 @@ JMP2r
 
 JMP2r
 
-@draw-marker ( str* -- str* )
+@draw-marker ( str* -- )
 
 	LDAk #00 EQU ?&skip
-	find-prev-spacer INC2
+	;marker-icns draw-icn
+	LDA2k [ LIT2 "@| ] NEQ2 ?&no-head 
+		INC2 INC2 
+		&no-head
 	&w
-		.Screen/x DEI2 #0078 GTH2 ?&truncate
+		.Screen/x DEI2 #0070 GTH2 ?&truncate
 		LDAk draw-chr
 		INC2 LDAk #20 GTH ?&w
+	;marker-icns/end draw-icn
 	&skip
-	INC2
+	POP2
+
+JMP2r
+	&truncate POP2 [ LIT2 ".. ] draw-chr !draw-chr
+
+@draw-icn ( addr* -- )
+
+	.Screen/addr DEO2
+	;draw-chr/color LDA #02 SFT .Screen/sprite DEO
 
 JMP2r
-	&truncate [ LIT2 ".. ] draw-chr !draw-chr
 
 @draw-filepath ( color -- )
 


@@ 1359,6 1370,7 @@ JMP2r
 @draw-position ( color -- )
 
 	#05 get-catx
+	[ LIT2 15 -Screen/auto ] DEO
 	;filepath get-strw ADD2 .Screen/x DEO2
 	#0004 .Screen/y DEO2
 	;draw-chr/color STA