(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 "address@hidden:~/~a~%"
                    (package-name pkg)
                    (package-version pkg)
                    (origin-uri (package-source pkg))))
          sourceforge-packages))

(display-sourceforge-packages)