9420f67c17
* Changed the load-dir variable in .emacs to d-dir (from emacs._d_).
Using the same variable as emacs didn't seem like a good idea to me.
* Moved autopair settings from 10-modules and 10-settings to
20-autopair
* Removed the folding-mode comments from load files.
42 lines
1.6 KiB
Text
42 lines
1.6 KiB
Text
;; -*- mode: Emacs-Lisp; -*-
|
|
|
|
(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)
|