giles
ae5df5cfa1
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 26s
15 lines
468 B
Plaintext
15 lines
468 B
Plaintext
;; next/genesis/audience/direct.sx
|
|
;;
|
|
;; Direct audience: an actor is a member iff they are
|
|
;; explicitly named in the activity's :to or :cc lists. No
|
|
;; group expansion — true direct addressing only.
|
|
|
|
(DefineAudience
|
|
:name "Direct"
|
|
:doc "Direct-addressing predicate. Tests literal membership\n in the activity's :to or :cc."
|
|
:member-of (fn
|
|
(actor audience)
|
|
(or
|
|
(member? actor (-> audience :to))
|
|
(member? actor (-> audience :cc)))))
|