uxn-utils/gui/notepad/src/notepad.tal

( A port of the macintosh classic notepad )

|00 @System &vector $2 &pad $6 &r $2 &g $2 &b $2
|20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1
|80 @Controller &vector $2 &button $1 &key $1
|90 @Mouse &vector $2 &x $2 &y $2 &state $1 &chord $1
|a0 @File &vector $2 &success $1 &success-lb $1 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2
|000

	@page $1
	@collapsed $1
	@selection &a $2 &b $2 &length $2

|100

@on-reset ( -> )
	( | meta )
	;meta #06 DEO2
	( | theme )
	#f00f .System/r DEO2
	#f00f .System/g DEO2
	#f00f .System/b DEO2
	load-theme
	( | size )
	#00e0 .Screen/width DEO2
	#00f8 .Screen/height DEO2
	( | unlock )
	;on-mouse-body .Mouse/vector DEO2
	;on-frame .Screen/vector DEO2
	;on-control .Controller/vector DEO2
	( | let's go! )
	file-init <draw-header>
	#00 change-page BRK

@meta 00
	( name ) "Note 20 "Pad 0a
	( details ) "Original 20 "by 20 "Donn 20 "Denman 0a
	( author ) "By 20 "Devine 20 "Lu 20 "Linvega 0a
	( date ) "May 20 "28, 20 "2024 00 01
	( icon ) 83 =appicon

(
@|vectors )

@on-control ( -> )
	.Controller/key DEI .Controller/button DEI
	( | shortcuts )
	DUP2 [ LIT2 "a 01 ] NEQ2 ?{ POP2 <select-all>
		BRK }
	DUP2 [ LIT2 "x 01 ] NEQ2 ?{ POP2 edit-cut BRK }
	DUP2 [ LIT2 "c 01 ] NEQ2 ?{ POP2 edit-copy BRK }
	DUP2 [ LIT2 "v 01 ] NEQ2 ?{ POP2 edit-paste BRK }
	( | mask shift key )
	#fb AND
	( | arrows )
	DUP #10 NEQ ?{
		get-to #0001 SUB2 find-line-start <select-variable> }
	DUP #20 NEQ ?{ get-to INC2 find-line-end <select-variable> }
	DUP #40 NEQ ?{ <select-left> }
	DUP #80 NEQ ?{ <select-right> }
	DUP #42 NEQ ?{
		.selection/b LDZ2 #0001 SUB2 find-word-start <select-variable> }
	DUP #82 NEQ ?{
		.selection/b LDZ2 INC2 find-word-end <select-variable> }
	( | pagination )
	DUP #21 NEQ OVR #81 NEQ AND ?{ next-page }
	DUP #11 NEQ OVR #41 NEQ AND ?{ prev-page }
	POP
	( | key )
	DUP #08 NEQ ?{ erase }
	DUP #7f NEQ ?{ delete }
	DUP #09 LTH ?{ DUP insert }
	POP BRK

@on-mouse-head ( -> )
	[ LIT2 00 -Mouse/state ] DEI NEQ #41 ADD ;mouse-icn <update-cursor>
	<trap-mouse>
	.Mouse/y DEI2 #0010 LTH2 ?{ BRK }
	( | collapse on mouse2 )
	.Mouse/state DEI #02 LTH ?{
		#00f8 #0011 .collapsed LDZ ?{ SWP2 }
		POP2 .Screen/height DEO2
		[ LIT2 00 -collapsed ] LDZ EQU .collapsed STZ
		<draw-header>
		<redraw>
		[ LIT2 00 -Mouse/state ] DEO
		BRK }
	[ LIT &last $1 ] .Mouse/state DEI DUP ,&last STR
	EQU ?&unchanged
	<draw-header>
	( release on close button ) .Mouse/state DEI ?&unchanged
	.Mouse/x DEI2 #0008 SUB2 #000a GTH2 ?&unchanged
	( exit ) #800f DEO
	&unchanged BRK

@on-mouse-body ( -> )
	[ LIT2 00 -Mouse/state ] DEI NEQ #41 ADD ;caret-icn <update-cursor>
	<trap-mouse>
	[ LIT &last $1 ] .Mouse/state DEI DUP #02 LTH ?{ get-position <select-word> }
	DUP2 #0001 NEQ2 ?{ get-position <select-variable> }
	DUP2 #0101 NEQ2 ?{ get-position <select-to> }
	,&last STR
	POP BRK

@on-mouse-foot ( -> )
	[ LIT2 00 -Mouse/state ] DEI NEQ #41 ADD ;mouse-icn <update-cursor>
	<trap-mouse>
	[ LIT2 00 -Mouse/state ] DEI NEQ .Mouse/x DEI2 #0018 LTH2 AND ?&on-mouse-down
	BRK
	&on-mouse-down ( -> )
	[ LIT2 00 -Mouse/state ] DEO
	.Mouse/y DEI2 #00d6 SUB2 NIP [ LIT2 18 -Mouse/x ] DEI2 NIP SUB ADD #18 LTH ?&go-next
	prev-page BRK &go-next next-page BRK

@on-frame ( -> )
	[ LIT2 &last $1 &f $1 ] INCk ,&f STR
	#05 SFT DUP ,&last STR
	EQU ?{ <draw-note> }
	BRK

(
@|editor )

@insert ( char -- )
	DUP #7f LTH ?{ POP JMP2r }
	#00 ;on-frame/f STA
	get-from scap/ get-page #1000 ADD2 LTH2 ?{ POP JMP2r }
	( | convert linebreaks )
	DUP #0d EQU #03 MUL SUB .selection/length LDZ2 #0000 EQU2 ?{ erase-selection }
	get-from STH2k #0001 SUB2 get-eof #0001 <msfr>
	STH2kr STA
	STH2r INC2 <select-from>
	!file-save

@erase ( -- )
	#00 ;on-frame/f STA
	.selection/length LDZ2 #0000 EQU2 ?{ erase-selection !<select-reset> }
	get-from get-page NEQ2 [ JMP JMP2r ] get-from #0001 SUB2 DUP2 cut-char <select-from>
	!file-save

@erase-selection ( -- )
	get-from get-eof .selection/length LDZ2 <msfl>
	!file-save

@delete ( -- )
	#00 ;on-frame/f STA
	get-eof get-from SUB2 ORA #01 [ JCN JMP2r ] .selection/length LDZ2 #0000 EQU2 ?{ erase-selection !<select-reset> }
	get-from cut-char <redraw>
	!file-save

@get-eof ( -- addr* )
	get-page !scap/

@cut-char ( addr* -- )
	get-eof #0001 !<msfl>

(
@|selection )

@<select-variable> ( addr* -- )
	[ LIT2 04 -Controller/button ] DEI AND ?<select-to>
	!<select-from>

@<select-reset> ( -- )
	get-from
	( >> )

@<select-from> ( addr* -- )
	clamp-selection DUP2 .selection/a STZ2
	.selection/b STZ2
	!select

@<select-to> ( addr* -- )
	clamp-selection DUP2 .selection/b LDZ2 NEQ2 ?{ POP2 JMP2r }
	.selection/b STZ2
	!select

@<select-word> ( addr* -- )
	DUP2 &back #0001 SUB2 LDAk #20 GTH ?&back
	INC2 .selection/a STZ2
	&next INC2 LDAk #20 GTH ?&next
	.selection/b STZ2
	!select

@<select-all> ( -- )
	get-page DUP2 .selection/a STZ2
	scap/ #0001 SUB2 .selection/b STZ2
	( >> )

@select ( -- )
	get-to get-from SUB2 .selection/length STZ2
	#00 ;on-frame/f STA
	!<redraw>

@<select-left> ( -- )
	.selection/length LDZ2 #0000 EQU2 [ LIT2 04 -Controller/button ] DEI AND #00 NEQ ORA ?{ get-from !<select-from> }
	.selection/b LDZ2 #0001 SUB2 !<select-variable>

@<select-right> ( -- )
	.selection/length LDZ2 #0000 EQU2 [ LIT2 04 -Controller/button ] DEI AND #00 NEQ ORA ?{ get-to !<select-from> }
	.selection/b LDZ2 INC2 !<select-variable>

@get-from ( -- addr* )
	.selection/b LDZ2 .selection/a LDZ2 LTH2k [ JMP SWP2 POP2 ] JMP2r

@get-to ( -- addr* )
	.selection/a LDZ2 .selection/b LDZ2 GTH2k [ JMP SWP2 POP2 ] JMP2r

@clamp-selection ( addr* -- addr* )
	( min ) get-page GTH2k [ JMP SWP2 POP2 ]
	( max ) get-eof #0001 SUB2 LTH2k [ JMP SWP2 POP2 ] JMP2r

@is-selected ( addr* -- addr* f )
	DUP2 get-from LTH2 ?&false
	DUP2 get-to #0001 SUB2 GTH2 ?&false
	#01 JMP2r
	&false #00 JMP2r

(
@|file )

@file-init ( -- )
	;notepad-path file-size #0000 EQU2 ?file-new
	( | load file )
	;notepad-path .File/name DEO2
	#8000 .File/length DEO2
	;mem .File/read DEO2
	JMP2r

@file-new ( -- )
	#0801
	&>l ( -- )
		#00 OVR #c0 SFT2 ;mem ADD2 STH2
		#20 STH2r STA
		INC GTHk ?&>l
	POP2 JMP2r

@file-save ( -- )
	;notepad-path .File/name DEO2
	#8000 .File/length DEO2
	;mem .File/write DEO2
	JMP2r

@file-size ( path* -- size* )
	.File/name DEO2
	#0001 .File/length DEO2
	[ LIT2r 0000 ]
	&>s ( -- )
		;&b .File/read DEO2
		[ LIT2 00 -File/success-lb ] DEI EQU ?&eof
		INC2r !&>s
	&eof STH2r JMP2r
	&b $1

@file-inject ( name* -- )
	DUP2 file-size ORAk ?{ POP2 POP2 JMP2r }
	STH2
	.File/name DEO2
	STH2kr .File/length DEO2
	( | erase when selection length )
	.selection/length LDZ2 #0000 EQU2 ?{
		get-from get-eof .selection/length LDZ2 <msfl> }
	( push right ) get-from #0001 SUB2 get-eof STH2kr <msfr>
	get-from .File/read DEO2
	get-from STH2r ADD2 !<select-from>

@edit-cut ( -- )
	.selection/length LDZ2 #0001 GTH2 [ JMP JMP2r ] edit-copy erase-selection <select-reset>
	!file-save

@edit-copy ( -- )
	.selection/length LDZ2 #0001 GTH2 [ JMP JMP2r ] ;snarf-path .File/name DEO2
	.selection/length LDZ2 .File/length DEO2
	get-from .File/write DEO2
	JMP2r

@edit-paste ( -- )
	;snarf-path file-inject !file-save

(
@|core )

@<trap-mouse> ( -- )
	.Mouse/y DEI2 DUP2 #0018 GTH2 ?{
		POP2 ;on-mouse-head .Mouse/vector DEO2
		JMP2r }
	DUP2 #00d6 LTH2 ?{
		POP2 ;on-mouse-foot .Mouse/vector DEO2
		JMP2r }
	POP2 ;on-mouse-body .Mouse/vector DEO2
	JMP2r

