~rabbits/left

708d3306d2aef5e4ce64f21cef007aea3013b0b7 — neauoire 4 months ago 4853794 
Simplified get-width
patch browse .tar.gz 
1 files changed, 4 insertions(+), 8 deletions(-)

M src/left.tal

M src/left.tal => src/left.tal +4 -8
@@ 430,14 430,10 @@ JMP2r

@get-width ( addr* -- width* )

	LDAk DUP #7e GTH ,&special JCN
	.textarea/highlight LDZ ,&skip-highlight JCN
		[ LIT ", ] EQUk NIP ,&special JCN
		[ LIT ". ] EQUk NIP ,&special JCN
		[ LIT "- ] EQUk NIP ,&special JCN
		[ LIT "; ] EQUk NIP ,&special JCN
		[ LIT "= ] EQUk NIP ,&special JCN
		&skip-highlight
	LDAk DUP #7e GTH
		,&special JCN
	DUP ;runes ;cfnd JSR2 .textarea/highlight LDZ #00 EQU AND
		,&special JCN
	#00 SWP ;font ADD2 LDA #00 SWP

JMP2r