Can now also remove circle sources from within %talk.
{$invite naem (set ship)} ::< give permission
{$banish naem (set ship)} ::< deny permission
{$source naem (map circle range)} ::< add source
+ {$unsource naem (map circle range)} ::< remove source
:: personal metadata ::
{$attend audience (unit presence)} ::< set our presence
{$name audience human} ::< set our name
::
;~((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
::
;~ (glue ace)
$filter (filter +.job)
$invite (permit & +.job)
$banish (permit | +.job)
- $source (source +.job)
+ $source (source & +.job)
+ $unsource (source | +.job)
:: personal metadata
$attend (attend +.job)
$name (name +.job)
++ source ::< %source
::> adds {pas} to {nom}'s src.
::
- |= {nom/naem pos/(map circle range)}
+ |= {sub/? nom/naem pos/(map circle range)}
^+ ..sh-work
- (sh-act %source nom & pos)
+ (sh-act %source nom sub pos)
::
::> ||
::> || %personal-metadata
