stacks-utils-utils-address-v1

(define-map address-labels principal (string-ascii 50))
(define-map address-tags {addr: principal, tag: (string-ascii 20)} bool)
(define-read-only (get-label (addr principal)) (map-get? address-labels addr))
(define-public (set-label (label (string-ascii 50)))
  (begin (map-set address-labels tx-sender label) (ok true)))
(define-public (add-tag (tag (string-ascii 20)))
  (begin (map-set address-tags {addr: tx-sender, tag: tag} true) (ok true)))