On Fri, Jul 15, 2016 at 10:58:00PM -0400, Leo Famulari wrote:
> Alex Kost helpfully provided a Guile script to return all packages that
> download from SourceForge (attached).
As always, I forgot to attach it.
(use-modules
(ice-9 regex)
(ice-9 format)
(srfi srfi-2)
(gnu packages)
(guix packages))
;; (define sourceforge-uri-rx (make-regexp "mirror://sourceforge"))
(define sourceforge-uri-rx (make-regexp "sourceforge"))
(define (sourceforge-package? package)
(and-let* ((source (package-source package))
(uri (origin-uri source)))
(and (string? uri)
(regexp-exec sourceforge-uri-rx uri))))
(define sourceforge-packages
(fold-packages (lambda (pkg res)
(if (sourceforge-package? pkg)
(cons pkg res)
res))
'()))
(define (display-sourceforge-packages)
(for-each (lambda (pkg)
(format #t "~a@~a:~/~a~%"
(package-name pkg)
(package-version pkg)
(origin-uri (package-source pkg))))
sourceforge-packages))
(display-sourceforge-packages)
