ryoakg
10/28/2015 - 4:57 AM

*scratch*.el

(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))