@change-page ( id -- )
	.page STZ
	get-page scap/ #0001 SUB2 !<select-from>

@prev-page ( -- )
	.page LDZ #01 SUB #07 AND !change-page

@next-page ( -- )
	.page LDZ INC #07 AND !change-page

@pos-to-line ( y* -- line )
	#0012 SUB2 #04 SFT2 NIP JMP2r

@get-position ( -- addr* )
	#0008 .Screen/x DEO2
	#0018 .Screen/y DEO2
	( | walk to line )
	.Mouse/y DEI2 pos-to-line ,&line STR
	get-page
	&>walk-line ( -- )
		.Screen/y DEI2 pos-to-line [ LIT &line $1 ] EQU ?&end-line
		walk-char POP INC2 LDAk ?&>walk-line
	&end-line ( walk to char )
	.Mouse/x DEI2 #0001 SUB2 ,&x STR2
	&>walk-char ( -- )
		.Screen/x DEI2 [ LIT2 &x $2 ] GTH2 ?&end-char
		walk-char ?&end-char
		INC2 LDAk ?&>walk-char
	&end-char JMP2r

@walk-char ( addr* -- addr* lb )
	( | wrap )
	LDAk #20 GTH ?&no-wrap
	DUP2 word-width .Screen/x DEI2 ADD2 #00d0 LTH2 ?&no-wrap
	( | tabbed )
	DUP2 find-line-start LDA2 DUP2 #093e NEQ2 ?{ POP2 #01 #0021 !<draw-linebreak> }
	DUP2 #092d NEQ2 ?{ POP2 #01 #0022 !<draw-linebreak> }
	POP2 #01 #0008 !<draw-linebreak>
	&no-wrap ( char )
	LDAk char-width .Screen/x DEI2 ADD2 .Screen/x DEO2
	( | tab )
	LDAk #09 NEQ ?{ #00 !<draw-tab> }
	( | linebreak )
	LDAk #0a NEQ ?{ #01 #0008 !<draw-linebreak> }
	#00 JMP2r

