emacs


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

;; -*- mode: Emacs-Lisp; -*-
(add-to-list 'load-path "~/.emacs.d/elisp")
(add-to-list 'load-path "~/.emacs.d/naquadah-theme")
(add-to-list 'load-path "~/.emacs.d/elisp/markdown-mode")
(add-to-list 'load-path "~/.emacs.d/elisp/git-commit-mode")

(setq d-dir "~/.emacs.d/")
(setq elisp-dir (concat d-dir "elisp/"))

(setq d-el-files (directory-files d-dir nil "^[0-9]\\{2\\}-\.*el$"))
(setq elisp-el-files (directory-files elisp-dir nil "\\.el$"))

;; Compile 3rd party elisp files
(byte-recompile-directory elisp-dir)
(while elisp-el-files
  (let ((my-elisp-file-name (concat elisp-dir (car elisp-el-files))))
    (if (not (file-exists-p (concat my-elisp-file-name "c")))
        (byte-compile-file my-elisp-file-name))
    (setq elisp-el-files (cdr elisp-el-files))))

;; Compile my elisp files
(byte-recompile-directory d-dir)
(while d-el-files
  (let ((my-file-name (concat d-dir (car d-el-files))))
    (if (not (file-exists-p (concat my-file-name "c")))
        (byte-compile-file my-file-name))
    (load (substring my-file-name 0 (- (length my-file-name) 3)))
    (setq d-el-files (cdr d-el-files))))

(add-to-list 'compilation-finish-functions 'my-comp-finish-function)

(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.
 '(org-agenda-files (quote ("~/documents/org/main.org")))
 '(safe-local-variable-values (quote ((Mode . shell-script) (ispell-local-dictionary . nl)))))
(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.
 )
(put 'narrow-to-region 'disabled nil)