04/09: gnu-maintenance: Properly handle TeXmacs.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit fa04a04f18bbab671459ea789fb61da6cd1d74fb
Author: Ludovic Courtès <address@hidden>
Date:   Mon Dec 7 22:18:31 2015 +0100

    gnu-maintenance: Properly handle TeXmacs.
    
    * guix/gnu-maintenance.scm (ftp-server/directory): Add comment.
    (release-file?): Use 'string-ci=?' instead of 'equal?' when comparing
    project names.
---
 guix/gnu-maintenance.scm |    8 +++++++-
 1 files changed, 7 insertions(+), 1 deletions(-)

diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm
index 54bc6f5..aa3202f 100644
--- a/guix/gnu-maintenance.scm
+++ b/guix/gnu-maintenance.scm
@@ -222,6 +222,9 @@ stored."
       ("source-highlight" "ftp.gnu.org" "/gnu/src-highlite")
       ("glib"         "ftp.gnome.org" "/pub/gnome/sources/glib")
       ("gnutls"       "ftp.gnutls.org" "/gcrypt/gnutls")
+
+      ;; FIXME: ftp.texmacs.org is currently outdated; texmacs.org refers to
+      ;; its own http URL instead.
       ("TeXmacs"      "ftp.texmacs.org" "/TeXmacs/targz")))
 
   (match (assoc project quirks)
@@ -252,7 +255,10 @@ true."
        (and=> (regexp-exec %tarball-rx file)
               (lambda (match)
                 ;; Filter out unrelated files, like `guile-www-1.1.1'.
-                (equal? project (match:substring match 1))))
+                ;; Case-insensitive for things like "TeXmacs" vs. "texmacs".
+                (and=> (match:substring match 1)
+                       (lambda (name)
+                         (string-ci=? name project)))))
        (not (regexp-exec %alpha-tarball-rx file))
        (let ((s (sans-extension file)))
          (regexp-exec %package-name-rx s))))