[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
04/09: gnu-maintenance: 'gnu-package?' ignores invalid URLs.
From: |
Ludovic Courtès |
Subject: |
04/09: gnu-maintenance: 'gnu-package?' ignores invalid URLs. |
Date: |
Fri, 27 Jan 2017 23:38:49 +0000 (UTC) |
civodul pushed a commit to branch master
in repository guix.
commit 6715e1ff2e09af3208f8f2a108ca100798ca1058
Author: Ludovic Courtès <address@hidden>
Date: Fri Jan 27 23:40:04 2017 +0100
gnu-maintenance: 'gnu-package?' ignores invalid URLs.
* guix/gnu-maintenance.scm (gnu-package?)[gnu-home-page?]: Add '>>'
threading macro and use it.
---
guix/gnu-maintenance.scm | 16 +++++++++++-----
1 file changed, 11 insertions(+), 5 deletions(-)
diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm
index 8a37ce5..9c94992 100644
--- a/guix/gnu-maintenance.scm
+++ b/guix/gnu-maintenance.scm
@@ -187,11 +187,17 @@ network to check in GNU's database."
'non-gnu)))))
(define (gnu-home-page? package)
- (and=> (package-home-page package)
- (lambda (url)
- (and=> (uri-host (string->uri url))
- (lambda (host)
- (member host '("www.gnu.org" "gnu.org")))))))
+ (letrec-syntax ((>> (syntax-rules ()
+ ((_ value proc)
+ (and=> value proc))
+ ((_ value proc rest ...)
+ (and=> value
+ (lambda (next)
+ (>> (proc next) rest ...)))))))
+ (>> package package-home-page
+ string->uri uri-host
+ (lambda (host)
+ (member host '("www.gnu.org" "gnu.org"))))))
(or (gnu-home-page? package)
(let ((url (and=> (package-source package) origin-uri))
- branch master updated (d61b248 -> b45dbfc), Ludovic Courtès, 2017/01/27
- 03/09: gnu: emacs-emms: Add 'upstream-name' property., Ludovic Courtès, 2017/01/27
- 08/09: doc: Add missing Upstart command for the binary installation., Ludovic Courtès, 2017/01/27
- 07/09: doc: Add 'cups-configuration' example with 'hplip'., Ludovic Courtès, 2017/01/27
- 09/09: tests: Adjust pypi test to recent importer change., Ludovic Courtès, 2017/01/27
- 05/09: import: github: Better tolerate unexpected file extensions., Ludovic Courtès, 2017/01/27
- 01/09: gnu-maintenance: Honor 'upstream-name' property in GNU updater., Ludovic Courtès, 2017/01/27
- 02/09: gnu-maintenance: GNU updater handles gnu.org-hosted Emacs packages., Ludovic Courtès, 2017/01/27
- 04/09: gnu-maintenance: 'gnu-package?' ignores invalid URLs.,
Ludovic Courtès <=
- 06/09: packages: Add 'package-upstream-name' and use it., Ludovic Courtès, 2017/01/27