subscription-revenue-v1

(define-map revenue principal {total: uint, withdrawn: uint})
(define-read-only (get-revenue (creator principal)) (map-get? revenue creator))
(define-public (record-payment (creator principal) (amount uint))
  (match (map-get? revenue creator)
    r (begin (map-set revenue creator {total: (+ (get total r) amount), withdrawn: (get withdrawn r)}) (ok true))
    (begin (map-set revenue creator {total: amount, withdrawn: u0}) (ok true))))