minor fixes
[dot-emacs] / init.el
1 ;; Copyright (C) 2014 Ian Kelling
2
3 ;; This program is free software: you can redistribute it and/or modify
4 ;; it under the terms of the GNU General Public License as published by
5 ;; the Free Software Foundation, either version 3 of the License, or
6 ;; (at your option) any later version.
7
8 ;; This program is distributed in the hope that it will be useful,
9 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
10 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11 ;; GNU General Public License for more details.
12
13 ;; You should have received a copy of the GNU General Public License
14 ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
15
16
17 ;; do m-x benchmark-init to see some benchmark stats
18 ;;(add-to-list 'load-path "~/.emacs.d/src/benchmark-init-el/")
19 ;;(require 'benchmark-init-loaddefs)
20 ;;(benchmark-init/activate)
21
22
23 ;;; init.el --- the start of customization
24
25 ;; (toggle-debug-on-error) ;uncomment to help debug
26
27 ;; stop from minimizing & freezing the gui
28
29 ;; used to freeze emacs and was really annoying,
30 ;; seems its changed now. no harm in keeping this though.
31 (global-unset-key (kbd "C-z"))
32
33 ;; these need to be done before the hook in order to satisfy the byte compiler
34 ;; (add-to-list 'load-path "~/.emacs.d/elpa/smartparens-20140328.809")
35 ;; (add-to-list 'load-path "~/.emacs.d/elpa/dash-20140308.656")
36
37 ;;(add-to-list 'load-path "~/.emacs.d/src/ghci-completion")
38 (add-to-list 'load-path "~/.emacs.d/emacs/site-lisp/org")
39
40 ;; git version of gnus
41 ;; (add-to-list 'load-path "~/.emacs.d/src/gnus/lisp")
42 (require 'info)
43 (add-to-list 'Info-default-directory-list "~/.emacs.d/src/gnus/texi")
44
45 ;; needed for git version
46 ;;(add-to-list 'load-path "~/.emacs.d/src/haskell-mode")
47 ;;(require 'haskell-mode-autoloads)
48 ;;(add-to-list 'Info-default-directory-list "~/.emacs.d/src/haskell-mode")
49
50 (require 'bbdb-loaddefs "~/.emacs.d/src/bbdb/lisp/bbdb-loaddefs.el")
51 (setq bbdb-print-tex-path "~/.emacs.d/src/bbdb/tex")
52
53 ;;(add-hook 'server-visit-hook 'raise-frame)
54
55
56 ;; load init in `after-init-hook' so all packages are loaded
57 ;; todo, learn about the weird evaluation order of this hook that requires the quoting.
58 ;; adapted from starter-kit
59 (add-hook 'after-init-hook
60 `(lambda ()
61 ;; todo, set this var in my-init.org and use it instead
62 ;; of .emacs.d
63 (setq init-dir ,(file-name-directory load-file-name))
64 (unless (equal (user-uid) 0) ; don't make root owned files
65 (byte-recompile-directory init-dir))
66 ;; (byte-recompile-directory init-dir 0) ; with the 0,
67 ;; compile .el files that have no .elc file already
68
69 ;; this must be loaded first to avoid an error: void-function(cl-member)
70 (require 'cl)
71 ;; added org-habit, org-drill, org-mobile from the defaults
72 ;; disabled because I'm not using org-drill, and I see
73 ;; this error on startup of emacs server,
74 ;; which might be nothing but meh,
75 ;; File mode specification error: (void-function org-drill-add-cloze-fontification)
76
77 (require 'org)
78 ;; (setq org-modules (quote (org-bbdb org-bibtex org-docview org-gnus
79 ;; org-info org-jsinfo org-irc org-mew
80 ;; org-mhe org-rmail org-vm org-wl org-w3m
81 ;; org-habit org-drill org-mobile)))
82 (org-babel-load-file (expand-file-name "my-init.org" init-dir))
83 (org-babel-load-file (expand-file-name "dev.org" init-dir))))
84
85 ;;init.el ends here