Update cask load-path init

This commit is contained in:
Henrik Lissner 2016-03-04 18:28:12 -05:00
parent 72f8111ecf
commit f8a96e353b

View file

@ -30,15 +30,15 @@
gc-cons-threshold 4388608 gc-cons-threshold 4388608
gc-cons-percentage 0.3) gc-cons-percentage 0.3)
(eval-when-compile (eval-and-compile
;; Make sure that cask is in the right place ;; Make sure that cask is in the right place
(unless (eq 0 (call-process "which" nil nil nil "cask")) (unless (eq 0 (call-process "which" nil nil nil "cask"))
(error "Cask could not be found")) (error "Cask could not be found"))
(let ((cask-dir (cond (IS-MAC "/usr/local/Cellar/cask/HEAD") (let ((cask-dir (cond (IS-MAC "/usr/local/share/emacs/site-lisp/cask")
(t "~/.cask")))) (t "~/.cask"))))
(unless (file-exists-p cask-dir) (unless (file-exists-p cask-dir)
(error "Cask folder not found")) (error "Cask folder not found"))
(add-to-list 'load-path cask-dir)) (push cask-dir load-path))
;; Helper for traversing subdirectories recursively ;; Helper for traversing subdirectories recursively
(defun --subdirs (path &optional include-self) (defun --subdirs (path &optional include-self)