diff options
| author | Ben Woodcroft <donttrustben@gmail.com> | 2016-01-06 00:09:19 +1000 |
|---|---|---|
| committer | Ben Woodcroft <donttrustben@gmail.com> | 2016-01-14 19:44:36 +1000 |
| commit | 2028a2c9607b407d3686ca5791c604ddec45f8f8 (patch) | |
| tree | 2166a36611b9820791178f425170447e8078b033 /guix/import/cran.scm | |
| parent | 6b3a1ce8d7426dea57b29067e1190799d65f74ae (diff) | |
| download | gnu-guix-2028a2c9607b407d3686ca5791c604ddec45f8f8.tar gnu-guix-2028a2c9607b407d3686ca5791c604ddec45f8f8.tar.gz | |
import: cran: Move beautify-description to utils module.
* guix/import/cran.scm (beautify-description): Move from here...
* guix/import/utils.scm: ... to here.
Diffstat (limited to 'guix/import/cran.scm')
| -rw-r--r-- | guix/import/cran.scm | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/guix/import/cran.scm b/guix/import/cran.scm index fc2709020a..1c30da89c7 100644 --- a/guix/import/cran.scm +++ b/guix/import/cran.scm @@ -136,17 +136,6 @@ empty list when the FIELD cannot be found." (string-any char-set:whitespace item))) (map string-trim-both items)))))) -(define (beautify-description description) - "Improve the package DESCRIPTION by turning a beginning sentence fragment -into a proper sentence and by using two spaces between sentences." - (let ((cleaned (if (string-prefix? "A " description) - (string-append "This package provides a" - (substring description 1)) - description))) - ;; Use double spacing between sentences - (regexp-substitute/global #f "\\. \\b" - cleaned 'pre ". " 'post))) - (define (description->package meta) "Return the `package' s-expression for a CRAN package from the alist META, which was derived from the R package's DESCRIPTION file." |