~rabbits/left

aea82d3a029123e56424864a0a950c228323370d — neauoire a month ago f21012a
Improved parens parsing
2 files changed, 13 insertions(+), 3 deletions(-)

M src/assets.tal
M src/main.tal
M src/assets.tal => src/assets.tal +2 -0
@@ 644,6 644,8 @@
	0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0000 0000 0000 0000 0000 0000

	$1 ( syntax highlight padding )

@document
	&length $2
	&body $0

M src/main.tal => src/main.tal +11 -3
@@ 897,13 897,17 @@ RTN

@scan-font ( addr* )

	.textarea/font LDZ ,&fixed-width JCN
	.textarea/font LDZ ;&fixed-width JCN2
	.textarea/highlight LDZ ,&default JCN
	LDAk ( left-paren ) #28 ! ,&no-paren-open JCN
		( space-before ) DUP2 #0001 -- LDA #20 > ,&no-paren-open JCN
		( space-after ) DUP2 #0001 ++ LDA #20 > ,&no-paren-open JCN
		#01 ,&commented STR
		,&default JMP
		&no-paren-open
	DUP2 #0001 -- LDA ( right-paren ) #29 ! ,&no-paren-close JCN
		( space-before ) DUP2 #0002 -- LDA #20 > ,&no-paren-close JCN
		( space-after ) DUP2 LDA #20 > ,&no-paren-close JCN
		#00 ,&commented STR
		,&default JMP
		&no-paren-close


@@ 913,10 917,10 @@ RTN
	DUP2 #0001 ++ LDA IS-LABEL ,&bold JCN
	&default
		;font-data-regular ;draw-uf2/font STA2 RTN
	&bold
		;font-data-bold ;draw-uf2/font STA2 RTN
	&fixed-width
		;font-data-fixed ;draw-uf2/font STA2 RTN
	&bold
		;font-data-bold ;draw-uf2/font STA2 RTN
	&end
		RTN
	&commented $1


@@ 927,10 931,14 @@ RTN

	.textarea/highlight LDZ ,&default JCN
	LDAk ( left-paren ) #28 ! ,&no-paren-open JCN
		( space-before ) DUP2 #0001 -- LDA #20 > ,&no-paren-open JCN
		( space-after ) DUP2 #0001 ++ LDA #20 > ,&no-paren-open JCN
		#01 ,&commented STR
		#23 ;draw-uf2-multiline/color STA RTN
		&no-paren-open
	DUP2 #0001 -- LDA ( right-paren ) #29 ! ,&no-paren-close JCN
		( space-before ) DUP2 #0002 -- LDA #20 > ,&no-paren-close JCN
		( space-after ) DUP2 LDA #20 > ,&no-paren-close JCN
		#00 ,&commented STR
		,&default JMP
		&no-paren-close