Browse Source

added a missing (not)

custom
Bozhidar Batsov 14 years ago
parent
commit
20953fcf02
  1. 8
      modules/prelude-packages.el

8
modules/prelude-packages.el

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

Loading…
Cancel
Save