From 115b8290467d22a8f402694db2e7aad38e9e19da Mon Sep 17 00:00:00 2001
From: Pierre Neidhardt <mail@ambrevar.xyz>
Date: Tue, 22 Jan 2019 12:54:27 +0100
Subject: [PATCH] config/guix/manifest-to-manifest: Sort entries

---
 .config/guix/manifest-to-manifest.scm | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

diff --git a/.config/guix/manifest-to-manifest.scm b/.config/guix/manifest-to-manifest.scm
index 060960c4..7b466e09 100644
--- a/.config/guix/manifest-to-manifest.scm
+++ b/.config/guix/manifest-to-manifest.scm
@@ -6,12 +6,13 @@
   ((_ where)
    (pretty-print
     `(specifications->manifest
-      ',(map (lambda (entry)
-               (let ((out (manifest-entry-output entry)))
-                 (if (string= out "out")
-                     (manifest-entry-name entry)
-                     (format #f "~a:~a"
-                             (manifest-entry-name entry)
-                             (manifest-entry-output entry)))))
-             (manifest-entries (profile-manifest where))))))
+      ',(sort (map (lambda (entry)
+                     (let ((out (manifest-entry-output entry)))
+                       (if (string= out "out")
+                           (manifest-entry-name entry)
+                           (format #f "~a:~a"
+                                   (manifest-entry-name entry)
+                                   (manifest-entry-output entry)))))
+                   (manifest-entries (profile-manifest where)))
+              string<?))))
   (_ (error "Please provide the path to a Guix profile.")))