ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-26 08:25:04 +03:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Joseph Bryan 2016-07-02 22:53:23 -04:00
parent 3f5a446678
commit 82c8358380
1 changed files with 24 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
lib/drum.hoon
View File

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