;; @contract stSTX withdraw NFT
;; @version 2
;;
;; To convert stSTX back into STX, a user must wait until the ongoing stacking cycle ends.
;; When initiating a withdrawal, the stSTX tokens are already burned, while the user has not yet received STX.
;; That's why this NFT is introduced, so the user has a token representation of the withdrawal initiation.
(impl-trait .nft-trait.nft-trait)
(use-trait commission-trait .commission-trait.commission)
(define-non-fungible-token ststx-withdraw uint)
;;-------------------------------------
;; Constants
;;-------------------------------------
(define-constant ERR_NOT_AUTHORIZED u1101)
(define-constant ERR_SENDER_NOT_OWNER u1102)
(define-constant ERR_NFT_NOT_FOUND u1103)
(define-constant ERR_NO_LISTING u1104)
(define-constant ERR_WRONG_COMMISSION u1105)
(define-constant ERR_IS_LISTED u1106)
(define-constant ERR_GET_OWNER u1107)
;;-------------------------------------
;; Variables
;;-------------------------------------
(define-data-var last-id uint u100000)
(define-data-var base-token-uri (string-ascii 210) "ipfs://")
;;-------------------------------------
;; Maps
;;-------------------------------------
(define-map token-count principal uint)
(define-map market uint { price: uint, commission: principal })
;;-------------------------------------
;; Getters
;;-------------------------------------
(define-read-only (get-base-token-uri)
(var-get base-token-uri)
)
(define-read-only (get-balance (account principal))
(default-to u0 (map-get? token-count account))
)
(define-read-only (get-listing-in-ustx (id uint))
(map-get? market id)
)
;;-------------------------------------
;; IPFS
;;-------------------------------------
(define-public (set-base-token-uri (new-base-token-uri (string-ascii 210)))
(begin
(try! (contract-call? .dao check-is-protocol contract-caller))
(var-set base-token-uri new-base-token-uri)
(ok true)
)
)
;;-------------------------------------
;; SIP-009
;;-------------------------------------
(define-read-only (get-last-token-id)
(ok (var-get last-id))
)
(define-read-only (get-token-uri (token-id uint))
(ok (some (concat (concat (var-get base-token-uri) (uint-to-string token-id)) ".json")))
)
(define-read-only (get-owner (token-id uint))
(ok (nft-get-owner? ststx-withdraw token-id))
)
(define-public (transfer (token-id uint) (sender principal) (recipient principal))
(begin
(asserts! (is-eq tx-sender sender) (err ERR_NOT_AUTHORIZED))
(asserts! (is-none (map-get? market token-id)) (err ERR_IS_LISTED))
(try! (transfer-helper token-id sender recipient))
(ok true)
)
)
;;-------------------------------------
;; uint to string
;;-------------------------------------
(define-constant LIST_40 (list
true true true true true true true true true true
true true true true true true true true true true
true true true true true true true true true true
true true true true true true true true true true
))
(define-read-only (uint-to-string (value uint))
(get return (fold uint-to-string-clojure LIST_40 {value: value, return: ""}))
)
(define-read-only (uint-to-string-clojure (i bool) (data {value: uint, return: (string-ascii 40)}))
(if (> (get value data) u0)
{
value: (/ (get value data) u10),
return: (unwrap-panic (as-max-len? (concat (unwrap-panic (element-at "0123456789" (mod (get value data) u10))) (get return data)) u40))
}
data
)
)
;;-------------------------------------
;; Mint / Burn
;;-------------------------------------
(define-public (mint-for-protocol (recipient principal))
(let (
(next-id (+ u1 (var-get last-id)))
)
(try! (contract-call? .dao check-is-protocol contract-caller))
(try! (nft-mint? ststx-withdraw (var-get last-id) recipient))
(map-set token-count recipient (+ (get-balance recipient) u1))
(var-set last-id next-id)
(ok true)
)
)
(define-public (burn-for-protocol (token-id uint))
(let (
(owner (unwrap! (unwrap! (get-owner token-id) (err ERR_GET_OWNER)) (err ERR_GET_OWNER)))
)
(try! (contract-call? .dao check-is-protocol contract-caller))
;; Unlist NFT
(map-delete market token-id)
(print { a: "unlist-in-ustx", id: token-id })
(try! (nft-burn? ststx-withdraw token-id owner))
(map-set token-count owner (- (get-balance owner) u1))
(ok true)
)
)
;;-------------------------------------
;; Marketplace
;;-------------------------------------
(define-private (is-sender-owner (id uint))
(let (
(owner (unwrap! (nft-get-owner? ststx-withdraw id) false))
)
(and (is-eq tx-sender owner) (is-eq contract-caller owner))
)
)
(define-public (list-in-ustx (id uint) (price uint) (commission-contract <commission-trait>))
(let (
(listing { price: price, commission: (contract-of commission-contract) })
)
(asserts! (is-sender-owner id) (err ERR_SENDER_NOT_OWNER))
(map-set market id listing)
(print (merge listing { a: "list-in-ustx", id: id }))
(ok true)
)
)
(define-public (unlist-in-ustx (id uint))
(begin
(asserts! (is-sender-owner id) (err ERR_SENDER_NOT_OWNER))
(map-delete market id)
(print { a: "unlist-in-ustx", id: id })
(ok true)
)
)
(define-public (buy-in-ustx (id uint) (commission-contract <commission-trait>))
(let (
(owner (unwrap! (nft-get-owner? ststx-withdraw id) (err ERR_NFT_NOT_FOUND)))
(listing (unwrap! (map-get? market id) (err ERR_NO_LISTING)))
(price (get price listing))
)
(asserts! (is-eq (contract-of commission-contract) (get commission listing)) (err ERR_WRONG_COMMISSION))
(try! (stx-transfer? price tx-sender owner))
(try! (transfer-helper id owner tx-sender))
(map-delete market id)
(try! (contract-call? commission-contract pay id price))
(print { a: "buy-in-ustx", id: id })
(ok true)
)
)
(define-private (transfer-helper (id uint) (sender principal) (recipient principal))
(begin
(try! (nft-transfer? ststx-withdraw id sender recipient))
(let (
(sender-balance (get-balance sender))
(recipient-balance (get-balance recipient))
)
(map-set token-count sender (- sender-balance u1))
(map-set token-count recipient (+ recipient-balance u1))
(ok true)
)
)
)