voting-delegation-v1

(define-map delegations principal {delegate: principal, weight: uint})
(define-read-only (get-delegation (delegator principal)) (map-get? delegations delegator))
(define-public (delegate (to principal) (weight uint))
  (begin (map-set delegations tx-sender {delegate: to, weight: weight}) (ok true)))
(define-public (revoke-delegation)
  (begin (map-delete delegations tx-sender) (ok true)))