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

Move strings near assets

This commit is contained in:
Devine Lu Linvega 2024-05-28 08:41:49 -07:00
parent 884f4a2b08
commit 5e09aab061
1 changed files with 15 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
gui/notepad/src/notepad.tal
View File

@ -215,9 +215,9 @@
@|file ) @|file )
@file-init ( -- ) @file-init ( -- )
;notepad-txt file-size #0000 EQU2 ?file-new ;notepad-path file-size #0000 EQU2 ?file-new
( | load file ) ( | load file )
;notepad-txt .File/name DEO2 ;notepad-path .File/name DEO2
#8000 .File/length DEO2 #8000 .File/length DEO2
;mem .File/read DEO2 ;mem .File/read DEO2
JMP2r JMP2r
@ -231,13 +231,11 @@
POP2 JMP2r POP2 JMP2r
@file-save ( -- ) @file-save ( -- )
;notepad-txt .File/name DEO2 ;notepad-path .File/name DEO2
#8000 .File/length DEO2 #8000 .File/length DEO2
;mem .File/write DEO2 ;mem .File/write DEO2
JMP2r JMP2r
@notepad-txt ".notepad $1
@file-size ( path* -- size* ) @file-size ( path* -- size* )
.File/name DEO2 .File/name DEO2
#0001 .File/length DEO2 #0001 .File/length DEO2
@ -266,15 +264,13 @@
!file-save !file-save
@edit-copy ( -- ) @edit-copy ( -- )
.selection/length LDZ2 #0001 GTH2 [ JMP JMP2r ] ;snarf-txt .File/name DEO2 .selection/length LDZ2 #0001 GTH2 [ JMP JMP2r ] ;snarf-path .File/name DEO2
.selection/length LDZ2 .File/length DEO2 .selection/length LDZ2 .File/length DEO2
get-from .File/write DEO2 get-from .File/write DEO2
JMP2r JMP2r
@edit-paste ( -- ) @edit-paste ( -- )
;snarf-txt file-inject !file-save ;snarf-path file-inject !file-save
@snarf-txt ".snarf $1
( (
@|core ) @|core )
@ -521,7 +517,7 @@
JMP2r JMP2r
@load-theme ( -- ) @load-theme ( -- )
;&path .File/name DEO2 ;theme-path .File/name DEO2
#0002 .File/length DEO2 #0002 .File/length DEO2
;&r .File/read DEO2 ;&r .File/read DEO2
;&g .File/read DEO2 ;&g .File/read DEO2
@ -531,7 +527,6 @@
[ LIT2 &g $2 ] .System/g DEO2 [ LIT2 &g $2 ] .System/g DEO2
[ LIT2 &b $2 ] .System/b DEO2 } [ LIT2 &b $2 ] .System/b DEO2 }
JMP2r JMP2r
&path ".theme $1
@<msfl> ( b* a* len* -- ) @<msfl> ( b* a* len* -- )
STH2 STH2
@ -549,5 +544,14 @@
#0001 SUB2 LTH2k ?&>l #0001 SUB2 LTH2k ?&>l
POP2 POP2 &e POP2r JMP2r POP2 POP2 &e POP2r JMP2r
(
@|strings )
@snarf-path ".snarf $1
@theme-path ".theme $1
@notepad-path ".notepad $1
~src/assets.tal ~src/assets.tal