Bytecompile

Byte-compile and recompile all modules in .emacs.d and .emacs.d/elisp

1 files changed, 21 insertions, 7 deletions

diff --git a/emacs b/emacs
index fbdac85..887fbd3 100644
--- a/emacs
+++ b/emacs
@@ -1,14 +1,28 @@
 ;; -*- mode: Emacs-Lisp; -*-
 
 (setq load-dir "~/.emacs.d/")
-(setq myfiles (directory-files load-dir nil "^[0-9]\\{2\\}-\.*el$"))
+(setq elisp-dir (concat load-dir "elisp/"))
 
-(while myfiles
-  (let ((myfilename (concat load-dir (car myfiles))))
-    (if (not (file-exists-p (concat myfilename "c")))
-        (byte-compile-file myfilename))
-    (load (substring myfilename 0 (- (length myfilename) 3)))
-    (setq myfiles (cdr myfiles))))
+(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)