;; tipstream-categories
;; Tip categories
(define-data-var total-categories uint u0)
(define-map categories uint {
creator: principal,
value: uint,
at-block: uint
})
(define-public (set-category (cat-id uint))
(let
(
(id (var-get total-categories))
)
(map-set categories id {
creator: tx-sender,
value: cat-id,
at-block: block-height
})
(var-set total-categories (+ id u1))
(ok id)
)
)
(define-read-only (get-entry (id uint))
(map-get? categories id)
)
(define-read-only (get-total)
(ok (var-get total-categories))
)