[PATCH] ui: 'package->recutils' serializes the source field.

[David Craven]

* guix/ui.scm (package->recutils): Format origin.
---
 guix/ui.scm | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/guix/ui.scm b/guix/ui.scm
index 4d1b65c..e232548 100644
--- a/guix/ui.scm
+++ b/guix/ui.scm
@@ -26,6 +26,7 @@
 (define-module (guix ui)
   #:use-module (guix utils)
   #:use-module (guix store)
+  #:use-module (guix base32)
   #:use-module (guix config)
   #:use-module (guix packages)
   #:use-module (guix profiles)
@@ -33,6 +34,7 @@
   #:use-module (guix combinators)
   #:use-module (guix build-system)
   #:use-module (guix serialization)
+  #:use-module (guix git-download)
   #:use-module ((guix build utils) #:select (mkdir-p))
   #:use-module ((guix licenses) #:select (license? license-name))
   #:use-module ((guix build syscalls) #:select (terminal-columns))
@@ -878,6 +880,22 @@ WIDTH columns."
   ;; Note: Don't i18n field names so that people can post-process it.
   (format port "name: ~a~%" (package-name p))
   (format port "version: ~a~%" (package-version p))
+
+  (let ((uri (origin-uri (package-source p))))
+    (cond
+      ((git-reference? uri)
+        (begin
+          (format port "source-git-url: ~a~%"
+                       (git-reference-url uri))
+          (format port "source-git-commit: ~a~%"
+                       (git-reference-commit uri))
+          (format port "source-git-recursive: ~a~%"
+                       (git-reference-recursive? uri))))
+      (#t
+        (format port "source-uri: ~a~%" uri))))
+
+  (format port "source-hash: ~a~%" (bytevector->base32-string
+                                      (origin-sha256 (package-source p))))
   (format port "outputs: ~a~%" (string-join (package-outputs p)))
   (format port "systems: ~a~%"
           (string-join (package-transitive-supported-systems p)))
-- 
2.9.0