;; next/genesis/projections/activity-log.sx
;;
;; Identity projection: stores every activity by its CID. The
;; base ledger every other projection could be re-derived from
;; if needed. Per design §10.2.

(DefineProjection
  :name "activity-log"
  :doc "Maps activity CID to the full envelope. Every activity\n        flows through; no filter. State is the CID-keyed dict."
  :initial-state {}
  :fold (fn (state act) (assoc state (-> act :cid) act)))