~rabbits/grail

5791ead50f778b038ef7fb221b35059a279a4b5e — neauoire 6 months ago cf85a85
Simplified dash input
2 files changed, 16 insertions(+), 15 deletions(-)

M src/grail.assets.tal
M src/grail.tal
M src/grail.assets.tal => src/grail.assets.tal +10 -9
@@ 1,7 1,7 @@
@lib
(
@|numbers )
&0 "0 _{ -R -D -L -U }
&0 "0 _{ -R -D -L -U } &0a "0 _{ -D -L -U -R }
&1 "1 _{ -D -L -R } &1a "1 _{ -L -R -D }
&2 "2 _{ -R -D -L -D -R } &2a "2 _{ -R -D -R }
&3 "3 _{ -R -L -R -D -L } &3a "3 _{ -R -D -L -R -D -L }


@@ 41,9 41,7 @@
&z "z _{ -R -L -R } &za "z _{ -L -D -L }
(
@|special )
&sub "- _{ -L -R }
&mrk "? _{ -R -D -L -D }
&usc "_ _{ -R -L }
&bsp 08 _{ -L }
&wsp 20 _{ -R }
&tab 09 _{ -U -R }


@@ 58,6 56,8 @@
&div "/ _{ -D -L -D }
&and "& _{ -U -L -D -R -D }
&adr "@ _{ -U -L -D -R }
&dash "- _{ -R }
&undr "_ _{ -L }
&hash "# _{ -U -R -D -L }
&pipe "| _{ -U }
&excl "! _{ -D }


@@ 95,12 95,12 @@
	=lib/o =lib/p =lib/q =lib/r
	=lib/s =lib/t =lib/u =lib/v
	=lib/w =lib/x =lib/y =lib/z
	=lib/1a =lib/2a =lib/3a =lib/4a
	=lib/5a =lib/8a =lib/9a =lib/la
	=lib/ma =lib/na =lib/oa =lib/ta
	=lib/xa =lib/ya =lib/za
	=lib/0a =lib/1a =lib/2a =lib/3a
	=lib/4a =lib/5a =lib/8a =lib/9a
	=lib/la =lib/ma =lib/na =lib/oa
	=lib/ta =lib/xa =lib/ya =lib/za
	=lib/mrk
	=lib/sub =lib/usc =lib/wsp =lib/bsp ] &end
	=lib/wsp =lib/bsp ] &end

@punctuation [
	=lib/lth =lib/gth =lib/mul =lib/div


@@ 112,7 112,8 @@
	=lib/bracea =lib/braceb
	=lib/bracka =lib/brackb
	=lib/dollar =lib/percent
	=lib/tab =lib/brk =lib/wsp =lib/bsp ] &end
	=lib/dash =lib/undr
	=lib/tab =lib/brk ] &end

@control [
	=lib/moveu =lib/moved =lib/movel =lib/mover

M src/grail.tal => src/grail.tal +6 -6
@@ 40,7 40,7 @@

@on-mouse-down ( states* -> )
	POP2
	( |regions )
	( | regions )
	.Mouse/ly DEI DUP get-mode <set-mode>
	( | setup )
	.Mouse/lx DEI SWP <start-stroke>


@@ 58,10 58,10 @@
	;<push-point>/last-pos LDA2 .Mouse/lx DEI .Mouse/ly DEI DUP2 #0f <draw-point>
	<draw-stroke>
	( | toggle punctuation mode )
	;<push-point>/last-dir LDA #ff NEQ ?{
		.mode LDZ #02 EQU ?{
			( TODO ) BRK }
		[ LIT ". ] <send>
	;<push-point>/last-dir LDA INC ?{
		.mode LDZ #02 NEQ ?{
			[ LIT ". ] <send>
			BRK }
		BRK }
	( | cap )
	<end-stroke>


@@ 72,7 72,7 @@
	( name ) "Grail 0a
	( desc ) "Shorthand 20 "Recognnizer 0a
	( auth ) "By 20 "Devine 20 "Lu 20 "Linvega 0a
	( date ) "12 20 "Dec 20 "2023 $1
	( date ) "13 20 "Dec 20 "2023 $1
	( exts ) 00

(