ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 05:48:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu-maintenance: Use 'home-page' as an additional hint of "GNUness".

Browse source 
Reported by Rastus_Vernon on IRC.
Fixes 'gnu-package?' for GNUcash.

* guix/gnu-maintenance.scm (gnu-package?)[gnu-home-page?]: New procedure.  Use
  it to determine whether PACKAGE is GNU.
This commit is contained in:
Ludovic Courtès 2015-06-16 10:28:19 +02:00
parent acec3beb05
commit 55d1f529e1
1 changed files with 16 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
guix/gnu-maintenance.scm
View file

@ -192,15 +192,22 @@ (define (mirror-type url)
;; Definitely non-GNU.
'non-gnu)))))
(let ((url (and=> (package-source package) origin-uri))
(name (package-name package)))
(case (and (string? url) (mirror-type url))
((gnu) #t)
((non-gnu) #f)
(else
;; Last resort: resort to the network.
(and (member name (map gnu-package-name (official-gnu-packages)))
#t))))))))
(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")))))))
(or (gnu-home-page? package)
(let ((url (and=> (package-source package) origin-uri))
(name (package-name package)))
(case (and (string? url) (mirror-type url))
((gnu) #t)
((non-gnu) #f)
(else
(and (member name (map gnu-package-name (official-gnu-packages)))
#t)))))))))
;;;