me/guix
Archived
1
0
Fork 0
Code Activity

gnu-maintenance: Properly handle TeXmacs.

Browse source 
* guix/gnu-maintenance.scm (ftp-server/directory): Add comment.
(release-file?): Use 'string-ci=?' instead of 'equal?' when comparing
project names.
This commit is contained in:
Ludovic Courtès 2015-12-07 22:18:31 +01:00
parent f00dccf441
commit fa04a04f18
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
guix/gnu-maintenance.scm
View file

@ -222,6 +222,9 @@ stored."
("source-highlight" "ftp.gnu.org" "/gnu/src-highlite") ("source-highlight" "ftp.gnu.org" "/gnu/src-highlite")
("glib" "ftp.gnome.org" "/pub/gnome/sources/glib") ("glib" "ftp.gnome.org" "/pub/gnome/sources/glib")
("gnutls" "ftp.gnutls.org" "/gcrypt/gnutls") ("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"))) ("TeXmacs" "ftp.texmacs.org" "/TeXmacs/targz")))
(match (assoc project quirks) (match (assoc project quirks)
@ -252,7 +255,10 @@ true."
(and=> (regexp-exec %tarball-rx file) (and=> (regexp-exec %tarball-rx file)
(lambda (match) (lambda (match)
;; Filter out unrelated files, like `guile-www-1.1.1'. ;; 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)) (not (regexp-exec %alpha-tarball-rx file))
(let ((s (sans-extension file))) (let ((s (sans-extension file)))
(regexp-exec %package-name-rx s)))) (regexp-exec %package-name-rx s))))