02/06: website: Show the file name of origin patches.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix-artwork.

commit 7c2eed928c6b0ec4a5f319c355437ff9d53a07cf
Author: Ludovic Courtès <address@hidden>
Date:   Thu Dec 7 10:26:48 2017 +0100

    website: Show the file name of origin patches.
    
    Fixes <https://bugs.gnu.org/29596>.
    Reported by Mark H Weaver <address@hidden>.
    
    * website/apps/packages/utils.scm (package-patches)[patch-name]: Honor
    'origin-file-name' when it's true.
---
 website/apps/packages/utils.scm | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/website/apps/packages/utils.scm b/website/apps/packages/utils.scm
index a5fe83c..8f1d5d4 100644
--- a/website/apps/packages/utils.scm
+++ b/website/apps/packages/utils.scm
@@ -188,9 +188,13 @@ vocabulary."
       ((? string? patch)
        (basename patch))
       ((? origin? patch)
-       (match (origin-uri patch)
-         ((? string? uri) (basename uri))
-         ((head . tail) (basename head))))))
+       (match (origin-file-name patch)
+         (#f
+          (match (origin-uri patch)
+            ((? string? uri) (basename uri))
+            ((head . tail) (basename head))))
+         (file
+          file)))))
 
   (define (snippet-link)
     (let* ((loc  (or (package-field-location package 'source)