Re: SourceForge URLs changed

[Leo Famulari <leo@famulari.name>]

[-- Attachment #1: Type: text/plain, Size: 211 bytes --]

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.

[-- Attachment #2: paste_781793 --]
[-- Type: text/plain, Size: 928 bytes --]

(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)