From 58df7a320abbe1419e709113d809de51a2bf96ca Mon Sep 17 00:00:00 2001
From: Arne Babenhauserheide <bab@draketo.de>
Date: Tue, 22 Mar 2016 20:56:06 +0100
Subject: [PATCH] display destinations in show

---
 scripts/show.scm | 21 ++++++++++++++++++++-
 1 file changed, 20 insertions(+), 1 deletion(-)

diff --git a/scripts/show.scm b/scripts/show.scm
index b1c8320..cef26ba 100644
--- a/scripts/show.scm
+++ b/scripts/show.scm
@@ -33,6 +33,10 @@
   #:use-module (guildhall private utils)
   #:use-module (guildhall database)
   #:use-module (guildhall package)
+  #:use-module (guildhall destination fhs)
+  #:use-module (guildhall destination)
+  #:use-module (guildhall spells pathname)
+  #:use-module (guildhall inventory)
   #:use-module (guildhall ui formatters))
 
 (define %summary "Show package information.")
@@ -72,6 +76,13 @@
                        (database-items db name)))))))
     => (reverse result)))
 
+(define (directory-string db category)
+  (directory-namestring
+   (destination-pathname
+    ((@@ (guildhall database) database-destination) db)
+    (make-package 'PKG '((0)))
+    category "module.scm")))
+
 (define %mod (current-module))
 (define (main . args)
   (define bundles '())
@@ -85,5 +96,13 @@
       (database-add-bundles! db bundles)
       (fmt #t (fmt-join dsp-db-item
                         (find-db-items db packages)
-                        "\n"))))
+                        "\n"))
+      (fmt #t (cat "\nDestinations:\n"
+                   (fmt-join
+                    (lambda (category)
+                      (cat " - " (symbol->string category) ": /"
+                           (directory-string db category)))
+                    '(libraries executables documentation)
+                    "\n")
+                   "\n"))))
   (exit 0))