[bug#27703] [PATCH 4/4] gnu: Add python-internetarchive.

[Oleg Pykhalov <go.wigust@gmail.com>]

Is it a good idea to leave python-pytest as dependency in
python2-internetarchive (inside ,@(package-propagated-inputs
internetarchive))?  If not, what is good way to avoid this?

* gnu/packages/python.scm (python-internetarchive): New variable.
---
 gnu/packages/web.scm | 42 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)

diff --git a/gnu/packages/web.scm b/gnu/packages/web.scm
index 802990354..162a89455 100644
--- a/gnu/packages/web.scm
+++ b/gnu/packages/web.scm
@@ -4695,3 +4695,45 @@ arrays.  It creates a JSON string on stdout from words provided as
 command-line arguments or read from stdin.")
     (license (list l:gpl2+
                    l:expat)))) ; json.c, json.h
+
+(define-public python-internetarchive
+  (package
+    (name "python-internetarchive")
+    (version "1.6.0")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append
+	     "https://github.com/jjjake/internetarchive/archive/v"
+	     version ".tar.gz"))
+       (file-name (string-append name "-" version ".tar.gz"))
+       (sha256
+        (base32
+         "00v1489rv1ydcihwbdl7sqpcpmm98b9kqqlfggr32k0ndmv7ivas"))))
+    (build-system python-build-system)
+    (propagated-inputs
+     `(("python-requests" ,python-requests)
+       ("python-jsonpatch" ,python-jsonpatch-0.4)
+       ("python-docopt" ,python-docopt)
+       ("python-clint" ,python-clint)
+       ("python-six" ,python-six)
+       ("python-schema" ,python-schema-0.5)
+       ("python-backports-csv" ,python-backports-csv)))
+    (native-inputs
+     `(("python-pytest" ,python-pytest)
+       ("python-responses" ,python-responses)))
+    (home-page "https://github.com/jjjake/internetarchive")
+    (synopsis "Command-line interface to archive.org")
+    (description "@code{ia} is a command-line tool for using
+@url{archive.org} from the command-line.  It also emplements the
+internetarchive python module for programatic access to archive.org.")
+    (license l:agpl3+)))
+
+(define-public python2-internetarchive
+  (let ((internetarchive (package-with-python2 (strip-python2-variant python-internetarchive))))
+    (package (inherit internetarchive)
+      (propagated-inputs
+       `(("python2-pytest"
+          ,python2-pytest)
+          ,@(package-propagated-inputs internetarchive))))))
+
-- 
2.13.2