*scratch*.el

(setq-local sbrg:pairs
            '(("(" . ")")
              ("[" . "]")
              ("{" . "}")
              ("\"")
              ("\'")
              ))

(dolist (pair sbrg:pairs)
  (let* ((lhs (car pair)) (rhs (cdr pair)) fn)
    (defun do-wrap (arg)
      (interactive)
      (sp-wrap-with-pair arg)
      )
    ;; (message (format "%S" lhs))
    ;; (message (format "%S" rhs))
    (define-key evil-visual-state-map (kbd lhs) (lambda () (interactive) (do-wrap lhs)))
    (when rhs
      (define-key evil-visual-state-map (kbd rhs) (lambda () (interactive) (do-wrap rhs)))
      )
    )
  )
;; asdfasdf