Fix load-path in zeroein.el

This commit is contained in:
Takafumi Arakaki 2012-09-27 23:59:12 +02:00
parent 397bbb24fc
commit 8823835f5a

14
lisp/zeroein.el Normal file → Executable file
View file

@ -27,21 +27,27 @@
;;; load-path configurations
(defvar zeroein:root-dir
(defvar zeroein:lisp-dir
(or (if load-file-name (file-name-directory load-file-name))
default-directory))
(defvar zeroein:root-dir
(file-name-as-directory
(expand-file-name ".." (file-name-as-directory zeroein:lisp-dir))))
(defun zeroein:path (p &rest ps)
(if ps
(apply #'zeroein:path
(concat (file-name-as-directory p) (car ps)) (cdr ps))
(concat zeroein:root-dir p)))
(mapc (lambda (path) (add-to-list 'load-path (zeroein:path path)))
'("ein/lisp" "markdown-mode" "websocket" "python" "auto-complete"
(add-to-list 'load-path (zeroein:path "lisp"))
(mapc (lambda (path) (add-to-list 'load-path (zeroein:path "lib" path)))
'("markdown-mode" "websocket" "python" "auto-complete"
"popup" "fuzzy" "pos-tip" "smartrep"))
(load (zeroein:path "nxhtml" "autostart.el"))
(load (zeroein:path "lib" "nxhtml" "autostart.el"))
;;; Configurations