futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: gpick: Use scons-build-system.

Browse Source 
* gnu/packages/image.scm (gpick): Switch to scons-build-system.
This commit is contained in:
Arun Isaac 2017-08-31 17:07:21 +05:30
parent 2b1a5ed854
commit 2235abb2a2
No known key found for this signature in database
GPG Key ID: 2E25EE8B61802BB3
1 changed files with 7 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
gnu/packages/image.scm
View File

@ -12,7 +12,7 @@
;;; Copyright © 2016, 2017 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016, 2017 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016, 2017 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2016, 2017 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2016 Eric Bavier <bavier@member.fsf.org> ;;; Copyright © 2016 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2016 Arun Isaac <arunisaac@systemreboot.net> ;;; Copyright © 2016, 2017 Arun Isaac <arunisaac@systemreboot.net>
;;; Copyright © 2016, 2017 Kei Kebreau <kkebreau@posteo.net> ;;; Copyright © 2016, 2017 Kei Kebreau <kkebreau@posteo.net>
;;; Copyright © 2017 ng0 <ng0@infotropique.org> ;;; Copyright © 2017 ng0 <ng0@infotropique.org>
;;; Copyright © 2017 Hartmut Goebel <h.goebel@crazy-compilers.com> ;;; Copyright © 2017 Hartmut Goebel <h.goebel@crazy-compilers.com>
@ -67,6 +67,7 @@
#:use-module (guix build-system cmake) #:use-module (guix build-system cmake)
#:use-module (guix build-system python) #:use-module (guix build-system python)
#:use-module (guix build-system r) #:use-module (guix build-system r)
#:use-module (guix build-system scons)
#:use-module (srfi srfi-1)) #:use-module (srfi srfi-1))
(define-public libpng (define-public libpng
@ -1205,33 +1206,26 @@ medical image data, e.g. magnetic resonance image (MRI) and functional MRI
(sha256 (sha256
(base32 (base32
"0mxvxk15xhk2i5vfavjhnkk4j3bnii0gpf8di14rlbpq070hd5rs")))) "0mxvxk15xhk2i5vfavjhnkk4j3bnii0gpf8di14rlbpq070hd5rs"))))
(build-system python-build-system) (build-system scons-build-system)
(native-inputs (native-inputs
`(("boost" ,boost) `(("boost" ,boost)
("gettext" ,gnu-gettext) ("gettext" ,gnu-gettext)
("pkg-config" ,pkg-config) ("pkg-config" ,pkg-config)))
("scons" ,scons)))
(inputs (inputs
`(("expat" ,expat) `(("expat" ,expat)
("gtk2" ,gtk+-2) ("gtk2" ,gtk+-2)
("lua" ,lua-5.2))) ("lua" ,lua-5.2)))
(arguments (arguments
`(#:tests? #f `(#:tests? #f
#:scons ,scons-python2
#:scons-flags (list (string-append "DESTDIR=" %output))
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'build 'fix-lua-reference (add-before 'build 'fix-lua-reference
(lambda _ (lambda _
(substitute* "SConscript" (substitute* "SConscript"
(("lua5.2") "lua-5.2")) (("lua5.2") "lua-5.2"))
#t)) #t)))))
(replace 'build
(lambda _
(zero? (system* "scons"))))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let ((dest (assoc-ref outputs "out")))
(zero? (system* "scons" "install"
(string-append "DESTDIR=" dest)))))))))
(home-page "http://www.gpick.org/") (home-page "http://www.gpick.org/")
(synopsis "Color picker") (synopsis "Color picker")
(description "Gpick is an advanced color picker and palette editing tool.") (description "Gpick is an advanced color picker and palette editing tool.")