neauoire
/
left
mirror of https://git.sr.ht/~rabbits/left
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Renamed clip to snarf

This commit is contained in:
neauoire 2021-07-17 18:38:06 -07:00
parent f4a3867e5f
commit 3acf28c40b
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitignore vendored
View File

@ -4,4 +4,4 @@
*bmp
/bin
*.chr
.clip
.snarf

10
src/main.tal
View File

@ -130,7 +130,7 @@ BRK
@on-frame ( -> )
.state/trap LDZ #00 ! #01 JCN [ BRK ]
.state/trap LDZ #01 JCN [ BRK ]
( incr ) .state/timer LDZ #01 + DUP .state/timer STZ
@ -1026,7 +1026,7 @@ RTN
@copy-clip ( -- )
;clipname-txt .File/name DEO2
;snarfpath-txt .File/name DEO2
.selection/to LDZ2 .selection/from LDZ2 STH2k -- .File/length DEO2
STH2r .File/save DEO2
@ -1036,7 +1036,7 @@ RTN
;clear-textarea JSR2
( move beyond to end of file )
;clipname-txt .File/name DEO2
;snarfpath-txt .File/name DEO2
( get space available )
#ffff ;get-eof JSR2 --
( allow for maximum space )
@ -1108,8 +1108,8 @@ RTN
RTN
@clipname-txt
".clip $1
@snarfpath-txt
".snarf $1
@untitled-txt
"untitled.txt $1