From cc4d00efa61f644e870f03078cb9ad23e3513453 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 29 May 2014 12:48:24 +0100
Subject: [PATCH] raco pkg catalog-show: improve output format

Separate packages with a blank line, and fix formatting of
a module list.
---
 racket/collects/pkg/lib.rkt | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/racket/collects/pkg/lib.rkt b/racket/collects/pkg/lib.rkt
index f9a1587dd5..3537b944ea 100644
--- a/racket/collects/pkg/lib.rkt
+++ b/racket/collects/pkg/lib.rkt
@@ -2894,12 +2894,14 @@
     (define all-details (and all?
                              (get-all-pkg-details-from-catalogs)))
     (for ([name (in-list (if all?
-                             (hash-keys all-details)
-                             names))])
+                             (sort (hash-keys all-details) string<?)
+                             names))]
+          [position (in-naturals)])
       (define details (select-info-version
                        (if all?
                            (hash-ref all-details name)
                            (get-pkg-details-from-catalogs name))))
+      (unless (zero? position) (newline))
       (printf "Package name: ~a\n" name)
       (for ([key '(author source checksum tags description)])
         (define v (hash-ref details key #f))
@@ -2925,13 +2927,13 @@
                         (format " on platform ~v" plat)
                         "")))))
       (when modules?
-        (printf "Modules:")
+        (printf " Modules:")
         (for/fold ([col 72]) ([mod (in-list (hash-ref details 'modules null))])
           (define pretty-mod (pretty-module-path mod))
-          (define mod-str (~a " " pretty-mod))
+          (define mod-str (~a " " (~s pretty-mod)))
           (define new-col (if ((+ col (string-length mod-str)) . > . 72)
                               (begin
-                                (newline)
+                                (printf "\n ")
                                 0)
                               col))
           (display mod-str)