@@ -18,15 +18,8 @@ (setq my-ext-dir "~/.emacs.d/ext") (add-to-list 'load-path my-ext-dir) -(dolist (d (directory-files my-ext-dir)) - (let ((full-path (concat my-ext-dir "/" d))) - (when (not (or (string= d ".") (string= d ".."))) - (when (file-directory-p full-path) - (add-to-list 'load-path full-path) - (dolist (subd (directory-files full-path)) - (let ((subd-path (concat full-path "/" subd))) - (when (and (or (string= subd "elisp") (string= subd "lisp")) - (file-directory-p subd-path)) - (add-to-list 'load-path subd-path)))))))) +(defun add-ext-load-path (&rest ps) + (dolist (p ps) + (add-to-list 'load-path (concat my-ext-dir "/" p)))) (provide 'init-load-path) init-load-path.el @@ -21,6 +21,7 @@ (interactive) ()) +(add-ext-load-path "color-theme") (require 'color-theme) (color-theme-initialize) (color-theme-vim-colors) @@ -32,8 +33,10 @@ mail-spool-file)) (display-time) +(add-ext-load-path "iswitch-menu") (require 'iswitch-menu) +(add-ext-load-path "elscreen" "apel") (setq elscreen-display-tab nil) (require 'elscreen) init-ui.el @@ -1,4 +1,8 @@ -(add-to-list 'load-path "~/.emacs.d/ext/swank-clojure/src/emacs") +(add-ext-load-path "swank-clojure/src/emacs" + "clojure-mode" + "swank-clojure" + "slime") + (setq swank-clojure-binary "clj") (require 'clojure-mode) topics.d/topic-clojure.el @@ -1,3 +1,4 @@ + (load "~/.emacs.d/ext/nxhtml/autostart.el") (provide 'topic-html) \ No newline at end of file topics.d/topic-html.el @@ -8,6 +8,7 @@ (setq flymake-extension-use-showtip t) (setq flymake-extension-auto-show nil) +(add-ext-load-path "egg") (require 'egg) (provide 'topic-programming) topics.d/topic-programming.el 04a31d5fb07f1df4a5ef25c299f0035a34dd31fe Joost Diepenmaat joost@zeekat.nl http://github.com/joodie/emacs-d/commit/c0802732fb89d31aecd789787f8434622133faf2 c0802732fb89d31aecd789787f8434622133faf2 2009-10-31T07:43:02-07:00 2009-10-31T07:43:02-07:00 less automatic load-path detection. make stuff more reliable 7a660c910b8ec1a407e84f2f25c16cd41df5b9c5 Joost Diepenmaat joost@zeekat.nl