From mboxrd@z Thu Jan  1 00:00:00 1970
From: Leo Famulari <leo@famulari.name>
Subject: Re: SourceForge URLs changed
Date: Fri, 15 Jul 2016 23:00:09 -0400
Message-ID: <20160716030009.GA18350@jasmine>
References: <87zipmmpgd.fsf@gnu.org>
 <20160716025800.GA17853@jasmine>
Mime-Version: 1.0
Content-Type: multipart/mixed; boundary="3MwIy2ne0vdjdPXF"
Return-path: <guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([2001:4830:134:3::10]:50999)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <leo@famulari.name>) id 1bOFq9-0000qK-G3
	for guix-devel@gnu.org; Fri, 15 Jul 2016 23:00:30 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <leo@famulari.name>) id 1bOFq5-0007XK-9B
	for guix-devel@gnu.org; Fri, 15 Jul 2016 23:00:28 -0400
Content-Disposition: inline
In-Reply-To: <20160716025800.GA17853@jasmine>
List-Id: "Development of GNU Guix and the GNU System distribution."
	<guix-devel.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/guix-devel>,
	<mailto:guix-devel-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/guix-devel/>
List-Post: <mailto:guix-devel@gnu.org>
List-Help: <mailto:guix-devel-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/guix-devel>,
	<mailto:guix-devel-request@gnu.org?subject=subscribe>
Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org
Sender: "Guix-devel" <guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org>
To: Ludovic =?iso-8859-1?Q?Court=E8s?= <ludo@gnu.org>
Cc: guix-devel <guix-devel@gnu.org>


--3MwIy2ne0vdjdPXF
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline

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.

--3MwIy2ne0vdjdPXF
Content-Type: text/plain; charset=us-ascii
Content-Disposition: attachment; filename=paste_781793

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

--3MwIy2ne0vdjdPXF--