;;; -*- lexical-binding: t -*- ;; ;; this file: ;; https://dataswamp.org/~incal/emacs-init/console-keys.el ;; ;; edit this file to get additional shortcuts in a tty Emacs! ;; tutorial: ;; https://dataswamp.org/~incal/tty-emacs-keys.txt ;; M-S-RET (define-key input-decode-map [?\u1000] [M-S-RET-a]) (global-set-key [M-S-RET-a] (lambda () (interactive) (message "hit M-S-RET"))) ;; C-... (define-key input-decode-map [?\u010F] [C-semi-colon]) (define-key input-decode-map [?\u0110] [C-m]) (define-key input-decode-map [?\u0114] [C-/]) (define-key input-decode-map [?\u0115] [C-.]) (define-key input-decode-map [?\u011E] [C-=]) (define-key input-decode-map [?\u1001] [C-i]) (define-key input-decode-map [?\u1002] [C-0]) (define-key input-decode-map [?\u1005] [C-left-bracket]) ;; C-M-... (define-key input-decode-map [?\u1006] [incal-C-M-SPC]) ;; TAB (define-key input-decode-map [?\u010E] [backtab]) (define-key input-decode-map [?\u011D] [C-tab]) (define-key input-decode-map [?\u1003] [M-tab]) ;; CAPS (define-key input-decode-map [?\u00E2] [M-caps]) (define-key input-decode-map [?\u0113] [caps]) (define-key input-decode-map [?\u0116] [S-caps]) (provide 'console-keys)