-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathload-paths.el
203 lines (172 loc) · 5.89 KB
/
load-paths.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
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
;; -*- Mode: Emacs-Lisp -*-
(require 'utils)
(add-to-load-path (home-dir/ "compiled/site-lisp") ;; Compiled AucTeX
(home-dir/ "compiled/share/emacs/site-lisp")
(home-dir/ "magit")
(home-dir/ "mo-git-blame")
(home-dir/ "compiled/share/emacs/site-lisp/dvc") ;; DVC
(home-dir/ "ecb") ;; Emacs Code Browser
(home-dir/ "elder")
(home-dir/ "color-theme")
(home-dir/ "haskell-mode")
(home-dir/ "markdown-mode")
(home-dir/ "jd-el")
(home-dir/ "matlab-emacs")
(home-dir/ "solarized")
(home-dir/ "llvm")
(home-dir/ "nyan-mode")
(home-dir/ "full-ack")
(home-dir/ "python-mode"))
(add-to-exec-path "/usr/local/bin"
"~/coq/bin"
"~/dev/stuff/plt/bin")
;; (setq-platform git-load-path
;; ((darwin . "")
;; (windows-nt . "C:/Program Files/Git/contrib")
;; (gnu/linux . "")))
;;
;;(add-to-load-path git-load-path)
(in-platform fry.l2f.inesc-id.pt
(add-to-load-path "/usr/share/xemacs/xemacs-packages/lisp/text-modes"
"~/.cabal/share/ghc-mod-0.5.5")
(add-to-exec-path "~/.cabal/bin"))
(in-platform darwin
(add-to-exec-path "/opt/local/bin"
"/opt/local/sbin"
"/usr/texbin"
"/Applications/Dev/Graphviz.app/Contents/MacOS"
"~/valgrind/bin"
"~/toolchains/bin"
"~/dev/stuff/llvm/llvm/tools/clang/utils"
"~/llvm/bin"
"/Applications/Dev/MATLAB_R2010b.app/bin"
"~/Library/Haskell/bin")
(add-to-load-path ;;(home-dir/ "auctex")
"~/Library/Haskell/ghc-7.0.3/lib/ghc-mod-0.5.5/share"
;; (home-dir/ "pov-mode-3.2")
;; (home-dir/ "jde/lisp")
;; (home-dir/ "dev/slime")
;; (home-dir/ "emms/lisp")
))
(autoload 'graphviz-dot-mode "graphviz-dot-mode")
(setq auto-mode-alist
(append
'(("\\.dot\\'" . graphviz-dot-mode))
auto-mode-alist))
;; To remove...
;;(autoload 'git-status "git" "GIT mode" t)
;; autoloads utility functions
(defun load-def-symbol (load-def)
"Gets the load-def's symbol"
(if (listp load-def)
(nth 0 load-def)
load-def))
(defun load-def-description (load-def description)
"Gets the load-def's description"
(if (and (listp load-def) (>= (length load-def) 2))
(nth 1 load-def)
description))
(defun load-def-file (load-def file)
"Gets the load-def's file"
(if (and (listp load-def) (>= (length load-def) 3))
(nth 2 load-def)
file))
(defun load-def-interactivep (load-def interactivep)
"Gets the load-def's interactivep setting"
(if (and (listp load-def) (>= (length load-def) 4))
(nth 3 load-def)
interactivep))
(defun autoloads (load-defs file description interactive)
"Sets up autoloads"
(mapcar (lambda (load-def)
(autoload
(load-def-symbol load-def)
(load-def-file load-def file)
(load-def-description load-def description)
(load-def-interactivep interactive interactive)))
load-defs))
;; Autoload llvm stuff
(autoload 'llvm-mode "llvm mode" "LLVM" t)
(setq auto-mode-alist
(append
'(("\\.ll$" . llvm-mode))
auto-mode-alist))
(autoload 'tablegen-mode "tablegen mode" "TableGen" t)
(setq auto-mode-alist
(append
'(("\\.td$" . tablegen-mode))
auto-mode-alist))
;; Autoload lisp stuff
(defvar lisp-autoloads
'(filcab-lisp-mode-hook
slime lisp-mode
allegro cmucl openmcl sbcl
(slime-mode "Slime mode.")
(slime-connect "Connect to swank server.")))
(autoloads lisp-autoloads "lisp-stuff" "Slime REPL." t)
(setq auto-mode-alist
(append
'(("\\.lisp\\'" . lisp-mode))
auto-mode-alist))
;; Autoload scheme stuff
(autoload 'scheme-mode "scheme-stuff" "Quack" t)
(setq auto-mode-alist
(append
'(("\\.ss\\'" . scheme-mode)
("\\.scm\\'" . scheme-mode)
("\\.sch\\'" . scheme-mode))
auto-mode-alist))
(autoload 'math "math" "Starts Mathematica" t)
(autoload 'math-mode "math"
"Mode for editing Mathematica. Loading will result in more info." t)
(setq auto-mode-alist (append '(;;("\\.m\\'" . math-mode) ;; Obective-C first
("\\.nb\\'" . math-mode))
auto-mode-alist))
;; Autoload haskell stuff
(defvar haskell-autoloads
'(haskell-mode turn-on-haskell-ghci))
(autoloads haskell-autoloads "haskell-site-file" "Haskell mode." t)
(autoload 'ghc-init "ghc" nil t) ;; ghc-mod
(add-hook 'haskell-mode-hook (lambda () (ghc-init)))
(setq auto-mode-alist
(append
'(("\\.hs\\'" . haskell-mode)
("\\.lhs\\'" . haskell-mode))
auto-mode-alist))
;; Python stuff
(add-to-list 'auto-mode-alist '("\\.py\\'" . python-mode))
;; Autoload Theorem Proving stuff
(defvar thm-proving-autoloads
'(proof-splash-display-screen coq-mode isar-mode))
(autoloads thm-proving-autoloads
"proof-general/generic/proof-site.el"
"Proof General"
t)
(setq auto-mode-alist
(append
'(("\\.v\\'" . coq-mode)
("\\.thy\\'" . isar-mode))
auto-mode-alist))
;; Java hook
(add-hook 'java-mode-hook
'(lambda ()
(require 'jde)))
;; PHP mode
(autoload 'php-mode "php-mode")
(setq auto-mode-alist
(append
'(("\\.php\\'" . php-mode)
("\\.phtml\\'" . php-mode))
auto-mode-alist))
;; ORG mode
(add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
(autoload 'vrml-mode "vrml-mode")
(setq auto-mode-alist
(append
'(("\\.wrl\\'" . vrml-mode))
auto-mode-alist))
(autoload 'markdown-mode "markdown-mode.el"
"Major mode for editing Markdown files" t)
(setq auto-mode-alist
(cons '("\\.md" . markdown-mode) auto-mode-alist))
(provide 'load-paths)