forked from redguardtoo/emacs.d
-
Notifications
You must be signed in to change notification settings - Fork 0
/
init-local.el
86 lines (67 loc) · 2.1 KB
/
init-local.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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
;; Configure file for myself
;; ellipse Sun Oct 21 21:51:53 2012
(add-to-list 'load-path "~/.emacs.d/ellipse/")
(global-set-key [(C-f6)] 'eshell)
;mit-scheme
(load-library "xscheme")
;(setq scheme-program-name "scm")
; change mouse's scroll step
(setq scroll-step 1
scroll-margin 3
scroll-conservatively 10000)
;set user profile
(setq user-full-name "ellipse")
(setq user-mail-address "xdgxygpl@gmail.com")
;display time
(display-time-mode t)
(setq display-time-24hr-format t)
;change yes-or-no to y-or-n
(fset 'yes-or-no-p 'y-or-n-p)
; set matlab-mode
(add-to-list 'load-path "/home/ellipse/.emacs.d/ellipse/matlab")
(require 'matlab-load)
; set tab's width to be 4
(setq tab-width 4)
; set linux-c-mode
(defun linux-c-mode ()
"C mode with adjusted defaults for use with the Linux Kernel"
(interactive)
(c-mode)
(which-function-mode)
(c-set-style "K&R")
(setq tab-width 8)
(setq indent-tabs-mode t)
(setq c-basic-offset 8)
)
(add-to-list 'auto-mode-alist '("\\.c\\'" . linux-c-mode))
; display line number on the left side
(require 'linum)
(global-linum-mode 1)
; indent automatically after newline
(global-set-key "\r" 'align-newline-and-indent)
; load yasnippet
;;(require 'init-yasnippet)
; enable hs-minor-mode for c/c++/elisp/scheme mode
(defun my-hs-minor-mode-hook ()
(local-set-key (kbd "C-c t") 'hs-toggle-hiding)
(local-set-key (kbd "C-c b") 'hs-hide-block)
(local-set-key (kbd "C-c o") 'hs-hide-all)
(local-set-key (kbd "C-c u") 'hs-hide-level)
)
(add-hook 'c-mode-common-hook 'hs-minor-mode)
(add-hook 'c++-mode-hook 'hs-minor-mode)
(add-hook 'emacs-lisp-mode-hook 'hs-minor-mode)
(add-hook 'scheme-mode-hook 'hs-minor-mode)
(add-hook 'hs-minor-mode-hook 'my-hs-minor-mode-hook)
; gas-mode to write assembly language
(require 'gas-mode)
(add-to-list 'auto-mode-alist '("\\.S\\'" . gas-mode))
;multi-gud
(require 'init-multigud)
; undo-tree-mode
;;(autoload 'undo-tree-visualize "~/.emacs.d/elpa/undo-tree-20121020.1844/undo-tree.el" "" nil)
;;(global-set-key "\C-xu" 'undo-tree-visualize)
;;(global-undo-tree-mode t)
;; auctex
(require 'init-auctex)
(provide 'init-local)