@get-page ( -- addr* )
	;mem [ LIT2 00 -page ] LDZ #c0 SFT2 ADD2 JMP2r

@char-addr ( prev char -- addr* )
	DUP #7e GTH ?&missing
	DUP #20 LTH ?&blank
	DUP2 #0a3e EQU2 ?&marker
	DUP2 #093e EQU2 ?&marker
	DUP2 #092d EQU2 ?&bullet
	NIP #20 SUB #00 SWP #50 SFT2 ;font/glyphs ADD2 JMP2r
	&blank POP2 ;font/glyphs JMP2r
	&missing POP2 ;error-icn JMP2r
	&marker POP2 ;marker-icn JMP2r
	&bullet POP2 ;bullet-icn JMP2r

@char-width ( char -- width* )
	DUP #7e GTH ?{
		#20 SUB #00 SWP ;font ADD2 LDA #00 SWP JMP2r }
	POP #0008 JMP2r

@word-width ( str* -- length* )
	[ LIT2r 0000 ]
	&>w ( -- )
		LDAk char-width STH2
		ADD2r INC2 LDAk #20 GTH ?&>w
	POP2 STH2r JMP2r

@find-line-start ( addr* -- addr* )
	;mem SWP2
	&>l ( -- )
		#0001 SUB2 LDAk DUP #0a EQU SWP #00 EQU ORA ?&end
		LTH2k ?&>l
	&end NIP2 INC2 JMP2r

