-
Notifications
You must be signed in to change notification settings - Fork 0
/
init.el
154 lines (137 loc) · 6.31 KB
/
init.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
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
(setq debug-on-error t)
(setq frame-title-format '("Emacs @ " system-name ": %b %+%+ %f"))
(setq tramp-default-method "ssh")
(auto-fill-mode -1)
(remove-hook 'text-mode-hook #'turn-on-auto-fill)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Maximize screen on load if X11 detected
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun x11-maximize-frame ()
"Maximize the current frame (to full screen)"
(interactive)
(x-send-client-message nil 0 nil "_NET_WM_STATE" 32 '(2 "_NET_WM_STATE_MAXIMIZED_HORZ" 0))
(x-send-client-message nil 0 nil "_NET_WM_STATE" 32 '(2 "_NET_WM_STATE_MAXIMIZED_VERT" 0)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Setup xterm mouse in console mode
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(unless window-system
(require 'mouse)
(xterm-mouse-mode 1)
(global-set-key [mouse-4] '(lambda ()
(interactive)
(scroll-down 1)))
(global-set-key [mouse-5] '(lambda ()
(interactive)
(scroll-up 1)))
(xterm-mouse-mode t)
(defun track-mouse (e))
(setq mouse-sel-mode t))
(require 'package)
(add-to-list 'package-archives '("marmalade" . "http://marmalade-repo.org/packages/"))
(package-initialize)
(setq default-tab-width 2)
(setq nxml-child-indent 2)
(global-set-key (kbd "C-c c") 'comment-region) ; comment code block
(global-set-key (kbd "C-c u") 'uncomment-region) ; uncomment code block
(global-set-key (kbd "C-x TAB") 'tab-indent-region) ; indent region
(global-set-key (kbd "C-x <backtab>") 'unindent-region) ; unindent region
(defun tab-indent-region ()
(interactive)
(setq fill-prefix "\t")
(indent-region (region-beginning) (region-end) 4)
)
(defun unindent-region ()
(interactive)
(indent-region (region-beginning) (region-end) -1)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Cua-Mode
;; (Windows like control+x, control+c, control+v)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(cua-mode t)
(setq cua-auto-tabify-rectangles nil) ;; Don't tabify after rectangle commands
(transient-mark-mode 1) ;; No region when it is not highlighted
(setq cua-keep-region-after-copy t) ;; Standard Windows behaviour
(delete-selection-mode 1) ;; Typing in region deletes
(setq x-select-enable-clipboard t) ;; interact with x copy-cut-paste
(setq interprogram-paste-function 'x-cut-buffer-or-selection-value)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Color Theme
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(add-to-list 'load-path "~/.emacs.d/elpa/color-theme-6.6.0")
(require 'color-theme)
(color-theme-initialize)
(add-to-list 'load-path "~/.emacs.d/extra")
(when window-system
;; (set-face-font 'default "Source Code
;; Pro:pixelsize=13:foundry=adobe:weight=normal:slant=normal:width=normal:spacing=100:scalable=true")
(set-face-font 'default "Inconsolata-10")
(require 'color-theme-tm)
(color-theme-tm)
(add-to-list 'default-frame-alist '(background-color . "#111111"))
(x11-maximize-frame)
)
(unless window-system
(color-theme-taming-mr-arneson)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Code Mode
;; (Most code modes are included, check before installing)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(add-to-list 'load-path "~/.emacs.d/elpa/js2-mode-20130307")
(require 'js2-mode)
(add-to-list 'load-path "~/.emacs.d/elpa/apache-mode-2.0")
(require 'apache-mode)
(add-to-list 'load-path "~/.emacs.d/elpa/php-mode-1.5.0")
(require 'php-mode)
(add-to-list 'load-path "~/.emacs.d/extra/jinja2-mode")
(require 'jinja2-mode)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ECB (Emacs Code Browser)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(add-to-list 'load-path "~/.emacs.d/extra/ecb")
(require 'ecb)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Helm
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(add-to-list 'load-path "~/.emacs.d/extra/helm")
(require 'helm-config)
(global-set-key (kbd "C-c h") 'helm-mini)
(helm-mode 1)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Whitespace Highlighting
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'whitespace)
(setq whitespace-display-mappings '((space-mark ?\ [?\u00B7]) (newline-mark ?\n [?$ ?\n]) (tab-mark ?\t [?\u00BB ?\t])))
;(autoload 'whitespace-mode "whitespace" t)
;(autoload 'whitespace-toggle-options "whitespace" t)
(custom-set-variables
;; custom-set-variables was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
'(backup-directory-alist (quote ((".*" . "~/.emacs.d/backups/"))))
'(ecb-auto-activate t)
'(ecb-layout-name "left8")
'(ecb-layout-window-sizes (quote (("left8" (ecb-directories-buffer-name 0.21022727272727273 . 0.26) (ecb-sources-buffer-name 0.21022727272727273 . 0.24) (ecb-methods-buffer-name 0.21022727272727273 . 0.16) (ecb-history-buffer-name 0.21022727272727273 . 0.32)))))
'(ecb-options-version "2.40")
'(ecb-primary-secondary-mouse-buttons (quote mouse-1--C-mouse-1))
'(ecb-source-file-regexps (quote ((".*" ("\\(^\\(\\.\\|#\\)\\|\\(~$\\|\\.\\(elc\\|obj\\|o\\|class\\|pyc\\|lib\\|dll\\|a\\|so\\|cache\\)$\\)\\)") ("^\\.\\(emacs\\|gnus\\)$")))))
;; '(ecb-source-path (quote ("/home/matt" ("/home/matt/www/chartpin" "chartpin") ("/sshx:matt@intsims.matriclabs.com:/var/www/" "intsims-www") ("/sshx:matt@intsims.matriclabs.com:/var/django-projects/" "intsims-django") ("/sshx:aiipor5@vps12141.inmotionhosting.com:~/www/" "aiip.org"))))
'(ecb-source-path (quote (
"/home/matt"
("/sshx:matt@dev.intsims.com:/var/www/" "intsims-dev")
("/sshx:matt@intsims.com:/var/www/" "intsims-prod")
("/sshx:matt@mmoyles.dyndns-ip.com:/home/matt" "matt-desktop")
("/sshx:matt@tradergrit.com:/var/www/tradergrit/src" "tradergrit")
)))
'(ecb-tip-of-the-day nil)
'(inhibit-startup-screen t)
'(safe-local-variable-values (quote ((js-indent-level . 2)))))
(custom-set-faces
;; custom-set-faces was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
'(ecb-default-highlight-face ((((class color) (background dark)) (:background "RoyalBlue"))))
'(ecb-tree-guide-line-face ((((class color) (background dark)) (:inherit ecb-default-general-face :foreground "gray")))))