FractionedMint

;; title: FractionedMint
;; version:
;; summary:
;; description:

;; title: STX-FractionedNFT
;; version: 1.0.0
;; summary: Fractionalized Bitcoin NFT contract for turning rare Bitcoin Ordinals into fractional NFTs on Stacks
;; description: This contract allows users to deposit Bitcoin Ordinals and mint fractional tokens representing ownership


;; token definitions
(define-non-fungible-token fractionalized-ordinal uint)
(define-fungible-token fraction-token)

;; constants
(define-constant CONTRACT-OWNER tx-sender)
(define-constant ERR-NOT-AUTHORIZED (err u100))
(define-constant ERR-NOT-FOUND (err u101))
(define-constant ERR-ALREADY-EXISTS (err u102))
(define-constant ERR-INSUFFICIENT-BALANCE (err u103))
(define-constant ERR-INVALID-AMOUNT (err u104))
(define-constant ERR-NOT-OWNER (err u105))
(define-constant ERR-ORDINAL-NOT-VERIFIED (err u106))
(define-constant ERR-ALREADY-FRACTIONALIZED (err u107))
(define-constant ERR-NOT-FRACTIONALIZED (err u108))
(define-constant ERR-INSUFFICIENT-FRACTIONS (err u109))

;; data vars
(define-data-var next-nft-id uint u1)
(define-data-var contract-fee uint u250) ;; 2.5% fee in basis points

;; data maps
(define-map ordinal-metadata
  { nft-id: uint }
  {
    ordinal-id: (string-ascii 64),
    inscription-number: uint,
    creator: principal,
    total-fractions: uint,
    fractions-outstanding: uint,
    metadata-uri: (string-utf8 256),
    is-fractionalized: bool,
    created-at: uint
  }
)

(define-map ordinal-verification
  { ordinal-id: (string-ascii 64) }
  {
    bitcoin-tx-id: (string-ascii 64),
    output-index: uint,
    verified: bool,
    verifier: principal,
    verified-at: uint
  }
)

(define-map fraction-balances
  { owner: principal, nft-id: uint }
  { balance: uint }
)

(define-map fraction-allowances
  { owner: principal, spender: principal, nft-id: uint }
  { allowance: uint }
)

(define-public (verify-ordinal (ordinal-id (string-ascii 64)))
  (let
    (
      (verification-data (unwrap! (map-get? ordinal-verification { ordinal-id: ordinal-id }) ERR-NOT-FOUND))
    )
    (asserts! (or (is-eq tx-sender CONTRACT-OWNER) (is-eq tx-sender (get verifier verification-data))) ERR-NOT-AUTHORIZED)
    
    (map-set ordinal-verification
      { ordinal-id: ordinal-id }
      (merge verification-data { verified: true, verified-at: stacks-block-height })
    )
    (ok true)
  )
)

(define-public (fractionalize-ordinal 
  (nft-id uint)
  (total-fractions uint)
)
  (let
    (
      (metadata (unwrap! (map-get? ordinal-metadata { nft-id: nft-id }) ERR-NOT-FOUND))
      (owner (unwrap! (nft-get-owner? fractionalized-ordinal nft-id) ERR-NOT-FOUND))
      (verification (unwrap! (map-get? ordinal-verification { ordinal-id: (get ordinal-id metadata) }) ERR-NOT-FOUND))
    )
    (asserts! (is-eq tx-sender owner) ERR-NOT-OWNER)
    (asserts! (get verified verification) ERR-ORDINAL-NOT-VERIFIED)
    (asserts! (not (get is-fractionalized metadata)) ERR-ALREADY-FRACTIONALIZED)
    (asserts! (> total-fractions u0) ERR-INVALID-AMOUNT)
    
    (try! (ft-mint? fraction-token total-fractions tx-sender))
    
    (map-set ordinal-metadata
      { nft-id: nft-id }
      (merge metadata { 
        total-fractions: total-fractions,
        fractions-outstanding: total-fractions,
        is-fractionalized: true
      })
    )
    
    (map-set fraction-balances
      { owner: tx-sender, nft-id: nft-id }
      { balance: total-fractions }
    )
    
    (ok total-fractions)
  )
)

(define-public (transfer-fractions
  (nft-id uint)
  (amount uint)
  (recipient principal)
)
  (let
    (
      (sender-balance (default-to u0 (get balance (map-get? fraction-balances { owner: tx-sender, nft-id: nft-id }))))
      (recipient-balance (default-to u0 (get balance (map-get? fraction-balances { owner: recipient, nft-id: nft-id }))))
      (metadata (unwrap! (map-get? ordinal-metadata { nft-id: nft-id }) ERR-NOT-FOUND))
    )
    (asserts! (get is-fractionalized metadata) ERR-NOT-FRACTIONALIZED)
    (asserts! (>= sender-balance amount) ERR-INSUFFICIENT-BALANCE)
    (asserts! (> amount u0) ERR-INVALID-AMOUNT)
    
    (map-set fraction-balances
      { owner: tx-sender, nft-id: nft-id }
      { balance: (- sender-balance amount) }
    )
    
    (map-set fraction-balances
      { owner: recipient, nft-id: nft-id }
      { balance: (+ recipient-balance amount) }
    )
    
    (ok true)
  )
)


(define-read-only (get-last-token-id)
  (- (var-get next-nft-id) u1)
)

(define-read-only (get-token-uri (nft-id uint))
  (ok (some (get metadata-uri (unwrap! (map-get? ordinal-metadata { nft-id: nft-id }) ERR-NOT-FOUND))))
)

(define-read-only (get-owner (nft-id uint))
  (ok (nft-get-owner? fractionalized-ordinal nft-id))
)

(define-read-only (get-ordinal-metadata (nft-id uint))
  (map-get? ordinal-metadata { nft-id: nft-id })
)

(define-read-only (get-ordinal-verification (ordinal-id (string-ascii 64)))
  (map-get? ordinal-verification { ordinal-id: ordinal-id })
)

(define-read-only (get-fraction-balance (owner principal) (nft-id uint))
  (default-to u0 (get balance (map-get? fraction-balances { owner: owner, nft-id: nft-id })))
)

(define-read-only (get-fraction-total-supply (nft-id uint))
  (match (map-get? ordinal-metadata { nft-id: nft-id })
    metadata (get total-fractions metadata)
    u0
  )
)

(define-read-only (is-fractionalized (nft-id uint))
  (match (map-get? ordinal-metadata { nft-id: nft-id })
    metadata (get is-fractionalized metadata)
    false
  )
)

;; private functions

(define-private (is-owner-or-approved (nft-id uint) (user principal))
  (match (nft-get-owner? fractionalized-ordinal nft-id)
    owner (is-eq user owner)
    false
  )
)

;; SIP-009 NFT trait implementation
(define-public (transfer (nft-id uint) (sender principal) (recipient principal))
  (begin
    (asserts! (is-eq tx-sender sender) ERR-NOT-AUTHORIZED)
    (asserts! (is-owner-or-approved nft-id sender) ERR-NOT-AUTHORIZED)
    (nft-transfer? fractionalized-ordinal nft-id sender recipient)
  )
)