new keymap

(xah-fly--define-keys
   (define-prefix-command 'xah-fly-elscreen-key-map)
   '(                                      ; qwerty
     ("j" . elscreen-create)               ; c
     ("t" . elscreen-kill)                 ; k
     ("b" . elscreen-next)                 ; n
     ("l" . elscreen-previous)             ; p
     ("p" . elscreen-screen-nickname)      ; r
     ))
     
qwerty =
  {"-", "=",
   "q", "w", "e", "r", "t", "y", "u", "i", "o", "p", "[", "]", "\\",
   "a", "s", "d", "f", "g", "h", "j", "k", "l", ";", "'",
   "z", "x", "c", "v", "b", "n", "m", ",", ".", "/"};
dvorak =
  {"[", "]",
   "'", ",", ".", "p", "y", "f", "g", "c", "r", "l", "/", "=", "\\",
   "a", "o", "e", "u", "i", "d", "h", "t", "n", "s", "-",
   ";", "q", "j", "k", "x", "b", "m", "w", "v", "z"};