ambrevar pushed a commit to branch master in repository guix. commit 9ecc457b52186fd96a63aeb1d8b9f2eda169f287 Author: Pierre Neidhardt <m...@ambrevar.xyz> Date: Fri Oct 19 16:53:51 2018 +0200
gnu: Add sbcl-cl-cffi-gtk-pango. * gnu/packages/lisp.scm (sbcl-cl-cffi-gtk-pango): New variable. --- gnu/packages/lisp.scm | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) diff --git a/gnu/packages/lisp.scm b/gnu/packages/lisp.scm index ac694e3..dc0481d 100644 --- a/gnu/packages/lisp.scm +++ b/gnu/packages/lisp.scm @@ -3357,3 +3357,24 @@ is a library for creating graphical user interfaces.") (("libcairo" all) (string-append (assoc-ref inputs "cairo") "/lib/" all)))))))))) + +(define-public sbcl-cl-cffi-gtk-pango + (package + (inherit sbcl-cl-cffi-gtk-boot0) + (name "sbcl-cl-cffi-gtk-pango") + (inputs + `(("pango" ,pango) + ("cl-cffi-gtk-glib" ,sbcl-cl-cffi-gtk-glib) + ("cl-cffi-gtk-gobject" ,sbcl-cl-cffi-gtk-gobject) + ("cl-cffi-gtk-cairo" ,sbcl-cl-cffi-gtk-cairo) + ,@(package-inputs sbcl-cl-cffi-gtk-boot0))) + (arguments + `(#:asd-file "pango/cl-cffi-gtk-pango.asd" + #:phases + (modify-phases %standard-phases + (add-after 'unpack 'fix-paths + (lambda* (#:key inputs #:allow-other-keys) + (substitute* "pango/pango.init.lisp" + (("libpango" all) + (string-append + (assoc-ref inputs "pango") "/lib/" all))))))))))