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

Merge commit 'ddfc0f1' into cc-merge

Browse Source
This commit is contained in:
C. Guy Yarvin 2016-11-13 16:54:09 -08:00
commit 37c25fdeef
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lib/drum.hoon
View File

@ -310,8 +310,9 @@
++ se-belt :: handle input ++ se-belt :: handle input
|= bet/dill-belt:^dill |= bet/dill-belt:^dill
^+ +> ^+ +>
?: ?=({?($hey $rez $yow) *} bet) :: target-agnostic ?: ?=({?($cru $hey $rez $yow) *} bet) :: target-agnostic
?- bet ?- bet
{$cru *} (se-dump:(se-text (trip p.bet)) q.bet)
{$hey *} +>(mir [0 ~]) :: refresh {$hey *} +>(mir [0 ~]) :: refresh
{$rez *} +>(edg (dec p.bet)) :: resize window {$rez *} +>(edg (dec p.bet)) :: resize window
{$yow *} ~&([%no-yow -.bet] +>) {$yow *} ~&([%no-yow -.bet] +>)
@ -492,12 +493,11 @@
++ ta-belt :: handle input ++ ta-belt :: handle input
|= bet/dill-belt:^dill |= bet/dill-belt:^dill
^+ +> ^+ +>
?< ?=({?($hey $rez $yow) *} bet) :: target-specific ?< ?=({?($cru $hey $rez $yow) *} bet) :: target-specific
=. blt [q.blt `bet] :: remember belt =. blt [q.blt `bet] :: remember belt
?- bet ?- bet
{$aro *} (ta-aro p.bet) {$aro *} (ta-aro p.bet)
{$bac *} ta-bac {$bac *} ta-bac
{$cru *} (ta-cru p.bet q.bet)
{$ctl *} (ta-ctl p.bet) {$ctl *} (ta-ctl p.bet)
{$del *} ta-del {$del *} ta-del
{$met *} (ta-met p.bet) {$met *} (ta-met p.bet)
@ -569,10 +569,6 @@
(cat:edit pos.inp (snag (sub num.kil pos.kil) old.kil)) (cat:edit pos.inp (snag (sub num.kil pos.kil) old.kil))
== ==
:: ::
++ ta-cru :: hear crud
|= {lab/@tas tac/(list tank)}
+>(+> (se-dump:(se-text (trip lab)) tac))
::
++ ta-del :: hear delete ++ ta-del :: hear delete
^+ . ^+ .
?: =((lent buf.say.inp) pos.inp) ?: =((lent buf.say.inp) pos.inp)