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

Handle special characters

This commit is contained in:
Devine Lu Linvega 2024-02-11 14:37:19 -08:00
parent a1434980b9
commit a46580e8ea
3 changed files with 22 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
gui/shaviankb/assets.tal
View File

@ -135,33 +135,19 @@
&star 0000 0000 1054 38ee 3854 1000 0000 0000 ={ "* }
&apos 0000 0030 3010 0000 0000 0000 0000 0000 ={ "' }
&semi 0000 0000 0010 0000 0010 1020 0000 0000 ={ "; }
&em 0000 0000 0000 0000 0000 0000 0000 0000 ={ $1 }
&em 0000 0000 0000 0000 0000 0000 0000 0000 ={ e2 80 94 }
&hyphen 0000 0000 0000 007c 0000 0000 0000 0000 ={ "- }
&questio 0000 0078 8484 0408 1020 0020 0000 0000 ={ "? }
&excl 0000 0020 2020 2020 2020 0020 0000 0000 ={ "! }
&paren-a 0000 1020 2040 4040 4040 4020 2010 0000 ={ "( }
&paren-b 0000 4020 2010 1010 1010 1020 2040 0000 ={ ") }
&left 0000 0000 1020 40fe 4020 1000 0000 0000 ={ $1 }
&right 0000 0000 1008 04fe 0408 1000 0000 0000 ={ $1 }
&backspa 0000 0000 1f21 5589 5521 1f00 0000 0000 ={ $1 }
&left 0000 0000 1020 40fe 4020 1000 0000 0000 ={ 1b "[D }
&right 0000 0000 1008 04fe 0408 1000 0000 0000 ={ 1b "[C }
&backspa 0000 0000 1f21 5589 5521 1f00 0000 0000 ={ 08 }
&mode 0000 0000 1038 7cfe 7c38 1000 0000 0000 ={ $1 }
&comma 0000 0000 0000 0000 0010 1020 0000 0000 ={ ", }
&space 0000 0000 0000 0000 0000 0000 0000 0000 ={ 20 }
&space 0000 0000 0000 0000 0084 fc00 0000 0000 ={ 20 }
&period 0000 0000 0000 0000 0000 0010 0000 0000 ={ ". }
&enter 0000 0000 1232 528c 5030 1000 0000 0000 ={ 0a }
&none 0000 0000 0000 0000 0000 0000 0000 0000 ={ 00 }
0000 0078 8484 8484 7c04 0870 0000 0000
0000 0010 3010 1010 1010 1010 0000 0000

BIN
gui/shaviankb/cream12.uf2
View File

Binary file not shown.

27
gui/shaviankb/shaviankb.tal
View File

@ -121,16 +121,18 @@
.hover LDZ2 ;btn-chr <draw-key-id>
DUP2 ;btn-press-chr <draw-key-id>
DUP2 .hover STZ2
STH2k
( | event )
( key ) #0006 MUL2 ;layout ADD2
( layer ) get-layer #10 SFT2 ADD2 LDA2
( layer ) STH2r get-layer #10 SFT2 ADD2 LDA2
( length ) #0010 ADD2 LDA2k SWP2 INC2 INC2
&l ( -- )
LDAk #18 DEO
INC2 GTH2k ?&l
POP2 POP2 JMP2r
@get-layer ( -- layer* )
@get-layer ( id* -- layer* )
#0017 GTH2 ?&bottom
.Mouse/state DEI
( ) DUP #02 AND ?&top
( ) #04 AND ?&bottom
@ -183,13 +185,6 @@
( ) STH2kr #0002 ADD2 LDA2
( ) STH2r LDA2 STH2r !<draw-key>
@<draw-glyph> ( addr* color -- )
STH
.Screen/addr DEO2
[ LIT2 15 -Screen/auto ] DEO
STHr .Screen/sprite DEO
JMP2r
@<draw-key> ( a* b* c* frame* -- )
DUP2 ;btn-hover-chr EQU2 STH
DUP2 ;btn-press-chr EQU2 #10 SFT STH
@ -210,13 +205,25 @@
.Screen/y DEI2k #001c SUB2 ROT DEO2
JMP2r
@<draw-glyph> ( addr* color -- )
STH
.Screen/addr DEO2
[ LIT2 15 -Screen/auto ] DEO
STHr .Screen/sprite DEO
JMP2r
@<draw-key-space> ( id* frame* -- )
DUP2 ;btn-press-chr NEQ2 #10 SFT INC ,&color STR
STH2
POP2 .Screen/x DEI2 .Screen/y DEI2 #1204 STH2r <draw-frame>
;fill-icn .Screen/addr DEO2
[ LIT2 31 -Screen/auto ] DEO
[ LIT2 &color 03 ee ] !<draw-times>
[ LIT2 &color 03 ee ] <draw-times>
( | glyph )
.Screen/x DEI2k #0008 SUB2 ROT DEO2
.Screen/y DEI2k #0016 ADD2 ROT DEO2
;keys/space #05 <draw-glyph>
JMP2r
@<draw-button> ( frame* -- )
DUP2 ;btn-press-chr NEQ2 #10 SFT INC ,&color STR