[PATCH 4/4 v2] gnu: Add bpython.

[Hartmut Goebel <h.goebel@crazy-compilers.com>]

* gnu/packages/python.scm (bpython, bpython2): New variables.
---
 gnu/packages/python.scm | 72 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 72 insertions(+)

diff --git a/gnu/packages/python.scm b/gnu/packages/python.scm
index 04f7a66..56ed7f8 100644
--- a/gnu/packages/python.scm
+++ b/gnu/packages/python.scm
@@ -12392,3 +12392,75 @@ fullscreen terminal rendering, and keyboard input event reporting.")
 
 (define-public python2-curtsies-0.1
   (package-with-python2 python-curtsies-0.1))
+
+(define-public bpython
+  (package
+    (name "bpython")
+    (version "0.16")
+    (source
+      (origin
+        (method url-fetch)
+        (uri (pypi-uri "bpython" version))
+        (sha256
+          (base32
+           "0pv5dy84idh0l8kxy01ipkpxrf9kcfb7h5q16gqxg2mx0bvdvwzs"))
+        (file-name (string-append name "-" version ".tar.gz"))))
+    (build-system python-build-system)
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         (add-after 'install 'add-aliases
+           ;; for symetry to bpython2, add symlinks bypthon3, bpdb3, etc.
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let ((out (assoc-ref outputs "out")))
+               (for-each
+                (lambda (old new)
+                  (symlink (string-append out "/bin/" old)
+                           (string-append out "/bin/" new)))
+                '("bpython" "bpython-curses" "bpython-urwid" "bpdb")
+                '("bpython3" "bpython3-curses" "bpython3-urwid" "bpdb3"))))))))
+    (propagated-inputs
+     `(("python-pygments" ,python-pygments)
+       ("python-requests", python-requests)
+       ("python-babel" ,python-babel) ;; optional, for internationalization
+       ("python-curtsies" ,python-curtsies-0.1) ;; >= 0.1.18,< 0.2
+       ("python-greenlet" ,python-greenlet)
+       ("python-urwid" ,python-urwid) ;; for bpython-urwid only
+       ("python-six" ,python-six)))
+    (native-inputs
+     `(("python-sphinx" ,python-sphinx)
+       ("python-mock" ,python-mock)))
+    (home-page "https://bpython-interpreter.org/")
+    (synopsis "Fancy interface to the Python interpreter")
+    (description "Bpython is a fancy interface to the Python
+interpreter. bpython's main features are
+
+@enumerate
+@item in-line syntax highlighting,
+@item readline-like autocomplete with suggestions displayed as you type,
+@item expected parameter list for any Python function,
+@item \"rewind\" function to pop the last line of code from memory and
+      re-evaluate,
+@item send the code you've entered off to a pastebin,
+@item save the code you've entered to a file, and
+@item auto-indentation.
+@end enumerate")
+    (license license:expat)))
+
+(define-public bpython2
+  (let ((base (package-with-python2
+               (strip-python2-variant bpython))))
+    (package (inherit base)
+      (name "bpython2")
+      (arguments
+       `(#:phases
+         (modify-phases %standard-phases
+           (add-before 'build 'rename-scripts
+             ;; rename the scripts to bypthon2, bpdb2, etc.
+             (lambda _
+               (substitute* "setup.py"
+                 (("^(\\s+'bpdb)(\\s+=.*',?)\\s*?$" _ name rest)
+                  (string-append name "2" rest "\n"))
+                 (("^(\\s+'bpython)(-\\S+)?(\\s+=.*',?)\\s*?$" _ name sub rest)
+                  (string-append name "2" (or sub "") rest "\n")))
+               #t))))))))
-- 
2.7.4