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

;; -*- mode: Emacs-Lisp; -*-

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

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

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

;; Compile my elisp files
(byte-recompile-directory load-dir)
(while my-files
  (let ((my-file-name (concat load-dir (car my-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 my-files (cdr my-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 ("~/org/notes.org" "~/Documents/main.org" "~/Documents/aethon/aethon.org")))
 '(safe-local-variable-values (quote ((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)