;; 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)))))
