urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-07 13:37:36 +03:00
Code Issues Packages Projects Releases Wiki Activity

adds support for meta-c,u,l to drum

Browse Source
This commit is contained in:
Joseph Bryan 2016-07-03 14:39:40 -04:00
parent 3f35325068
commit 76261feed4
1 changed files with 34 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
lib/drum.hoon
View File

@ -716,6 +716,14 @@
i i
$(i +(i), buf t.buf) $(i +(i), buf t.buf)
:: ::
++ next-word
|= buf/(list @c)
=+ i=0
|- ^- @ud
?: |(?=($~ buf) (alnum i.buf))
i
$(i +(i), buf t.buf)
::
++ jump-bwrd ++ jump-bwrd
|= {pos/@ud buf/(list @c)} |= {pos/@ud buf/(list @c)}
^- @ud ^- @ud
@ -745,6 +753,17 @@
$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))
::
$c ?: =(pos.inp (lent buf.say.inp))
ta-bel
=+ sop=(add pos.inp (next-word (slag pos.inp buf.say.inp)))
%- ta-hom(pos.inp (jump-fwrd sop buf.say.inp))
:~ %mor
[%del sop]
:+ %ins sop
(turf (cuss [(tuft (snag sop buf.say.inp))]~))
==
::
$d ?: =(pos.inp (lent buf.say.inp)) $d ?: =(pos.inp (lent buf.say.inp))
ta-bel ta-bel
=+ f=(jump-fwrd pos.inp buf.say.inp) =+ f=(jump-fwrd pos.inp buf.say.inp)
@ -754,6 +773,21 @@
$f ?: =(pos.inp (lent buf.say.inp)) $f ?: =(pos.inp (lent buf.say.inp))
ta-bel ta-bel
+>(pos.inp (jump-fwrd pos.inp buf.say.inp)) +>(pos.inp (jump-fwrd pos.inp buf.say.inp))
::
$r ta-bel
$t ta-bel
::
?($u $l)
?: =(pos.inp (lent buf.say.inp))
ta-bel
=+ case=?:(?=($u key) cuss cass)
=+ sop=(add pos.inp (next-word (slag pos.inp buf.say.inp)))
=+ f=(jump-fwrd sop buf.say.inp)
%- ta-hom
:~ %mor
(ta-cut sop (sub f pos.inp))
(ta-cat sop (tuba (trip (case (tufa (slag sop (scag f buf.say.inp)))))))
==
== ==
:: ::
++ ta-mov :: move in history ++ ta-mov :: move in history