Re: [PATCH] gnu: Add pyparsing.

[Eric Bavier]

Federico Beffa writes:

> Please find attached a pyparsing package for review.
[...]
> +            (with-directory-excursion "docs"
> +              (map (lambda (file) 
> +                     (copy-file file (string-append doc "/" file)))
> +                   (find-files "." ".*")))
> +            (with-directory-excursion "htmldoc"
> +              (map (lambda (file) 
> +                     (copy-file file (string-append html-doc "/" file)))
> +                   (find-files "." ".*")))
> +            (with-directory-excursion "examples"
> +              (map (lambda (file) 
> +                     (copy-file file (string-append examples "/" file)))
> +                   (find-files "." ".*")))))

Perhaps:

(for-each
  (lambda (dir tgt)
    (for-each (lambda (file)
                (copy-file file
                           (string-append tgt "/" (basename file))))
              (find-files dir ".*")))
  (list "docs" "htmldoc" "examples")
  (list doc html-doc exmples)
   
Not tested of course ;)

Also, try running the package through `guix lint`.

-- 
Eric Bavier

Please avoid sending me Word or PowerPoint attachments.
See http://www.gnu.org/philosophy/no-word-attachments.html