Wrap load-path bootstrap into function: narf/reload

This commit is contained in:
Henrik Lissner 2016-02-22 12:30:47 -05:00
parent bfc47f61b7
commit a7ca45bca5

View file

@ -49,20 +49,22 @@
result))) result)))
;; Scan various folders to populate the load-paths ;; Scan various folders to populate the load-paths
(setq custom-theme-load-path (defun narf/reload ()
(eval-when-compile (interactive)
(append (--subdirs (concat narf-private-dir "themes/")) (setq custom-theme-load-path
custom-theme-load-path))) (eval-when-compile
(append (--subdirs (concat narf-private-dir "themes/"))
(setq load-path custom-theme-load-path)))
(eval-when-compile (setq load-path
(require 'cask) (eval-when-compile
(cask-initialize) (require 'cask)
(setq load-path (append (list narf-private-dir) (cask-initialize)
(--subdirs narf-core-dir t) (setq load-path (append (list narf-private-dir)
(--subdirs narf-modules-dir t) (--subdirs narf-core-dir t)
(--subdirs narf-packages-dir) (--subdirs narf-modules-dir t)
load-path)))) (--subdirs narf-packages-dir)
load-path)))))
(narf/reload)
(defun narf (packages) (defun narf (packages)
"Bootstrap NARF emacs and initialize PACKAGES" "Bootstrap NARF emacs and initialize PACKAGES"
@ -75,7 +77,7 @@
(load-theme narf-theme t) (load-theme narf-theme t)
(setq narf-current-theme narf-theme) (setq narf-current-theme narf-theme)
(mapc 'require packages))) (mapc 'require packages)))
;;; bootstrap.el ends here ;;; bootstrap.el ends here