From 7397a3545d548df54f1e67f0674dc28cf70eb92a Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Wed, 8 Feb 2017 17:57:33 -0500 Subject: [PATCH] Fix doom/packages-update --- core/autoload/packages.el | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/core/autoload/packages.el b/core/autoload/packages.el index 1f4ea191d..3609bc5f6 100644 --- a/core/autoload/packages.el +++ b/core/autoload/packages.el @@ -282,15 +282,16 @@ appropriate." ((not (y-or-n-p (format "%s packages will be updated:\n\n%s\n\nProceed?" (length packages) - (let* ((-packages (--map (symbol-name (car it)) packages)) - (-max-len (or (-max (-map 'length -packages)) 10))) + (let ((-max-len (or (-max (--map (length (symbol-name (car it))) packages)) 10))) (mapconcat - (lambda (pkg) (let ((desc (assq pkg packages))) - (format "+ %s %s\t-> %s" - (s-pad-right (+ -max-len 2) " " pkg) - (car (cdr desc)) - (car (cdr (cdr desc)))))) - (-sort 'string-lessp -packages) + (lambda (pkg) + (format "+ %s %s\t-> %s" + (s-pad-right (+ -max-len 2) " " (symbol-name (car pkg))) + (cadr pkg) + (cadr (cdr pkg)))) + (--sort (string-lessp (symbol-name (car it)) + (symbol-name (car other))) + packages) "\n"))))) (message "Aborted!"))