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