|
|
|
@ -47,18 +47,18 @@ |
|
|
|
|
|
|
|
(defun prelude-packages-installed-p () |
|
|
|
(loop for p in prelude-packages |
|
|
|
when (package-installed-p p) do (return nil) |
|
|
|
when (not (package-installed-p p)) do (return nil) |
|
|
|
finally (return t))) |
|
|
|
|
|
|
|
(unless (prelude-packages-installed-p) |
|
|
|
;; check for new packages (package versions) |
|
|
|
(message "%s" "Emacs Prelude is now refreshing its package database...") |
|
|
|
(package-refresh-contents) |
|
|
|
(message "%s" " done.")) |
|
|
|
|
|
|
|
(dolist (p prelude-packages) |
|
|
|
(when (not (package-installed-p p)) |
|
|
|
(package-install p))) |
|
|
|
(message "%s" " done.") |
|
|
|
;; install the missing packages |
|
|
|
(dolist (p prelude-packages) |
|
|
|
(when (not (package-installed-p p)) |
|
|
|
(package-install p)))) |
|
|
|
|
|
|
|
(provide 'prelude-packages) |
|
|
|
|
|
|
|
|