diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-10-12 15:33:07 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-10-12 15:33:07 +0200 |
| commit | 572bcdf0bcd483b168110cb7d25dd6ad28ab9172 (patch) | |
| tree | b46c8952016d800b49dafb72465e653955d2ac60 | |
| parent | 14e84b2d9706074a7533b2a4b9c552130e27456a (diff) | |
| download | guix-572bcdf0bcd483b168110cb7d25dd6ad28ab9172.tar guix-572bcdf0bcd483b168110cb7d25dd6ad28ab9172.tar.gz | |
list-packages: Handle 'origin' patches.
* build-aux/list-packages.scm (package->sxml)[patches]: Handle the case
where PATCH is an 'origin'.
| -rwxr-xr-x | build-aux/list-packages.scm | 25 |
1 files changed, 20 insertions, 5 deletions
diff --git a/build-aux/list-packages.scm b/build-aux/list-packages.scm index 96fe707233..7b046fe0c7 100755 --- a/build-aux/list-packages.scm +++ b/build-aux/list-packages.scm @@ -100,10 +100,25 @@ decreasing, is 1." (->sxml (package-license package))) (define (patches package) - (define (patch-url patch) - (string-append - "http://git.savannah.gnu.org/cgit/guix.git/tree/gnu/packages/patches/" - (basename patch))) + (define patch-url + (match-lambda + ((? string? patch) + (string-append + "http://git.savannah.gnu.org/cgit/guix.git/tree/gnu/packages/patches/" + (basename patch))) + ((? origin? patch) + (match (origin-uri patch) + ((? string? uri) uri) + ((head . tail) head))))) + + (define patch-name + (match-lambda + ((? string? patch) + (basename patch)) + ((? origin? patch) + (match (origin-uri patch) + ((? string? uri) (basename uri)) + ((head . tail) (basename head)))))) (define (snippet-link snippet) (let ((loc (or (package-field-location package 'source) @@ -134,7 +149,7 @@ decreasing, is 1." (cons `(a (@ (href ,(patch-url patch)) (title ,(string-append "Link to " - (basename patch)))) + (patch-name patch)))) ,(number->string number)) links)))))))))) |