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

Can now also remove circle sources from within %talk.

Browse Source
This commit is contained in:
Fang 2017-11-09 19:05:58 +01:00
parent 664a97b0e8
commit 3392f80ce3
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
app/talk.hoon
View File

@ -80,6 +80,7 @@
{$invite naem (set ship)} ::< give permission {$invite naem (set ship)} ::< give permission
{$banish naem (set ship)} ::< deny permission {$banish naem (set ship)} ::< deny permission
{$source naem (map circle range)} ::< add source {$source naem (map circle range)} ::< add source
{$unsource naem (map circle range)} ::< remove source
:: personal metadata :: :: personal metadata ::
{$attend audience (unit presence)} ::< set our presence {$attend audience (unit presence)} ::< set our presence
{$name audience human} ::< set our name {$name audience human} ::< set our name
@ -700,6 +701,9 @@
:: ::
;~((glue ace) (perk %source ~) cire sorz) ;~((glue ace) (perk %source ~) cire sorz)
:: ::
;~((glue ace) (perk %unsource ~) cire sorz)
::TODO why do these nest-fail when doing perk with multiple?
::
:: personal metadata :: personal metadata
:: ::
;~ (glue ace) ;~ (glue ace)
@ -874,7 +878,8 @@
$filter (filter +.job) $filter (filter +.job)
$invite (permit & +.job) $invite (permit & +.job)
$banish (permit | +.job) $banish (permit | +.job)
$source (source +.job) $source (source & +.job)
$unsource (source | +.job)
:: personal metadata :: personal metadata
$attend (attend +.job) $attend (attend +.job)
$name (name +.job) $name (name +.job)
@ -1055,9 +1060,9 @@
++ source ::< %source ++ source ::< %source
::> adds {pas} to {nom}'s src. ::> adds {pas} to {nom}'s src.
:: ::
|= {nom/naem pos/(map circle range)} |= {sub/? nom/naem pos/(map circle range)}
^+ ..sh-work ^+ ..sh-work
(sh-act %source nom & pos) (sh-act %source nom sub pos)
:: ::
::> || ::> ||
::> || %personal-metadata ::> || %personal-metadata