gnu: Add sbcl-cl-cffi-gtk-gdk.

* gnu/packages/lisp.scm (sbcl-cl-cffi-gtk-gdk): New variable.
This commit is contained in:
Pierre Neidhardt 2018-10-19 16:54:26 +02:00
parent a3bdddc359
commit 7b5b8c4405
No known key found for this signature in database
GPG Key ID: 9BDCF497A4BBCC7F
1 changed files with 27 additions and 0 deletions

View File

@ -3397,3 +3397,30 @@ is a library for creating graphical user interfaces.")
(("libgdk_pixbuf" all)
(string-append
(assoc-ref inputs "gdk-pixbuf") "/lib/" all))))))))))
(define-public sbcl-cl-cffi-gtk-gdk
(package
(inherit sbcl-cl-cffi-gtk-boot0)
(name "sbcl-cl-cffi-gtk-gdk")
(inputs
`(("gtk" ,gtk+)
("cl-cffi-gtk-gobject" ,sbcl-cl-cffi-gtk-gobject)
("cl-cffi-gtk-gio" ,sbcl-cl-cffi-gtk-gio)
("cl-cffi-gtk-gdk-pixbuf" ,sbcl-cl-cffi-gtk-gdk-pixbuf)
("cl-cffi-gtk-cairo" ,sbcl-cl-cffi-gtk-cairo)
("cl-cffi-gtk-pango" ,sbcl-cl-cffi-gtk-pango)
,@(package-inputs sbcl-cl-cffi-gtk-boot0)))
(arguments
`(#:asd-file "gdk/cl-cffi-gtk-gdk.asd"
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fix-paths
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "gdk/gdk.init.lisp"
(("libgdk" all)
(string-append
(assoc-ref inputs "gtk") "/lib/" all)))
(substitute* "gdk/gdk.package.lisp"
(("libgtk" all)
(string-append
(assoc-ref inputs "gtk") "/lib/" all))))))))))