elisp to convert a dvorak word to qwerty (requires paredit mode)

gistfile1.el

(defvar d-q)

(setq d-q (make-hash-table :test 'equal))
(puthash "[" "-" d-q)
(puthash "]" "=" d-q)
(puthash "'" "q" d-q)
(puthash "," "w" d-q)
(puthash "." "e" d-q)
(puthash "p" "r" d-q)
(puthash "y" "t" d-q)
(puthash "f" "y" d-q)
(puthash "g" "u" d-q)
(puthash "c" "i" d-q)
(puthash "r" "o" d-q)
(puthash "l" "p" d-q)
(puthash "/" "[" d-q)
(puthash "=" "]" d-q)
(puthash "\\" "\\" d-q)
(puthash "a" "a" d-q)
(puthash "o" "s" d-q)
(puthash "e" "d" d-q)
(puthash "u" "f" d-q)
(puthash "i" "g" d-q)
(puthash "d" "h" d-q)
(puthash "h" "j" d-q)
(puthash "t" "k" d-q)
(puthash "n" "l" d-q)
(puthash "s" ";" d-q)
(puthash "-" "'" d-q)
(puthash ";" "z" d-q)
(puthash "q" "x" d-q)
(puthash "j" "c" d-q)
(puthash "k" "v" d-q)
(puthash "x" "b" d-q)
(puthash "b" "n" d-q)
(puthash "m" "m" d-q)
(puthash "w" "," d-q)
(puthash "v" "." d-q)
(puthash "z" "/" d-q)

(defun dvorak-to-qwerty ()
  (interactive)
  (let* ((end (point))
         (beg (progn (paredit-backward)
                     (point)))
         (contents (buffer-substring beg end)))
    (delete-region beg end)
    (dolist (char (append contents nil))
      (insert (gethash (concat (list char)) d-q)))))