hall custom permission rules

This commit is contained in:
Isaac Visintainer 2018-09-04 16:23:24 -07:00
parent 0865d446b2
commit 91bb34b943
3 changed files with 13 additions and 1 deletions

View File

@ -16,6 +16,9 @@
/| /: /%/filter /!noun/
/~ |=({t/telegram:hall bowl:gall} t)
==
/= custom-rules
/^ (map knot $-({ship ?($r %w) bowl:gall} ?))
/: /%/rules /_ /!noun/
::
::::
::
@ -1617,6 +1620,10 @@
$village (~(has in sis.con.shape) her) :< whitelist
$journal (~(has in sis.con.shape) her) :< author whitelist
$mailbox !(~(has in sis.con.shape) her) :< author blacklist
$custom :< custom rule
=/ rul/$-({ship ?($r $w) bowl:gall} ?)
(fall (~(get by custom-rules) nom) |=(* |))
(rul her %w bol)
==
::
++ so-visible
@ -1629,6 +1636,10 @@
$village (~(has in sis.con.shape) her) :< whitelist
$journal & :< all
$mailbox (team:title our.bol her) :< our team
$custom :< custom rule
=/ rul/$-({ship ?($r $w) bowl:gall} ?)
(fall (~(get by custom-rules) nom) |=(* |))
(rul her %r bol)
==
--
--

View File

@ -495,7 +495,7 @@
::
++ secu ::> security
^- $-(json (unit security))
(su (perk %channel %village %journal %mailbox ~))
(su (perk %channel %village %journal %mailbox %custom ~))
::
++ crow ::> crowd
^- $-(json (unit crowd))

View File

@ -203,6 +203,7 @@
$village :< whitelist
$journal :< pub r, whitelist w
$mailbox :< our r, blacklist w
$custom :< according to custom-rule
== ::
:: participant metadata. ::
++ crowd {loc/group rem/(map circle group)} :< our & srcs presences