d6
/
uxn-utils
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(notepad) Removed length

This commit is contained in:
Devine Lu Linvega 2023-04-26 21:54:55 -07:00
parent b047ef59f7
commit ae2b25044d
1 changed files with 17 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
gui/notepad/notepad.tal
View File

@ -8,13 +8,13 @@
( TODOs:
> Show blinker on last character
> Mouse2 select word
> Page memory mapping )
> Page memory mapping
> Always select end of note on change )
|0000
@page $1
@selection &from $2 &to $2 &length $2
@textarea &length $2
|0100
@ -32,7 +32,6 @@
;on-frame .Screen/vector DEO2
;on-control .Controller/vector DEO2
( init )
;mem/end ;mem SUB2 .textarea/length STZ2
;mem select-from
draw-header
draw-note
@ -43,7 +42,7 @@ BRK
.Controller/key DEI .Controller/button DEI
( shortcuts )
DUP2 [ LIT2 "a 01 ] NEQ2 ?&no-ca POP2 select-all JMP2r &no-ca
DUP2 [ LIT2 "a 01 ] NEQ2 ?&no-ca POP2 select-all BRK &no-ca
DUP2 [ LIT2 "x 01 ] NEQ2 ?&no-cx POP2 edit-cut BRK &no-cx
DUP2 [ LIT2 "c 01 ] NEQ2 ?&no-cc POP2 edit-copy BRK &no-cc
DUP2 [ LIT2 "v 01 ] NEQ2 ?&no-cv POP2 edit-paste BRK &no-cv
@ -155,13 +154,6 @@ BRK
(
@|editor )
@erase-selection ( -- )
.selection/from LDZ2 get-eof .selection/length LDZ2 msfl
#0001 .selection/length LDZ2 SUB2
!mod-length
@insert ( char -- )
( move ) #fff0 get-eof SUB2 ORA ?&valid
@ -176,7 +168,6 @@ BRK
&no-block
.selection/from LDZ2 STH2k #0001 SUB2 get-eof #0001 msfr
#0001 mod-length
STH2kr STA
STH2r INC2
@ -196,6 +187,12 @@ BRK
!select-from
@erase-selection ( -- )
.selection/from LDZ2 get-eof .selection/length LDZ2 msfl
JMP2r
@delete ( -- )
get-eof .selection/from LDZ2 SUB2 ORA #01 [ JCN JMP2r ]
@ -211,7 +208,7 @@ BRK
@get-eof ( -- addr* )
;mem .textarea/length LDZ2 ADD2
;mem scap
JMP2r
@ -219,16 +216,11 @@ JMP2r
get-eof #0001 msfl
#ffff
( >> )
@mod-length ( change* -- )
.textarea/length LDZ2 ADD2 .textarea/length STZ2
JMP2r
(
@|selection )
@select-reset ( -- )
.selection/from LDZ2
@ -260,7 +252,7 @@ JMP2r
@select-all ( -- )
;mem .selection/from STZ2
;mem .textarea/length LDZ2 ADD2 #0001 SUB2 .selection/to STZ2
;mem scap .selection/to STZ2
.selection/to LDZ2 .selection/from LDZ2 SUB2 .selection/length STZ2
@ -275,6 +267,9 @@ JMP2r
JMP2r
&false POP2 #00 JMP2r
(
@|file )
@file-size ( path* -- size* )
.File/name DEO2
@ -304,7 +299,6 @@ JMP2r
&no-selection
( push right ) .selection/from LDZ2 #0001 SUB2
get-eof STH2kr msfr
STH2kr mod-length
.selection/from LDZ2 .File/read DEO2
.selection/from LDZ2 STH2r ADD2