From 102dd8991c6767aca3c93c28294a4532d62325af Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Sat, 10 Feb 2024 14:12:39 -0800
Subject: [PATCH] Progress on key table

---
 gui/shaviankb/assets.tal    | 42 +++++++++++++++++++++++++++++++++----
 gui/shaviankb/shaviankb.tal |  4 ++--
 2 files changed, 40 insertions(+), 6 deletions(-)

diff --git a/gui/shaviankb/assets.tal b/gui/shaviankb/assets.tal
index ea50018..64b18b5 100644
--- a/gui/shaviankb/assets.tal
+++ b/gui/shaviankb/assets.tal
@@ -7,7 +7,7 @@
 	( > ) =keys/oil =keys/out =keys/colon
 	( > ) =keys/fee =keys/vow =keys/dot
 	( > ) =keys/yea =keys/woe =keys/period
-	( > ) =keys/thigh =keys/they =keys/underscore
+	( > ) =keys/thigh =keys/they =keys/undersc
 	( > ) =keys/hung =keys/haha =keys/star
 	( middle row )
 	( > ) =keys/roar =keys/loll =keys/four
@@ -17,8 +17,8 @@
 	( > ) =keys/or =keys/awe =keys/semi
 	( > ) =keys/tot =keys/dead =keys/em
 	( > ) =keys/so =keys/zoo =keys/hyphen
-	( > ) =keys/kick =keys/gag =keys/question
-	( > ) =keys/peep =keys/bib =keys/exclamation
+	( > ) =keys/kick =keys/gag =keys/questio
+	( > ) =keys/peep =keys/bib =keys/excl
 	( bottom row )
 	( > ) =keys/air =keys/on =keys/one
 	( > ) =keys/err =keys/up =keys/two
@@ -28,7 +28,7 @@
 	( > ) =keys/sure =keys/measure =keys/paren-b
 	( > ) =keys/none =keys/none =keys/left
 	( > ) =keys/none =keys/none =keys/right
-	( > ) =keys/none =keys/none =keys/backspace
+	( > ) =keys/none =keys/none =keys/backspa
 	( extra row )
 	( > ) =keys/none =keys/none =keys/none
 	( > ) =keys/none =keys/none =keys/comma
@@ -97,3 +97,37 @@
 &ian     0000 0000 0000 4e50 6040 4040 0000 0000 ={ f090 9190 }
 &yew     0000 0080 8080 4848 5454 2222 0000 0000 ={ f090 9190 }
 
+&zero    0000 0000 0000 0000 0000 0000 0000 0000 ={ "0 }
+&one     0000 0000 0000 0000 0000 0000 0000 0000 ={ "1 }
+&two     0000 0000 0000 0000 0000 0000 0000 0000 ={ "2 }
+&three   0000 0000 0000 0000 0000 0000 0000 0000 ={ "3 }
+&four    0000 0000 0000 0000 0000 0000 0000 0000 ={ "4 }
+&five    0000 0000 0000 0000 0000 0000 0000 0000 ={ "5 }
+&six     0000 0000 0000 0000 0000 0000 0000 0000 ={ "6 }
+&seven   0000 0000 0000 0000 0000 0000 0000 0000 ={ "7 }
+&eight   0000 0000 0000 0000 0000 0000 0000 0000 ={ "8 }
+&nine    0000 0000 0000 0000 0000 0000 0000 0000 ={ "9 }
+
+&at      0000 0000 0000 0000 0000 0000 0000 0000 ={ "@ }
+&colon   0000 0000 0000 0000 0000 0000 0000 0000 ={ ": }
+&dot     0000 0000 0000 0000 0000 0000 0000 0000 ={ c2b7 }
+&undersc 0000 0000 0000 0000 0000 0000 0000 0000 ={ "_ }
+&star    0000 0000 0000 0000 0000 0000 0000 0000 ={ "* }
+&apos    0000 0000 0000 0000 0000 0000 0000 0000 ={ "' }
+&semi    0000 0000 0000 0000 0000 0000 0000 0000 ={ "; }
+&em      0000 0000 0000 0000 0000 0000 0000 0000 ={ $1 }
+&hyphen  0000 0000 0000 0000 0000 0000 0000 0000 ={ "- }
+&questio 0000 0000 0000 0000 0000 0000 0000 0000 ={ "? }
+&excl    0000 0000 0000 0000 0000 0000 0000 0000 ={ "! }
+&paren-a 0000 0000 0000 0000 0000 0000 0000 0000 ={ "( }
+&paren-b 0000 0000 0000 0000 0000 0000 0000 0000 ={ ") }
+&left    0000 0000 0000 0000 0000 0000 0000 0000 ={ $1 }
+&right   0000 0000 0000 0000 0000 0000 0000 0000 ={ $1 }
+&backspa 0000 0000 0000 0000 0000 0000 0000 0000 ={ $1 }
+&comma   0000 0000 0000 0000 0000 0000 0000 0000 ={ ", }
+&space   0000 0000 0000 0000 0000 0000 0000 0000 ={ 20 }
+&period  0000 0000 0000 0000 0000 0000 0000 0000 ={ ". }
+&enter   0000 0000 0000 0000 0000 0000 0000 0000 ={ 0a }
+
+&none    0000 0000 0000 0000 0000 0000 0000 0000 ={ 00 }
+
diff --git a/gui/shaviankb/shaviankb.tal b/gui/shaviankb/shaviankb.tal
index 81969d0..0b708b5 100644
--- a/gui/shaviankb/shaviankb.tal
+++ b/gui/shaviankb/shaviankb.tal
@@ -27,8 +27,8 @@
 	JMP2r
 
 @<draw-keyboard> ( -- )
-	;shavian ;shavian #0010 ADD2 ;shavian #0020 ADD2 <draw-key3>
-	;shavian ;shavian #0010 ADD2 ;shavian #0020 ADD2 <draw-key3>
+	( ;shavian ;shavian #0010 ADD2 ;shavian #0020 ADD2 <draw-key3>
+	;shavian ;shavian #0010 ADD2 ;shavian #0020 ADD2 <draw-key3> )
 	JMP2r
 
 @<draw-glyph> ( addr* -- )