quran-tracker

;; Quran Reading Tracker
;; Track daily Quran pages read on-chain as an act of accountability

(define-map pages-read principal uint)

(define-public (log-pages (count uint))
    (let ((current (default-to u0 (map-get? pages-read tx-sender))))
        (map-set pages-read tx-sender (+ current count))
        (ok true)
    )
)

(define-read-only (get-pages (reader principal))
    (default-to u0 (map-get? pages-read reader))
)