ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-17 03:44:34 +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
|= bet/dill-belt:^dill
^+ +>
?: ?=({?($hey $rez $yow) *} bet) :: target-agnostic
?: ?=({?($cru $hey $rez $yow) *} bet) :: target-agnostic
?- bet
{$cru *} (se-dump:(se-text (trip p.bet)) q.bet)
{$hey *} +>(mir [0 ~]) :: refresh
{$rez *} +>(edg (dec p.bet)) :: resize window
{$yow *} ~&([%no-yow -.bet] +>)
@ -492,12 +493,11 @@
++ ta-belt :: handle input
|= bet/dill-belt:^dill
^+ +>
?< ?=({?($hey $rez $yow) *} bet) :: target-specific
?< ?=({?($cru $hey $rez $yow) *} bet) :: target-specific
=. blt [q.blt `bet] :: remember belt
?- bet
{$aro *} (ta-aro p.bet)
{$bac *} ta-bac
{$cru *} (ta-cru p.bet q.bet)
{$ctl *} (ta-ctl p.bet)
{$del *} ta-del
{$met *} (ta-met p.bet)
@ -569,10 +569,6 @@
(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
^+ .
?: =((lent buf.say.inp) pos.inp)