forked from sandbox/emacs
-
Notifications
You must be signed in to change notification settings - Fork 0
/
hooks.el
40 lines (34 loc) · 1.41 KB
/
hooks.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
;;========================================================================
;; Hooks
;;========================================================================
;; Setting some C/C++ mod stuff
(add-hook 'c-mode-hook
'(lambda ()
(global-set-key "\C-cr" 'compile)))
(add-hook 'c++-mode-hook
'(lambda ()
(global-set-key "\C-cr" 'compile)))
(setq c-default-style "bsd" c-basic-offset 2)
;;
(add-hook 'tex-mode-hook
'(lambda ()
(define-key tex-mode-map [f7] 'tex-compile)
(setq fill-column 80); where auto-fill should wrap
(turn-on-auto-fill)
(flyspell-mode)))
(add-hook 'org-mode-hook
'(lambda ()
(define-key org-mode-map "\C-\M-j" 'org-insert-heading)
(define-key org-mode-map "\M-j" 'org-insert-heading)
(define-key org-mode-map "\C-cl" 'org-metaright)
(define-key org-mode-map "\C-cj" 'org-metaleft)))
(add-hook 'grep-mode-hook
'(lambda ()
(define-key grep-mode-map "j" 'next-error-no-select)
(define-key grep-mode-map "k" 'previous-error-no-select)))
(add-hook 'occur-mode-hook
'(lambda ()
(define-key occur-mode-map "n" 'occur-next)
(define-key occur-mode-map "p" 'occur-prev)
(define-key occur-mode-map "j" 'occur-next)
(define-key occur-mode-map "k" 'occur-prev)))