ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-28 03:00:15 +03:00
Code Issues Packages Projects Releases Wiki Activity

adds ++ta-belt, refactors ++se-belt

Browse Source
This commit is contained in:
Joseph Bryan 2016-09-08 20:57:05 -04:00
parent 2509b07786
commit dba8cace15
1 changed files with 26 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
lib/drum.hoon
View File

@ -305,29 +305,18 @@
++ se-belt :: handle input
|= bet/dill-belt
^+ +>
?: ?=($rez -.bet)
+>(edg (dec p.bet))
?: ?=($yow -.bet)
~& [%no-yow -.bet]
+>
?: ?=({?($hey $rez $yow) *} bet) :: target-agnostic
?- bet
{$hey *} +>(mir [0 ~]) :: refresh
{$rez *} +>(edg (dec p.bet)) :: resize window
{$yow *} ~&([%no-yow -.bet] +>)
==
=+ gul=se-agon
=+ tur=?~(gul ~ (~(get by fug) u.gul))
=+ tur=?~(gul ~ (~(get by fug) u.gul)) :: XX se-aint
?: |(?=($~ gul) ?=($~ tur) ?=($~ u.tur))
(se-blit %bel ~)
=+ taz=~(. ta [& u.gul] u.u.tur)
=. blt.taz [q.blt.taz `bet]
=< ta-abet
?- -.bet
$aro (ta-aro:taz p.bet)
$bac ta-bac:taz
$cru (ta-cru:taz p.bet q.bet)
$ctl (ta-ctl:taz p.bet)
$del ta-del:taz
$hey taz(mir [0 ~])
$met (ta-met:taz p.bet)
$ret ta-ret:taz
$txt (ta-txt:taz p.bet)
==
(ta-belt:(se-tame u.gul) bet)
::
++ se-born :: new server
|= wel/well
@ -496,7 +485,24 @@
==
::
++ ta-bel :: beep
.(+> (se-blit %bel ~), q.blt ~)
.(+> (se-blit %bel ~), q.blt ~) :: forget belt
::
++ ta-belt :: handle input
|= bet/dill-belt
^+ +>
?< ?=({?($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)
{$ret *} ta-ret
{$txt *} (ta-txt p.bet)
==
::
++ ta-cat :: mass insert
|= {pos/@ud txt/(list @c)}
^- sole-edit