Source Code
;; Islamic Habit Tracker - Salawat
;; Tracker for salawat
(define-map salawat-74-streak principal uint)
(define-public (log-salawat-74)
(let ((current-streak (default-to u0 (map-get? salawat-74-streak tx-sender))))
(map-set salawat-74-streak tx-sender (+ current-streak u1))
(ok true)
)
)
(define-read-only (get-salawat-74-streak (user principal))
(default-to u0 (map-get? salawat-74-streak user))
)
Functions (2)
| Function | Access | Args |
|---|---|---|
| log-salawat-74 | public | |
| get-salawat-74-streak | read-only | user: principal |