diff --git a/lib/drum.hoon b/lib/drum.hoon index a142d9615..ab0ab1355 100644 --- a/lib/drum.hoon +++ b/lib/drum.hoon @@ -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)