1307626309
Of course paths need to be defined in ~/.emacs, otherwise the compilation function might not be aware of them.
46 lines
1.8 KiB
Text
46 lines
1.8 KiB
Text
;; -*- 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 my-files (directory-files d-dir nil "^[0-9]\\{2\\}-\.*el$"))
|
|
(setq my-elisp-files
|
|
(directory-files elisp-dir nil "\\.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 d-dir)
|
|
(while my-files
|
|
(let ((my-file-name (concat d-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)
|