.emacs.d/personal/init-terminal.el at master · ramen/.emacs.d · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
;;; init-terminal.el --- Terminal emulator support

(unless window-system
  (define-key key-translation-map (kbd "ESC <f1>") (kbd "<M-f1>"))
  (define-key key-translation-map (kbd "ESC <f2>") (kbd "<M-f2>"))
  (define-key key-translation-map (kbd "ESC <f3>") (kbd "<M-f3>"))
  (define-key key-translation-map (kbd "ESC <f4>") (kbd "<M-f4>"))
  (define-key key-translation-map (kbd "ESC <f5>") (kbd "<M-f5>"))
  (define-key key-translation-map (kbd "ESC <f6>") (kbd "<M-f6>"))
  (define-key key-translation-map (kbd "ESC <f7>") (kbd "<M-f7>"))
  (define-key key-translation-map (kbd "ESC <f8>") (kbd "<M-f8>"))
  (define-key key-translation-map (kbd "ESC <f9>") (kbd "<M-f9>"))
  (define-key key-translation-map (kbd "ESC <f10>") (kbd "<M-f10>"))
  (define-key key-translation-map (kbd "ESC <f11>") (kbd "<M-f11>"))
  (define-key key-translation-map (kbd "ESC <f12>") (kbd "<M-f12>"))
  (define-key key-translation-map (kbd "ESC <up>") (kbd "<M-up>"))
  (define-key key-translation-map (kbd "ESC <down>") (kbd "<M-down>"))
  (define-key key-translation-map (kbd "ESC <right>") (kbd "<M-right>"))
  (define-key key-translation-map (kbd "ESC <left>") (kbd "<M-left>"))
  (define-key key-translation-map (kbd "ESC C-@") (kbd "C-M-SPC"))
  (define-key key-translation-map (kbd "ESC O 3 a") (kbd "<M-up>"))
  (define-key key-translation-map (kbd "ESC O 3 b") (kbd "<M-down>"))
  (define-key key-translation-map (kbd "ESC O 3 c") (kbd "<M-right>"))
  (define-key key-translation-map (kbd "ESC O 3 d") (kbd "<M-left>"))
  (define-key key-translation-map (kbd "ESC O a") (kbd "<C-up>"))
  (define-key key-translation-map (kbd "ESC O b") (kbd "<C-down>"))
  (define-key key-translation-map (kbd "ESC O c") (kbd "<C-right>"))
  (define-key key-translation-map (kbd "ESC O d") (kbd "<C-left>"))
  (define-key key-translation-map (kbd "ESC [ 1 ; 6 A") (kbd "<C-S-up>"))
  (define-key key-translation-map (kbd "ESC [ 1 ; 6 B") (kbd "<C-S-down>"))
  (define-key key-translation-map (kbd "ESC [ 1 ; 6 C") (kbd "<C-S-right>"))
  (define-key key-translation-map (kbd "ESC [ 1 ; 6 D") (kbd "<C-S-left>"))
  (define-key key-translation-map (kbd "ESC [ 7 ^") (kbd "<C-home>"))
  (define-key key-translation-map (kbd "ESC [ 7 ~") (kbd "<home>"))
  (define-key key-translation-map (kbd "ESC [ 8 ^") (kbd "<C-end>"))
  (define-key key-translation-map (kbd "ESC [ 8 ~") (kbd "<end>"))

  (remove-hook 'prog-mode-hook 'pretty-lambdas)

  (require 'mouse)
  (defalias 'track-mouse 'ignore)
  (xterm-mouse-mode 1)

  (if (fboundp 'mouse-wheel-mode)
      (mouse-wheel-mode 1)
    (progn
      (global-set-key (kbd "<mouse-4>") 'scroll-down-1)
      (global-set-key (kbd "<mouse-5>") 'scroll-up-1)))

  (when (eq system-type 'darwin)
    (require 'pbcopy)
    (turn-on-pbcopy)))