Skip to content

Instantly share code, notes, and snippets.

@chopmo
Created April 27, 2012 06:15
Show Gist options
  • Save chopmo/2506409 to your computer and use it in GitHub Desktop.
Save chopmo/2506409 to your computer and use it in GitHub Desktop.
(setq my-key-pairs
'((?! ?1) (?@ ?2) (?# ?3) (?$ ?4) (?% ?5)
(?^ ?6) (?& ?7) (?* ?8) (?( ?9) (?) ?0)
(?- ?_) (?\" ?') (?{ ?[) (?} ?]) ; (?| ?\\)
))
(defun my-key-swap (key-pairs)
(if (eq key-pairs nil)
(message "Keyboard zapped!! Shift-F10 to restore!")
(progn
(keyboard-translate (caar key-pairs) (cadar key-pairs))
(keyboard-translate (cadar key-pairs) (caar key-pairs))
(my-key-swap (cdr key-pairs))
)
))
(defun my-key-restore (key-pairs)
(if (eq key-pairs nil)
(message "Keyboard restored!! F10 to Zap!")
(progn
(keyboard-translate (caar key-pairs) (caar key-pairs))
(keyboard-translate (cadar key-pairs) (cadar key-pairs))
(my-key-restore (cdr key-pairs))
)
))
(global-set-key [f10] '(lambda () (interactive) (my-key-swap my-key-pairs)))
(global-set-key [S-f10] '(lambda () (interactive) (my-key-restore my-key-pairs)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment