Created
April 27, 2012 06:15
-
-
Save chopmo/2506409 to your computer and use it in GitHub Desktop.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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