adds support for meta-. and meta-backspace to drum

This commit is contained in:
Joseph Bryan 2016-07-02 22:53:23 -04:00
parent 3f5a446678
commit 82c8358380

View File

@ -725,27 +725,21 @@
::
++ ta-met :: meta key
|= key/@ud
?. ?=(?($b $d $f) key)
?. ?=(?($dot $bac $b $d $f) key)
~& [%ta-met key]
+>
?- key
:: ::
:: :: TODO: meta dot
:: ::
:: ?? ?. &(?=(^ old.hit) ?=(^ -.old.hit))
:: ta-bel
:: =+ old=`(list @c)`-.old.hit
:: %- ta-hom(ris ~)
:: (ta-cat pos.inp (slag (jump-bwrd (dec (lent old)) old) old))
:: ::
:: :: TODO: meta backspace
:: ::
:: ?? ?: =(0 pos.inp)
:: ta-bel
:: =+ b=(jump-bwrd pos.inp buf.say.inp)
:: %- ta-hom(kil `(slag b (scag pos.inp buf.say.inp)), ris ~)
:: (ta-cut b (sub pos.inp b))
:: ::
$dot ?. &(?=(^ old.hit) ?=(^ -.old.hit))
ta-bel
=+ old=`(list @c)`-.old.hit
=+ b=(jump-bwrd (lent old) old)
%- ta-hom(ris ~)
(ta-cat pos.inp (slag b old))
$bac ?: =(0 pos.inp)
ta-bel
=+ b=(jump-bwrd pos.inp buf.say.inp)
%- ta-hom(kil `(slag b (scag pos.inp buf.say.inp)), ris ~)
(ta-cut b (sub pos.inp b))
$b ?: =(0 pos.inp)
ta-bel
+>(pos.inp (jump-bwrd pos.inp buf.say.inp))