rekahsoft
/
guix
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: newt: Build python bindings. 

* gnu/packages/slang.scm (newt)[outputs]: New field.
  [arguments]: Add #:make-flags argument.  Add 'move-python' phase.
This commit is contained in:
Eric Bavier 2015-11-01 09:48:35 -06:00
parent 718c5dd6e1
commit e5930e5a13
1 changed files with 22 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
gnu/packages/slang.scm
View File

@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2015 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2015 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2015 Eric Bavier <bavier@member.fsf.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -20,6 +21,7 @@
(define-module (gnu packages slang) (define-module (gnu packages slang)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix utils)
#:use-module (guix build-system gnu) #:use-module (guix build-system gnu)
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses) #:prefix license:)
#:use-module (gnu packages readline) #:use-module (gnu packages readline)
@ -28,7 +30,8 @@
#:use-module (gnu packages fribidi) #:use-module (gnu packages fribidi)
#:use-module (gnu packages compression) #:use-module (gnu packages compression)
#:use-module (gnu packages image) #:use-module (gnu packages image)
#:use-module (gnu packages pcre)) #:use-module (gnu packages pcre)
#:use-module (gnu packages python))
(define-public slang (define-public slang
(package (package
@ -85,15 +88,22 @@ slsh, which is part of the S-Lang distribution.")
(base32 (base32
"07n9f2mqsjfj35wx5ldhvl9sqcjqpcl0g4fdd9mawmny9rihw6vp")))) "07n9f2mqsjfj35wx5ldhvl9sqcjqpcl0g4fdd9mawmny9rihw6vp"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(outputs '("out" "python"))
(inputs (inputs
`(("slang" ,slang) `(("slang" ,slang)
("popt" ,popt) ("popt" ,popt)
("python" ,python)
("fribidi" ,fribidi))) ("fribidi" ,fribidi)))
(arguments (arguments
`(#:tests? #f ; no test suite `(#:tests? #f ; no test suite
#:configure-flags #:configure-flags
;; Set the correct RUNPATH in binaries. ;; Set the correct RUNPATH in binaries.
(list (string-append "LDFLAGS=-Wl,-rpath=" %output "/lib")) (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 #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after (add-after
@ -101,7 +111,17 @@ slsh, which is part of the S-Lang distribution.")
(lambda _ (lambda _
(substitute* "po/Makefile" (substitute* "po/Makefile"
(("/usr/bin/install") "install")) (("/usr/bin/install") "install"))
#t))))) #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/") (home-page "https://fedorahosted.org/newt/")
(synopsis "Not Erik's Windowing Toolkit - text mode windowing with slang") (synopsis "Not Erik's Windowing Toolkit - text mode windowing with slang")
(description (description