(define-constant E1 (err u930))
(define-data-var cc uint u0)
(define-map comments uint
{author: principal, mid: uint, text: (string-ascii 128), block: uint})
(define-map market-comment-count uint uint)
(define-public (add-comment (mid uint) (text (string-ascii 128)))
(let ((id (var-get cc))
(mc (default-to u0 (map-get? market-comment-count mid))))
(var-set cc (+ id u1))
(map-set market-comment-count mid (+ mc u1))
(map-set comments id
{author: tx-sender, mid: mid, text: text, block: stacks-block-height})
(ok id)))
(define-read-only (get-comment (id uint))
(map-get? comments id))
(define-read-only (get-comment-count (mid uint))
(default-to u0 (map-get? market-comment-count mid)))
(define-read-only (get-total-comments) (var-get cc))