emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix doom/packages-update

Browse source
This commit is contained in:
Henrik Lissner 2017-02-08 17:57:33 -05:00
parent 3c96d060b7
commit 7397a3545d
1 changed files with 9 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

17
core/autoload/packages.el
View file

@ -282,15 +282,16 @@ appropriate."
((not (y-or-n-p ((not (y-or-n-p
(format "%s packages will be updated:\n\n%s\n\nProceed?" (format "%s packages will be updated:\n\n%s\n\nProceed?"
(length packages) (length packages)
(let* ((-packages (--map (symbol-name (car it)) packages)) (let ((-max-len (or (-max (--map (length (symbol-name (car it))) packages)) 10)))
(-max-len (or (-max (-map 'length -packages)) 10)))
(mapconcat (mapconcat
(lambda (pkg) (let ((desc (assq pkg packages))) (lambda (pkg)
(format "+ %s %s\t-> %s" (format "+ %s %s\t-> %s"
(s-pad-right (+ -max-len 2) " " pkg) (s-pad-right (+ -max-len 2) " " (symbol-name (car pkg)))
(car (cdr desc)) (cadr pkg)
(car (cdr (cdr desc)))))) (cadr (cdr pkg))))
(-sort 'string-lessp -packages) (--sort (string-lessp (symbol-name (car it))
(symbol-name (car other)))
packages)
"\n"))))) "\n")))))
(message "Aborted!")) (message "Aborted!"))