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

Abstracted set-layer

This commit is contained in:
Devine Lu Linvega 2024-02-11 12:19:45 -08:00
parent c7482debc0
commit db4e0fbc4a
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gui/shaviankb/shaviankb.tal
View File

@ -51,8 +51,7 @@
@on-control ( -> ) @on-control ( -> )
( | release ) ( | release )
.Controller/button DEI2 ORA ?{ .Controller/button DEI2 ORA ?{
#00 .layer STZ #00 <set-layer>
<draw-keyboard>
[ LIT2 00 -lock ] STZ [ LIT2 00 -lock ] STZ
BRK } BRK }
( | toggle layer ) ( | toggle layer )
@ -99,8 +98,7 @@
DUP [ LIT 80 ] NEQ ?{ DUP [ LIT 80 ] NEQ ?{
#0019 <set-press> #0019 <set-press>
POP BRK } POP BRK }
#02 SFT #01 AND .layer STZ #02 SFT #01 AND <set-layer>
<draw-keyboard>
BRK BRK
( (
@ -141,7 +139,11 @@
&bottom #0002 JMP2r &bottom #0002 JMP2r
@<toggle-layer> ( -- ) @<toggle-layer> ( -- )
.layer LDZ INC #03 DIVk MUL SUB .layer STZ .layer LDZ INC #03 DIVk MUL SUB
( >> )
@<set-layer> ( layer -- )
.layer STZ
!<draw-keyboard> !<draw-keyboard>
@<set-hover> ( id* -- ) @<set-hover> ( id* -- )