02/02: gnu: parallel: Remove some pregenerated files.

[guix-commits]

efraim pushed a commit to branch master
in repository guix.

commit 58aaef4460b55de9e15301e1a45cc7b45fbf1383
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Mon Jul 11 10:00:16 2022 +0300

    gnu: parallel: Remove some pregenerated files.
    
    * gnu/packages/parallel.scm (parallel)[source]: Add snippet to remove
    pregenerated manpages and some documentation.
    [native-inputs]: Add perl.
---
 gnu/packages/parallel.scm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/parallel.scm b/gnu/packages/parallel.scm
index 69b5c3eb0c..f4ba6c3c9b 100644
--- a/gnu/packages/parallel.scm
+++ b/gnu/packages/parallel.scm
@@ -69,7 +69,13 @@
       (uri (string-append "mirror://gnu/parallel/parallel-"
                           version ".tar.bz2"))
       (sha256
-       (base32 "186mbzz5dn2ka8fqk9r8v8fpmh17clh2c6xln0czs81vynl1bgd4"))))
+       (base32 "186mbzz5dn2ka8fqk9r8v8fpmh17clh2c6xln0czs81vynl1bgd4"))
+      (snippet
+       '(begin
+          (use-modules (guix build utils))
+          ;; Delete pre-generated manpages and documents.
+          ;; TODO: Add pod2pdf for pdfs, generate rst files.
+          (for-each delete-file (find-files "src" "\\.(1|7|html)$"))))))
     (build-system gnu-build-system)
     (arguments
      `(#:phases
@@ -103,6 +109,8 @@
                       (assoc-ref outputs "out") "/bin/parallel")
                      "echo"
                      ":::" "1" "2" "3"))))))
+    (native-inputs
+     (list perl))
     (inputs
      (list perl procps))
     (home-page "https://www.gnu.org/software/parallel/";)