import cran: Move guix-name to top-level.

* guix/import/cran.scm (guix-name): Move to top-level.
master
Ricardo Wurmus 2016-07-06 12:42:38 +02:00 committed by Ricardo Wurmus
parent 2e5f32ce1b
commit bfa0c752bc
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 8 additions and 7 deletions

View File

@ -148,16 +148,17 @@ empty list when the FIELD cannot be found."
(string-any char-set:whitespace item)))
(map string-trim-both items))))))
(define (guix-name name)
"Return a Guix package name for a given R package name."
(string-append "r-" (string-map (match-lambda
(#\_ #\-)
(#\. #\-)
(chr (char-downcase chr)))
name)))
(define (description->package repository meta)
"Return the `package' s-expression for an R package published on REPOSITORY
from the alist META, which was derived from the R package's DESCRIPTION file."
(define (guix-name name)
(string-append "r-" (string-map (match-lambda
(#\_ #\-)
(#\. #\-)
(chr (char-downcase chr)))
name)))
(let* ((base-url (case repository
((cran) %cran-url)
((bioconductor) %bioconductor-url)))