Fixed upgrade bug and cleared whitespace.

This commit is contained in:
larstvei 2013-12-24 03:02:44 +01:00
parent f8a5c05fc3
commit 78337bae43
2 changed files with 49 additions and 45 deletions

View File

@ -30,7 +30,9 @@ PACKAGE is installed and the current version is deleted."
(unless (newest-package-installed-p package) (unless (newest-package-installed-p package)
(let ((pkg-desc (assq package package-alist))) (let ((pkg-desc (assq package package-alist)))
(when pkg-desc (when pkg-desc
(package-delete package (package-desc-vers (cdr pkg-desc)))) (package-delete (symbol-name package)
(package-version-join
(package-desc-vers (cdr pkg-desc)))))
(package-install package)))) (package-install package))))
(let ((packages (let ((packages

View File

@ -77,7 +77,9 @@
(unless (newest-package-installed-p package) (unless (newest-package-installed-p package)
(let ((pkg-desc (assq package package-alist))) (let ((pkg-desc (assq package package-alist)))
(when pkg-desc (when pkg-desc
(package-delete package (package-desc-vers (cdr pkg-desc)))) (package-delete (symbol-name package)
(package-version-join
(package-desc-vers (cdr pkg-desc)))))
(package-install package)))) (package-install package))))
#+END_SRC #+END_SRC
@ -86,35 +88,35 @@
configurations are also dependent on them). configurations are also dependent on them).
#+BEGIN_SRC emacs-lisp :tangle yes #+BEGIN_SRC emacs-lisp :tangle yes
(let ((packages (let ((packages
'(ac-geiser ; Auto-complete backend for geiser '(ac-geiser ; Auto-complete backend for geiser
ac-slime ; An auto-complete source using slime completions ac-slime ; An auto-complete source using slime completions
ace-jump-mode ; quick cursor location minor mode ace-jump-mode ; quick cursor location minor mode
auto-compile ; automatically compile Emacs Lisp libraries auto-compile ; automatically compile Emacs Lisp libraries
auto-complete ; auto completion auto-complete ; auto completion
elscreen ; window session manager elscreen ; window session manager
expand-region ; Increase selected region by semantic units expand-region ; Increase selected region by semantic units
flx-ido ; flx integration for ido flx-ido ; flx integration for ido
ido-vertical-mode ; Makes ido-mode display vertically. ido-vertical-mode ; Makes ido-mode display vertically.
geiser ; GNU Emacs and Scheme talk to each other geiser ; GNU Emacs and Scheme talk to each other
haskell-mode ; A Haskell editing mode haskell-mode ; A Haskell editing mode
jedi ; Python auto-completion for Emacs jedi ; Python auto-completion for Emacs
magit ; control Git from Emacs magit ; control Git from Emacs
markdown-mode ; Emacs Major mode for Markdown-formatted files. markdown-mode ; Emacs Major mode for Markdown-formatted files.
monokai-theme ; A fruity color theme for Emacs. monokai-theme ; A fruity color theme for Emacs.
move-text ; Move current line or region with M-up or M-down move-text ; Move current line or region with M-up or M-down
multiple-cursors ; Multiple cursors for Emacs. multiple-cursors ; Multiple cursors for Emacs.
org ; Outline-based notes management and organizer org ; Outline-based notes management and organizer
paredit ; minor mode for editing parentheses paredit ; minor mode for editing parentheses
pretty-lambdada ; the word `lambda' as the Greek letter. pretty-lambdada ; the word `lambda' as the Greek letter.
;; slime ; Superior Lisp Interaction Mode for Emacs ;; slime ; Superior Lisp Interaction Mode for Emacs
smex ; M-x interface with Ido-style fuzzy matching. smex ; M-x interface with Ido-style fuzzy matching.
))) )))
;; 'remove-if' is a part of the cl-library, so we require this feature. ;; 'remove-if' is a part of the cl-library, so we require this feature.
(require 'cl) (require 'cl)
(package-refresh-contents) (package-refresh-contents)
;; Filter out installed packages and install the remaining. ;; Filter out installed packages and install the remaining.
(mapc 'upgrade-or-install-package packages)) (mapc 'upgrade-or-install-package packages))
#+END_SRC #+END_SRC
** Require ** Require