load-path 자동 추가 설정

package를 추가할 때마다 매번 add-path를 수행하는 것은 귀찮은 일이다.

다음 script를 사용하면 .emacs.d/ 아래에 명시한 directory에 대해 

recursive하게 찾아 path를 추가해준다.

;;

;; add load-path automatically

;;

(defun add-to-load-path (&rest paths)

  (let (path)

    (dolist (path paths paths)

      (let ((default-directory

     (expand-file-name (concat "~/.emacs.d/" path))))

   (add-to-list 'load-path default-directory)

   (if (fboundp 'normal-top-level-add-subdirs-to-load-path)

(normal-top-level-add-subdirs-to-load-path))))))

(add-to-load-path "elpa" "public_repos")   ;; elpa와 public_respos가 .emacs.d 아래에 존재한다고 가정