nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: racket: Add dependency on GTK+. 

* 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 @@
#: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 @@ implementation techniques and as an expository tool.")
'(#: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 @@ implementation techniques and as an expository tool.")
("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