(defun my/elscreen-abc-jump ()
"abc で switch しちゃうぞ!"
(interactive)
(let* ((offset (- ?a -1 ?1))
(next-screen (string-to-number (string (- last-command-event
offset)))))
(if (and (<= 0 next-screen) (<= next-screen 9))
(elscreen-goto next-screen))))
(dotimes (i 10)
(define-key elscreen-map (string (+ ?a i)) 'my/elscreen-abc-jump))