ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2025-01-04 21:33:41 +03:00
Code Issues Packages Projects Releases Wiki Activity

removes ++ta-cru

Browse Source
This commit is contained in:
Joseph Bryan 2016-09-06 15:55:50 -04:00
parent 510b7708cc
commit ddfc0f1cb2
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

@ -305,8 +305,9 @@
++ se-belt :: handle input
|= bet/dill-belt
^+ +>
?: ?=({?($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] +>)
@ -487,12 +488,11 @@
++ ta-belt :: handle input
|= bet/dill-belt
^+ +>
?< ?=({?($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)
@ -564,10 +564,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)