~rabbits/nasu

deaf4db55381f3292d37b9a0954fb3ac4df8b113 — Devine Lu Linvega 8 months ago ab7bd1d
Improved theme routine
2 files changed, 10 insertions(+), 8 deletions(-)

M src/manifest.tal
M src/nasu.tal
M src/manifest.tal => src/manifest.tal +1 -1
@@ 128,7 128,7 @@ JMP2r
@menu-select ( cat -- )

	( exists )
	DUP ;get-cat JSR2 #0000 NEQ2 ,&exists JCN
	DUP ;get-cat JSR2 ORA ,&exists JCN
		POP JMP2r
		&exists
	( clear )

M src/nasu.tal => src/nasu.tal +9 -7
@@ 1096,13 1096,15 @@ JMP2r
@load-theme ( -- )

	;&path .File/name DEO2
	#0006 .File/length DEO2
	#fffa .File/load DEO2
	.File/success DEI2 #0006 NEQ2 ,&ignore JCN
		#fffa LDA2 .System/r DEO2
		#fffc LDA2 .System/g DEO2
		#fffe LDA2 .System/b DEO2
		&ignore
	#0002 .File/length DEO2
	;&r .File/load DEO2 
	;&g .File/load DEO2 
	;&b .File/load DEO2
	.File/success DEI2 AND ,&skip JCN
		LIT2 &r $2 .System/r DEO2
		LIT2 &g $2 .System/g DEO2
		LIT2 &b $2 .System/b DEO2
		&skip

JMP2r
	&path ".theme $1