@find-line-end ( addr* -- addr* )
	get-eof SWP2
	&>l ( -- )
		LDAk #0a EQU ?&end
		LDAk #00 EQU ?&end
		INC2 GTH2k ?&>l
	&end NIP2 JMP2r

@find-word-start ( addr* -- addr* )
	;mem SWP2
	&>l ( -- )
		#0001 SUB2 LDAk #21 LTH ?&end
		LTH2k ?&>l
	&end NIP2 INC2 JMP2r

@find-word-end ( addr* -- addr* )
	get-eof SWP2
	&>l ( -- )
		LDAk #21 LTH ?&end
		INC2 GTH2k ?&>l
	&end NIP2 JMP2r

(
@|drawing )

@<draw-header> ( -- )
	( | a )
	#0000 DUP2 .Screen/x DEO2
	.Screen/y DEO2
	[ LIT2 15 -Screen/auto ] DEO
	;bar-icn/a .Screen/addr DEO2
	[ LIT2 01 -Screen/sprite ] DEO
	( | close )
	;close-icn #00 [ LIT2 00 -Mouse/state ] DEI NEQ .Mouse/x DEI2 #0008 SUB2 #000a LTH2 AND #50 SFT2 ADD2 .Screen/addr DEO2
	[ LIT2 01 -Screen/sprite ] DEOk DEO
	( | lead )
	#e9
	&>l ( -- )
		;bar-icn/b .Screen/addr DEO2
		[ LIT2 01 -Screen/sprite ] DEO
		INC DUP ?&>l
	POP ;bar-icn/b .Screen/addr DEO2
	[ LIT2 01 -Screen/sprite ] DEOk DEO
	( | title )
	#004b .Screen/x DEO2
	[ LIT2 86 -Screen/auto ] DEO
	;title-icn .Screen/addr DEO2
	[ LIT2 01 -Screen/sprite ] DEOk DEO
	( | line )
	[ LIT2 d2 -Screen/auto ] DEO
	#0000 .Screen/x DEO2
	#0010 .Screen/y DEO2
	;line-icn .Screen/addr DEO2
	[ LIT2 01 -Screen/sprite ] DEO
	#0070 .Screen/x DEO2
	#0010 .Screen/y DEO2
	[ LIT2 01 -Screen/sprite ] DEO
	JMP2r

@<redraw> ( -- )
	#0000 .Screen/x DEO2
	#0018 .Screen/y DEO2
	[ LIT2 80 -Screen/pixel ] DEO
	( >> )

