Custom hotkeys

[tennoseremel]

How I go about my hotkeys (key bindings) in Emacs:

;; Define minor mode for truly global keys as generally understood by the world outside of Emacs. (defvar user-main-keymap (make-keymap) "A keymap for key bindings that should work everywhere.") ;; Undo. (define-key user-main-keymap (kbd "C-z") 'undo) ;; Windows. (define-key user-main-keymap (kbd "M-<insert>") 'split-window-right) (define-key user-main-keymap (kbd "M-<delete>") 'delete-other-windows) (define-key user-main-keymap (kbd "M-<up>") 'windmove-up) (define-key user-main-keymap (kbd "M-<down>") 'windmove-down) (define-key user-main-keymap (kbd "M-<left>") 'windmove-left) (define-key user-main-keymap (kbd "M-<right>") 'windmove-right) (define-key user-main-keymap (kbd "<f6>") 'kill-buffer-and-window) ;; Navigate symbols. (define-key user-main-keymap (kbd "C-<right>") 'forward-symbol) (define-key user-main-keymap (kbd "C-<left>") (lambda () (interactive) (forward-symbol -1))) ;; Editing. (define-key user-main-keymap (kbd "M-z") 'zap-up-to-char) ;; Insert unicode character by name. (define-key user-main-keymap (kbd "M-<RET>") 'insert-char) ;; Input methods: Ctrl-F1 .. Ctrl-F5. (define-key user-main-keymap (kbd "<f1>") (lambda () (interactive) (activate-input-method nil))) (define-key user-main-keymap (kbd "<f2>") (lambda () (interactive) (activate-input-method "russian-computer"))) (define-key user-main-keymap (kbd "<f3>") (lambda () (interactive) (activate-input-method "esperanto-postfix"))) ; Should exist somewhere in Emacs 29 while I'm using my local version. (define-key user-main-keymap (kbd "<f4>") (lambda () (interactive) (activate-input-method "cyrillic-chuvash"))) (define-key user-main-keymap (kbd "<f5>") (lambda () (interactive) (activate-input-method "spanish-postfix"))) ;; Spell checking. (define-key user-main-keymap (kbd "C-<f1>") (lambda () (interactive) (ispell-change-dictionary "en_US") (message "Switched dictionary to en_US."))) (define-key user-main-keymap (kbd "C-<f2>") (lambda () (interactive) (ispell-change-dictionary "ru_RU") (message "Switched dictionary to ru_RU."))) (define-key user-main-keymap (kbd "C-<f3>") (lambda () (interactive) (ispell-change-dictionary "eo") (message "Switched dictionary to eo."))) (define-key user-main-keymap (kbd "C-<f4>") (lambda () (interactive) (ispell-change-dictionary "cv_RU") (message "Switched dictionary to cv_RU."))) (define-key user-main-keymap (kbd "C-<f5>") (lambda () (interactive) (ispell-change-dictionary "es_ES") (message "Switched dictionary to es_ES."))) (define-key user-main-keymap (kbd "<f7>") (lambda () (interactive) (flyspell-mode 1))) (define-key user-main-keymap (kbd "C-<f7>") (lambda () (interactive) (flyspell-mode -1))) (define-key user-main-keymap (kbd "<f8>") 'flyspell-check-previous-highlighted-word) ;; Position registers. (define-key user-main-keymap (kbd "<f9>") 'jump-to-register) (define-key user-main-keymap (kbd "C-<f9>") 'point-to-register) (define-key user-main-keymap (kbd "M-<f9>") 'window-configuration-to-register) ;; Dictionary. (define-key user-main-keymap (kbd "C-d") 'dictionary-lookup-definition) ;; Save and close when called from external program. (if (daemonp) (define-key user-main-keymap (kbd "<f12>") 'server-edit)) (define-minor-mode user-main-keys-minor-mode "Minor mode for user keybindings." t " ~K" user-main-keymap) ;; Special characters. (define-key key-translation-map (kbd "s-1") (kbd "¹")) (define-key key-translation-map (kbd "s-2") (kbd "²")) (define-key key-translation-map (kbd "s-3") (kbd "³")) (define-key key-translation-map (kbd "s-4") (kbd "⁴")) (define-key key-translation-map (kbd "s-5") (kbd "⁵")) (define-key key-translation-map (kbd "s-6") (kbd "⁶")) (define-key key-translation-map (kbd "s-7") (kbd "⁷")) (define-key key-translation-map (kbd "s-8") (kbd "⁸")) (define-key key-translation-map (kbd "s-9") (kbd "⁹")) (define-key key-translation-map (kbd "s-0") (kbd "⁰")) (define-key key-translation-map (kbd "s-!") (kbd "₁")) (define-key key-translation-map (kbd "s-@") (kbd "₂")) (define-key key-translation-map (kbd "s-#") (kbd "₃")) (define-key key-translation-map (kbd "s-$") (kbd "₄")) (define-key key-translation-map (kbd "s-%") (kbd "₅")) (define-key key-translation-map (kbd "s-^") (kbd "₆")) (define-key key-translation-map (kbd "s-&") (kbd "₇")) (define-key key-translation-map (kbd "s-*") (kbd "₈")) (define-key key-translation-map (kbd "s-(") (kbd "₉")) (define-key key-translation-map (kbd "s-)") (kbd "₀")) (define-key key-translation-map (kbd "s--") (kbd "—")) ; em dash (define-key key-translation-map (kbd "s-_") (kbd "–")) ; en dash (define-key key-translation-map (kbd "s-/") (kbd "…")) (define-key key-translation-map (kbd "s-a") (kbd "́")) ; combining acute accent (define-key key-translation-map (kbd "s-e") (kbd "€")) (define-key key-translation-map (kbd "s-x") (kbd "×")) ; multiplication (define-key key-translation-map (kbd "s-X") (kbd "⋅")) ; dot operator (define-key key-translation-map (kbd "s-,") (kbd "«")) (define-key key-translation-map (kbd "s-.") (kbd "»")) (define-key key-translation-map (kbd "s-i") (kbd "„")) (define-key key-translation-map (kbd "s-k") (kbd "“")) (define-key key-translation-map (kbd "s-l") (kbd "”")) (define-key key-translation-map (kbd "s-I") (kbd "‚")) (define-key key-translation-map (kbd "s-K") (kbd "‘")) (define-key key-translation-map (kbd "s-L") (kbd "’")) (define-key key-translation-map (kbd "s-;") (kbd "‘")) (define-key key-translation-map (kbd "s-'") (kbd "’")) (define-key key-translation-map (kbd "s-:") (kbd "′")) (define-key key-translation-map (kbd "s-\"") (kbd "″")) (define-key key-translation-map (kbd "s-o") (kbd "ô")) (define-key key-translation-map (kbd "s-O") (kbd "Ô")) (define-key key-translation-map (kbd "s-f") (kbd "‒")) ; figure dash (define-key key-translation-map (kbd "s-m") (kbd "−")) ; minus sign (define-key key-translation-map (kbd "s-=") (kbd "≠")) (define-key key-translation-map (kbd "s-+") (kbd "±")) (define-key key-translation-map (kbd "s-h") (kbd "#")) (define-key key-translation-map (kbd "s-\\") (kbd "|")) (define-key key-translation-map (kbd "s-<SPC>") (kbd " ")) ; no-break space

It should do for now…