;;; -*- 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 - this is a demo
(keymap-set input-decode-map (char-to-string ?\u1000) "M-S-<ret>")
(keymap-global-set "M-S-<ret>" (lambda () (interactive) (message "hit M-S-<ret>")))

;; C-
(keymap-set input-decode-map (char-to-string ?\u0114) "C-<slash>")
(keymap-set input-decode-map (char-to-string ?\u0115) "C-<period>")
(keymap-set input-decode-map (char-to-string ?\u011E) "C-<equals-sign>")
(keymap-set input-decode-map (char-to-string ?\u1002) "C-<digit-zero>")

;; don't use these directly, use rewrites:
;;   C-; = ^[ = 27 = ESC
;;   C-[ = ^[ = 27 = ESC
;;   C-i = ^I = 09 = TAB
;;   C-m = ^M = 13 = RET
(keymap-set input-decode-map (char-to-string ?\u010F) "C-<semicolon>")
(keymap-set input-decode-map (char-to-string ?\u1005) "C-<left-square-bracket>")
(keymap-set input-decode-map (char-to-string ?\u1001) "C-<latin-small-letter-i>")
(keymap-set input-decode-map (char-to-string ?\u0110) "C-<latin-small-letter-m>")

;; C-M-
(keymap-set input-decode-map (char-to-string ?\u1006) "C-M-<space>")

;; TAB
;; don't use M-TAB
(keymap-set input-decode-map (char-to-string ?\u010E) "<backtab>")
(keymap-set input-decode-map (char-to-string ?\u011D) "C-<tab>")
(keymap-set input-decode-map (char-to-string ?\u1003) "M-<tab>")

;; CAPS
(keymap-set input-decode-map (char-to-string ?\u00E2) "M-<caps>")
(keymap-set input-decode-map (char-to-string ?\u0113) "<caps>")
(keymap-set input-decode-map (char-to-string ?\u0116) "S-<caps>")

(provide 'console-keys)