@<draw-note> ( -- )
	[ LIT2 00 -collapsed ] LDZ EQU ?{ JMP2r }
	[ LIT2 15 -Screen/auto ] DEO
	#0008 .Screen/x DEO2
	#0018 .Screen/y DEO2
	get-page
	&>w ( -- )
		( | page end )
		.Screen/y DEI2 #00c8 NEQ2 ?{
			;etc-icn .Screen/addr DEO2
			#01 .Screen/sprite DEO
			!&end }
		( | draw char )
		DUP2 #0001 SUB2 LDA2 char-addr .Screen/addr DEO2
		is-selected STH
		#0701 STHr [ JMP SWP POP ] .Screen/sprite DEOk DEO
		.Screen/x DEI2k #0010 SUB2 ROT DEO2
		( | draw selector )
		get-from get-to NEQ2 ?&block
		DUP2 get-from NEQ2 ?&block
		;on-frame/last LDA #01 AND ?&block
		;blink-icn .Screen/addr DEO2
		[ LIT2 05 -Screen/sprite ] DEO
		.Screen/x DEI2k #0008 SUB2 ROT DEO2
		&block walk-char POP INC2 LDAk ?&>w
	&end POP2

@<draw-footer> ( -- )
	[ LIT2 26 -Screen/auto ] DEO
	#0000 .Screen/x DEO2
	.Screen/height DEI2 #0020 SUB2 .Screen/y DEO2
	;page-icn .Screen/addr DEO2
	[ LIT2 01 -Screen/sprite ] DEOk DEOk DEOk DEO
	( | across )
	[ LIT2 01 -Screen/auto ] DEO
	#0018 .Screen/x DEO2
	.Screen/height DEI2 #0008 SUB2 .Screen/y DEO2
	;page-icn/bottom .Screen/addr DEO2
	#e7
	&>l ( -- )
		[ LIT2 01 -Screen/sprite ] DEO
		INC DUP ?&>l
	POP
	( | page number )
	[ LIT2 15 -Screen/auto ] DEO
	.Screen/width DEI2 #01 SFT2 #0003 SUB2 .Screen/x DEO2
	.Screen/height DEI2 #0020 SUB2 .Screen/y DEO2
	#0011 .page LDZ ADD #50 SFT2 ;font/glyphs ADD2 .Screen/addr DEO2
	[ LIT2 01 -Screen/sprite ] DEOk DEO
	JMP2r

@<draw-tab> ( -- )
	.Screen/x DEI2k #0010 ADD2 #33 SFT2 ROT DEO2
	JMP2r

@<draw-linebreak> ( x* -- )
	.Screen/x DEO2
	.Screen/y DEI2k #0010 ADD2 ROT DEO2
	JMP2r

@<update-cursor> ( color addr* -- )
	[ LIT2 15 -Screen/auto ] DEO
	;fill-icn .Screen/addr DEO2
	#40 <draw-cursor>
	.Mouse/x DEI2 ,<draw-cursor>/x STR2
	.Mouse/y DEI2 ,<draw-cursor>/y STR2
	.Screen/addr DEO2
	( >> )

@<draw-cursor> ( color -- )
	[ LIT2 &x $2 ] .Screen/x DEO2
	[ LIT2 &y $2 ] .Screen/y DEO2
	.Screen/sprite DEO
	JMP2r

(
@|stdlib )

@scap ( str* -- end* )
	&>w ( -- )
		INC2 & LDAk ?&>w
	JMP2r

@<phex> ( short* -: )
	SWP /b
	&b ( byte -: )
	DUP #04 SFT /c
	&c ( byte -: )
	#0f AND DUP #09 GTH #27 MUL ADD [ LIT "0 ] ADD #18 DEO
	JMP2r

@load-theme ( -- )
	;theme-path .File/name DEO2
	#0002 .File/length DEO2
	;&r .File/read DEO2
	;&g .File/read DEO2
	;&b .File/read DEO2
	[ LIT2 00 -File/success-lb ] DEI EQU ?{
		[ LIT2 &r $2 ] .System/r DEO2
		[ LIT2 &g $2 ] .System/g DEO2
		[ LIT2 &b $2 ] .System/b DEO2 }
	JMP2r

@<msfl> ( b* a* len* -- )
	STH2
	SWP2 EQU2k ?&e
	&>l ( -- )
		DUP2k STH2kr ADD2 LDA ROT ROT STA
		INC2 GTH2k ?&>l
	POP2 POP2 &e POP2r JMP2r

@<msfr> ( b* a* len* -- )
	STH2
	EQU2k ?&e
	&>l ( -- )
		DUP2 LDAk ROT ROT STH2kr ADD2 STA
		#0001 SUB2 LTH2k ?&>l
	POP2 POP2 &e POP2r JMP2r

(
@|strings )

@snarf-path ".snarf $1

@theme-path ".theme $1

@notepad-path ".notepad $1

~src/assets.tal