ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: racket: Add dependency on GTK+.

Browse source 
* gnu/packages/scheme.scm (racket): Add dependency on GTK+ and
  gdk-pixbuf.
This commit is contained in:
Ludovic Courtès 2013-09-24 18:06:08 +02:00
parent 2365338b18
commit 9d3c4daed3
1 changed files with 13 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
gnu/packages/scheme.scm
View file

@ -32,6 +32,7 @@ (define-module (gnu packages scheme)
#:use-module (gnu packages avahi) #:use-module (gnu packages avahi)
#:use-module (gnu packages libphidget) #:use-module (gnu packages libphidget)
#:use-module (gnu packages glib) #:use-module (gnu packages glib)
#:use-module (gnu packages gtk)
#:use-module (gnu packages libffi) #:use-module (gnu packages libffi)
#:use-module (gnu packages libjpeg) #:use-module (gnu packages libjpeg)
#:use-module ((gnu packages gtk) #:select (cairo pango)) #:use-module ((gnu packages gtk) #:select (cairo pango))
@ -358,12 +359,15 @@ (define-public racket
'(#:phases '(#:phases
(let* ((gui-libs (let* ((gui-libs
(lambda (inputs) (lambda (inputs)
;; FIXME: Add GTK+ and GDK for DrRacket. (define (lib input)
(let ((glib (string-append (assoc-ref inputs "glib") "/lib")) (string-append (assoc-ref inputs input) "/lib"))
(cairo (string-append (assoc-ref inputs "cairo") "/lib"))
(pango (string-append (assoc-ref inputs "pango") "/lib")) (list (lib "glib")
(libjpeg (string-append (assoc-ref inputs "libjpeg") "/lib"))) (lib "cairo")
(list glib cairo pango libjpeg))))) (lib "pango")
(lib "libjpeg")
(lib "gtk")
(lib "gdk-pixbuf")))))
(alist-cons-before (alist-cons-before
'configure 'pre-configure 'configure 'pre-configure
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
@ -397,7 +401,9 @@ (define (wrap prog)
("glib" ,glib) ; for DrRacket ("glib" ,glib) ; for DrRacket
("cairo" ,cairo) ("cairo" ,cairo)
("pango" ,pango) ("pango" ,pango)
("libjpeg" ,libjpeg-8))) ("libjpeg" ,libjpeg-8)
("gdk-pixbuf" ,gdk-pixbuf)
("gtk" ,gtk+)))
(home-page "http://racket-lang.org") (home-page "http://racket-lang.org")
(synopsis "Implementation of Scheme and related languages") (synopsis "Implementation of Scheme and related languages")
(description (description