/
keys.el
42 lines (34 loc) · 1.51 KB
/
keys.el
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
;; Global KeyMappings
(global-set-key (kbd "<delete>") 'delete-char)
(global-set-key (kbd "<kp-delete>") 'delete-char)
(global-set-key (kbd "C-h") 'delete-backward-char)
(global-set-key (kbd "C-x C") 'compile)
(global-set-key (kbd "C-c C-c") 'eval-buffer)
(global-set-key (kbd "C-x C-x") 'end-of-buffer)
(global-set-key (kbd "C-x C-p") 'beginning-of-buffer)
(global-set-key (kbd "M-r") 'revert-buffer)
(global-set-key (kbd "M-g") 'goto-line)
(global-set-key (kbd "C-M-\\") 'indent-region)
;(global-set-key (kbd "C-M-\\") 'align)
(global-set-key (kbd "C-M-/") 'align)
;; Some settings when we're in a windowed environment.
(when window-system
(progn
;; Navigate split buffer windows with shift-{left,right,up,down}
(windmove-default-keybindings)
;; Shell out instead of minimize on C-z
(global-set-key (kbd "C-z") 'shell)
))
;; Some settings when we're specifically in Carbon Emacs
(when (eq window-system 'mac)
(setq mac-command-modifier 'alt
mac-option-modifier 'meta
mac-allow-anti-aliasing t
mac-pass-command-to-system t)
(global-set-key (kbd "A-v") 'yank)
(global-set-key (kbd "A-c") 'kill-ring-save)
(global-set-key (kbd "M-RET") 'mac-toggle-max-window)
(global-set-key (kbd "A-=") '(lambda nil (interactive) (screen-zoom 1)))
(global-set-key (kbd "A-+") '(lambda nil (interactive) (screen-zoom 1)))
(global-set-key (kbd "A--") '(lambda nil (interactive) (screen-zoom -1)))
)