gnu: Add envstore.

[jackhill/guix/guix.git] / gnu / packages / slang.scm

diff --git a/gnu/packages/slang.scm b/gnu/packages/slang.scm
index 8c35c8b..24ec71e 100644 (file)
--- a/gnu/packages/slang.scm
+++ b/gnu/packages/slang.scm
@@ -1,5 +1,7 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2015 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
+;;; Copyright © 2015 Eric Bavier <bavier@member.fsf.org>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -19,13 +21,17 @@
 (define-module (gnu packages slang)
   #:use-module (guix packages)
   #:use-module (guix download)
+  #:use-module (guix utils)
   #:use-module (guix build-system gnu)
   #:use-module ((guix licenses) #:prefix license:)
   #:use-module (gnu packages readline)
   #:use-module (gnu packages ncurses)
+  #:use-module (gnu packages popt)
+  #:use-module (gnu packages fribidi)
   #:use-module (gnu packages compression)
   #:use-module (gnu packages image)
-  #:use-module (gnu packages pcre))
+  #:use-module (gnu packages pcre)
+  #:use-module (gnu packages python))
 
 (define-public slang
   (package
@@ -49,7 +55,8 @@
                     (("-ltermcap") ""))))))
     (build-system gnu-build-system)
     (arguments
-     '(#:parallel-tests? #f))
+     '(#:parallel-tests? #f
+       #:parallel-build? #f)) ; there's at least one race
     (inputs
      `(("readline" ,readline)
        ("zlib" ,zlib)
@@ -60,11 +67,67 @@
     (synopsis "Library for interactive applications and extensibility")
     (description
      "S-Lang is a multi-platform programmer's library designed to allow a
-developer to create robust multi-platform software. It provides facilities
+developer to create robust multi-platform software.  It provides facilities
 required by interactive applications such as display/screen management,
-keyboard input, keymaps, and so on. The most exciting feature of the library
+keyboard input, keymaps, and so on.  The most exciting feature of the library
 is the slang interpreter that may be easily embedded into a program to make it
-extensible. While the emphasis has always been on the embedded nature of the
+extensible.  While the emphasis has always been on the embedded nature of the
 interpreter, it may also be used in a stand-alone fashion through the use of
 slsh, which is part of the S-Lang distribution.")
     (license license:gpl2+)))
+
+(define-public newt
+  (package
+    (name "newt")
+    (version "0.52.18")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "https://fedorahosted.org/releases/n/e/"
+                                  name "/" name "-" version ".tar.gz"))
+              (sha256
+               (base32
+                "07n9f2mqsjfj35wx5ldhvl9sqcjqpcl0g4fdd9mawmny9rihw6vp"))))
+    (build-system gnu-build-system)
+    (outputs '("out" "python"))
+    (inputs
+     `(("slang" ,slang)
+       ("popt" ,popt)
+       ("python" ,python)
+       ("fribidi" ,fribidi)))
+    (arguments
+     `(#:tests? #f    ; no test suite
+       #:configure-flags
+       ;; Set the correct RUNPATH in binaries.
+       (list (string-append "LDFLAGS=-Wl,-rpath=" %output "/lib"))
+       #:make-flags
+       ;; configure does not allow us to override this variable from the
+       ;; command-line.  Fortunately, the Makefile does, so provide it here.
+       (list (string-append "PYTHONVERS=python"
+                            ,(version-major+minor (package-version python))))
+       #:phases
+       (modify-phases %standard-phases
+         (add-after
+          'unpack 'patch-/usr/bin/install
+          (lambda _
+            (substitute* "po/Makefile"
+              (("/usr/bin/install") "install"))
+            #t))
+         (add-after
+          'install 'move-python
+          (lambda* (#:key outputs #:allow-other-keys)
+            (let ((out  (assoc-ref outputs "out"))
+                  (py   (assoc-ref outputs "python"))
+                  (ver ,(version-major+minor (package-version python))))
+              (mkdir-p (string-append py "/lib"))
+              (rename-file (string-append out "/lib/python" ver)
+                           (string-append py  "/lib/python" ver))
+              #t))))))
+    (home-page "https://fedorahosted.org/newt/")
+    (synopsis "Not Erik's Windowing Toolkit - text mode windowing with slang")
+    (description
+     "Newt is a windowing toolkit for text mode built from the slang library.
+It allows color text mode applications to easily use stackable windows, push
+buttons, check boxes, radio buttons, lists, entry fields, labels, and
+displayable text.  Scrollbars are supported, and forms may be nested to
+provide extra functionality.")
+    (license license:lgpl2.0)))