tipstream-milestones

;; tipstream-milestones
;; Milestone tracking

(define-data-var total-milestones uint u0)

(define-map milestones uint {
  creator: principal,
  value: uint,
  at-block: uint
})

(define-public (set-milestone (level uint))
  (let
    (
      (id (var-get total-milestones))
    )
    (map-set milestones id {
      creator: tx-sender,
      value: level,
      at-block: block-height
    })
    (var-set total-milestones (+ id u1))
    (ok id)
  )
)

(define-read-only (get-entry (id uint))
  (map-get? milestones id)
)

(define-read-only (get-total)
  (ok (var-get total-milestones))
)