summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-09-28 21:42:02 +0200
committerLudovic Courtès <ludo@gnu.org>2013-09-28 21:42:02 +0200
commit8e70e6d2762c127910681b3539eac3576197feeb (patch)
tree677a31314a348919d3ccb6a37cf8aff90b27acea
parente0d2d05284cf5ff1de816eca1dd2f099af085abc (diff)
gnu: Add Guile-Cairo.
* gnu/packages/gtk.scm (guile-cairo): New variable.
-rw-r--r--gnu/packages/gtk.scm61
1 files changed, 61 insertions, 0 deletions
diff --git a/gnu/packages/gtk.scm b/gnu/packages/gtk.scm
index 013d29379b..f75d0b8ecc 100644
--- a/gnu/packages/gtk.scm
+++ b/gnu/packages/gtk.scm
@@ -33,6 +33,8 @@
#:use-module (gnu packages pdf)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages python)
+ #:use-module (gnu packages guile)
+ #:use-module (gnu packages xml)
#:use-module (gnu packages xorg))
(define-public atk
@@ -219,3 +221,62 @@ suitable for projects ranging from small one-off tools to complete
application suites.")
(license license:lgpl2.0+)
(home-page "http://www.gtk.org/")))
+
+
+;;;
+;;; Guile bindings.
+;;;
+
+(define-public guile-cairo
+ (package
+ (name "guile-cairo")
+ (version "1.4.1")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append
+ "http://download.gna.org/guile-cairo/guile-cairo-"
+ version
+ ".tar.gz"))
+ (sha256
+ (base32
+ "1f5nd9n46n6cwfl1byjml02q3y2hgn7nkx98km1czgwarxl7ws3x"))))
+ (build-system gnu-build-system)
+ (arguments
+ '(#:phases (alist-cons-before
+ 'configure 'set-module-directory
+ (lambda* (#:key outputs #:allow-other-keys)
+ ;; Install modules under $out/share/guile/site/2.0.
+ (let ((out (assoc-ref outputs "out")))
+ (substitute* "Makefile.in"
+ (("scmdir = ([[:graph:]]+).*" _ value)
+ (string-append "scmdir = " value "/2.0\n")))
+ (substitute* "cairo/Makefile.in"
+ (("moduledir = ([[:graph:]]+).*" _ value)
+ (string-append "moduledir = "
+ "$(prefix)/share/guile/site/2.0/cairo\n'")))))
+ (alist-cons-after
+ 'install 'install-missing-file
+ (lambda* (#:key outputs #:allow-other-keys)
+ ;; By default 'vector-types.scm' is not installed, so do
+ ;; it here.
+ (let ((out (assoc-ref outputs "out")))
+ (copy-file "cairo/vector-types.scm"
+ (string-append out "/share/guile/site/2.0"
+ "/cairo/vector-types.scm"))))
+ %standard-phases))))
+ (inputs
+ `(("guile-lib" ,guile-lib)
+ ("expat" ,expat)
+ ("cairo" ,cairo)
+ ("pkg-config" ,pkg-config)
+ ("guile" ,guile-2.0)))
+ (home-page "http://www.nongnu.org/guile-cairo/")
+ (synopsis "Cairo bindings for GNU Guile")
+ (description
+ "Guile-Cairo wraps the Cairo graphics library for Guile Scheme.
+Guile-Cairo is complete, wrapping almost all of the Cairo API. It is API
+stable, providing a firm base on which to do graphics work. Finally, and
+importantly, it is pleasant to use. You get a powerful and well-maintained
+graphics library with all of the benefits of Scheme: memory management,
+exceptions, macros, and a dynamic programming environment.")
+ (license license:lgpl3+)))