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

adds support for ctrl-w to drum

Browse Source
This commit is contained in:
Joseph Bryan 2016-07-05 02:50:32 -04:00
parent a7907c3308
commit d37d836852
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lib/drum.hoon
View File

@ -623,6 +623,11 @@
%- ta-hom(kil `(scag pos.inp buf.say.inp), ris ~) %- ta-hom(kil `(scag pos.inp buf.say.inp), ris ~)
(ta-cut 0 pos.inp) (ta-cut 0 pos.inp)
$v ta-bel $v ta-bel
$w ?: =(0 pos.inp)
ta-bel
=+ b=(bwrd pos.inp buf.say.inp nace)
%- ta-hom(kil `(slag b (scag pos.inp buf.say.inp)), ris ~)
(ta-cut b (sub pos.inp b))
$x +>(+> se-anon) $x +>(+> se-anon)
$y ?~ kil ta-bel $y ?~ kil ta-bel
(ta-hom(ris ~) (ta-cat pos.inp u.kil)) (ta-hom(ris ~) (ta-cat pos.inp u.kil))
@ -717,6 +722,18 @@
&((gte a 'a') (lte a 'z')) &((gte a 'a') (lte a 'z'))
== ==
:: ::
++ nace :: next ace offset
|= a/(list @)
=| i/@ud
=+ b=|
|- ^+ i
?~ a i
=+ c=.=(32 i.a)
=. b |(b c)
?: &(b !|(=(0 i) c))
i
$(i +(i), a t.a)
::
++ nedg :: next boundary offset ++ nedg :: next boundary offset
|= a/(list @) |= a/(list @)
=| i/@ud =| i/@ud