jt/emacs-prelude
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fixes #54 #47 - don't do a package refresh on every startup, only when

Browse source 
there are required packages that are not installed
This commit is contained in:
Bozhidar Batsov 2012-01-26 14:14:38 +02:00
parent 2bd13331bc
commit 48a25218ec
1 changed files with 12 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
modules/prelude-packages.el
View file

@ -38,18 +38,24 @@
'("marmalade" . "http://marmalade-repo.org/packages/") t) '("marmalade" . "http://marmalade-repo.org/packages/") t)
(package-initialize) (package-initialize)
;; check for new packages (package versions)
(message "%s" "Emacs Prelude is now refreshing its package database...")
(package-refresh-contents)
(message "%s" " done.")
(defvar prelude-packages (defvar prelude-packages
'(auctex clojure-mode coffee-mode deft gist groovy-mode haml-mode '(auctex clojure-mode coffee-mode deft full-ack gist groovy-mode haml-mode
haskell-mode inf-ruby markdown-mode paredit projectile haskell-mode inf-ruby markdown-mode paredit projectile
python sass-mode rainbow-mode scss-mode solarized-theme python sass-mode rainbow-mode scss-mode solarized-theme
yaml-mode yari zenburn-theme) yaml-mode yari zenburn-theme)
"A list of packages to ensure are installed at launch.") "A list of packages to ensure are installed at launch.")
(defun prelude-packages-installled-p ()
(loop for p in prelude-packages
when (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) (dolist (p prelude-packages)
(when (not (package-installed-p p)) (when (not (package-installed-p p))
(package-install p))) (package-install p)))