;; veil-charity -- modest clothing charity distribution
(define-constant CONTRACT-OWNER tx-sender)
(define-constant ERR-AUTH (err u401))
(define-constant ERR-NONE (err u404))
(define-data-var donation-count uint u0)
(define-data-var total-items uint u0)
(define-map donations uint { donor: principal, item-type: (string-ascii 30), quantity: uint, size: (string-ascii 10), distributed: bool, block: uint })
(define-map donor-stats principal uint)
(define-public (donate-clothing (item-type (string-ascii 30)) (quantity uint) (size (string-ascii 10)))
(let ((id (+ (var-get donation-count) u1))
(prev (default-to u0 (map-get? donor-stats tx-sender))))
(var-set donation-count id)
(var-set total-items (+ (var-get total-items) quantity))
(map-set donations id { donor: tx-sender, item-type: item-type, quantity: quantity, size: size, distributed: false, block: stacks-block-height })
(map-set donor-stats tx-sender (+ prev quantity))
(ok id)))
(define-public (mark-distributed (id uint))
(let ((d (unwrap! (map-get? donations id) ERR-NONE)))
(asserts! (is-eq tx-sender CONTRACT-OWNER) ERR-AUTH)
(map-set donations id (merge d { distributed: true })) (ok true)))
(define-read-only (get-donation (id uint)) (map-get? donations id))
(define-read-only (get-total-items) (var-get total-items))
(define-read-only (get-donor-stats (addr principal)) (default-to u0 (map-get? donor-stats addr)))