Redefining keys for Emacs Lispy to a more xah-fly-keys right hand WASD layout for Programmer Dvorak

emacs.el

(defun setup-lispy ()
  (add-hook 'emacs-lisp-mode-hook (lambda () (lispy-mode 1)))
  (add-hook 'scheme-mode-hook (lambda () (lispy-mode 1)))

  ;; apparently setting tuhdo-special key-theme does not work
  (eval-after-load "lispy"
    `(progn
       ;; h is already mapped correctly to lispy-left

       ;; overwrites lispy-clone, was k
       (lispy-define-key lispy-mode-map "c" 'lispy-up)
       ;; overwrites lispy-teleport, was j
       (lispy-define-key lispy-mode-map "t" 'lispy-down)
       ;; overwrites lispy-new-copy, was l
       (lispy-define-key lispy-mode-map "n" 'lispy-right)

       (lispy-define-key lispy-mode-map "j" 'lispy-teleport)
       (lispy-define-key lispy-mode-map "k" 'lispy-clone)

       ;; those are switched
       (lispy-define-key lispy-mode-map "f" 'lispy-undo)
       (lispy-define-key lispy-mode-map "u" 'lispy-flow))))