ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-25 16:05:27 +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

54
lib/drum.hoon
View File

@ -725,38 +725,32 @@
:: ::
++ 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) $b ?: =(0 pos.inp)
:: ta-bel ta-bel
:: =+ b=(jump-bwrd pos.inp buf.say.inp) +>(pos.inp (jump-bwrd pos.inp buf.say.inp))
:: %- ta-hom(kil `(slag b (scag pos.inp buf.say.inp)), ris ~) $d ?: =(pos.inp (lent buf.say.inp))
:: (ta-cut b (sub pos.inp b)) ta-bel
:: :: =+ f=(jump-fwrd pos.inp buf.say.inp)
$b ?: =(0 pos.inp) %- ta-hom(kil `(slag pos.inp (scag f buf.say.inp)), ris ~)
ta-bel (ta-cut pos.inp (sub f pos.inp))
+>(pos.inp (jump-bwrd pos.inp buf.say.inp)) $f ?: =(pos.inp (lent buf.say.inp))
$d ?: =(pos.inp (lent buf.say.inp)) ta-bel
ta-bel +>(pos.inp (jump-fwrd pos.inp buf.say.inp))
=+ f=(jump-fwrd pos.inp buf.say.inp)
%- ta-hom(kil `(slag pos.inp (scag f buf.say.inp)), ris ~)
(ta-cut pos.inp (sub f pos.inp))
$f ?: =(pos.inp (lent buf.say.inp))
ta-bel
+>(pos.inp (jump-fwrd pos.inp buf.say.inp))
== ==
:: ::
++ ta-mov :: move in history ++ ta-mov :: move in history