From: Patrick Hetu <patrick.hetu@auf.org>
To: guix-devel@gnu.org
Subject: [PATCH] gnu: Add guile-gnome
Date: Fri, 27 May 2016 14:56:03 -0400 [thread overview]
Message-ID: <1464375363-31718-1-git-send-email-patrick.hetu@auf.org> (raw)
* gnu/packages/gtk.scm (guile-gnome): New variables.
---
gnu/packages/gtk.scm | 107 +++++++++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 107 insertions(+)
diff --git a/gnu/packages/gtk.scm b/gnu/packages/gtk.scm
index 1fe52a4..9111781 100644
--- a/gnu/packages/gtk.scm
+++ b/gnu/packages/gtk.scm
@@ -11,6 +11,7 @@
;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 Fabian Harfert <fhmgufs@web.de>
;;; Copyright © 2016 Kei Kebreau <kei@openmailbox.org>
+;;; Copyright © 2016 Patrick Hetu <patrick.hetu@auf.org>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -51,6 +52,7 @@
#:use-module (gnu packages gnome)
#:use-module (gnu packages icu4c)
#:use-module (gnu packages image)
+ #:use-module (gnu packages libffi)
#:use-module (gnu packages pdf)
#:use-module (gnu packages perl)
#:use-module (gnu packages pkg-config)
@@ -822,6 +824,111 @@ includes a tools to generate PDF presentations out of Org mode and Texinfo
documents.")
(license license:lgpl3+)))
+(define-public guile-g-wrap
+ (package
+ (name "guile-g-wrap")
+ (version "1.9.15")
+ (source (origin
+ (method url-fetch)
+ (uri
+ (string-append "http://savannah.nongnu.org/download/g-wrap/g-wrap-"
+ version ".tar.gz"))
+ (sha256
+ (base32
+ "0ak0bha37dfpj9kmyw1r8fj8nva639aw5xr66wr5gd3l1rqf5xhg"))))
+ (build-system gnu-build-system)
+ (native-inputs
+ `(("pkg-config" ,pkg-config)
+ ("libffi" ,libffi)
+ ("autoconf" ,autoconf)
+ ("automake" ,automake)
+ ("libtool" ,libtool)
+ ("glib" ,glib)))
+ (inputs `(("guile" ,guile-2.0)))
+ (propagated-inputs
+ `(("guile-cairo" ,guile-cairo)
+ ("guile-lib" ,guile-lib)))
+ (arguments
+ `(#:configure-flags
+ (let ((out (assoc-ref %outputs "out")))
+ (list (string-append "--prefix=" out)))
+ #:phases (alist-cons-before
+ 'configure 'pre-configure
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let ((out (assoc-ref outputs "out")))
+ (substitute* (find-files "." "^Makefile.in$")
+ (("guilemoduledir =.*guile/site" all)
+ (string-append all "/2.0")))
+ (substitute* "configure"
+ (("/bin/sh") (which "bash")))))
+ %standard-phases)))
+ (outputs '("out" "debug"))
+ (synopsis "Guile library for generating function wrappers for inter-language calls")
+ (description "G-Wrap is a tool (and guile library) for generating function
+wrappers for inter-language calls.
+It currently only supports generating Guile wrappers for C functions.
+Other languages may be supported in the future, possibly on both sides.")
+ (home-page "http://www.nongnu.org/g-wrap/")
+ (license license:lgpl2.1+)))
+
+(define-public guile-gnome
+ (package
+ (name "guile-gnome")
+ (version "2.16.4")
+ (source (origin
+ (method url-fetch)
+ (uri
+ (string-append "http://ftp.gnu.org/pub/gnu/" name
+ "/guile-gnome-platform/guile-gnome-platform-"
+ version ".tar.gz"))
+ (sha256
+ (base32
+ "1hqnqbb2lmr3hgbcv9kds1himn3av6h0lkk0zll8agcrsn7d9axd"))))
+ (build-system gnu-build-system)
+ (native-inputs
+ `(("pkg-config" ,pkg-config)
+ ("autoconf" ,autoconf)
+ ("automake" ,automake)
+ ("libtool" ,libtool)
+ ("atk" ,atk)
+; ("corba" ,corba) ; not packaged yet
+ ("gconf" ,gconf)
+ ("gobject-introspection" ,gobject-introspection)
+; ("gthread" ,gthread) ; not packaged yet
+ ("gnome-vfs" ,gnome-vfs)
+ ("gdk-pixbuf" ,gdk-pixbuf)
+ ("gtk+" ,gtk+-2)
+ ("libglade" ,libglade)
+ ("libgnome" ,libgnome)
+ ("libgnomecanvas" ,libgnomecanvas)
+ ("libgnomeui" ,libgnomeui)
+ ("pango" ,pango)
+ ("libffi" ,libffi)
+ ("glib" ,glib)))
+ (inputs `(("guile" ,guile-2.0)))
+ (propagated-inputs
+ `(("guile-cairo" ,guile-cairo)
+ ("guile-g-wrap" ,guile-g-wrap)
+ ("guile-lib" ,guile-lib)))
+ (arguments
+ `(#:tests? #f
+ #:phases (alist-cons-before
+ 'configure 'pre-configure
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let ((out (assoc-ref outputs "out")))
+ (substitute* (find-files "." "^Makefile.am$")
+ (("guilesite:=.*guile/site" all)
+ (string-append all "/2.0")))))
+ %standard-phases)))
+ (outputs '("out" "debug"))
+ (synopsis "Guile interface for GTK+ programming for GNOME")
+ (description "Guile wrapper collection for the following GNOME core libraries:
+
+Gobject, Glib, Atk, Pango, Pangocairo, Gdk, Gdk-Pixbuf, Gtk, Libglade,
+Gnome-Vfs, Libgnome, Libgnomecanvas, Libgnomeui, Corba")
+ (home-page "http://www.gnu.org/software/guile-gnome/")
+ (license license:gpl2+)))
+
;;;
;;; C++ bindings.
;;;
--
2.7.4
next reply other threads:[~2016-05-27 18:56 UTC|newest]
Thread overview: 12+ messages / expand[flat|nested] mbox.gz Atom feed top
2016-05-27 18:56 Patrick Hetu [this message]
2016-05-28 16:06 ` [PATCH] gnu: Add guile-gnome Ludovic Courtès
2016-06-07 17:57 ` Patrick Hetu
2016-06-07 21:47 ` David Pirotte
2016-06-08 13:19 ` Ludovic Courtès
2016-06-08 17:34 ` Patrick Hetu
2016-06-08 20:37 ` David Pirotte
2016-06-09 6:37 ` Efraim Flashner
2016-06-09 19:45 ` David Pirotte
2016-06-10 8:44 ` Alex Kost
2016-06-11 21:54 ` David Pirotte
2016-06-10 12:52 ` Ludovic Courtès
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=1464375363-31718-1-git-send-email-patrick.hetu@auf.org \
--to=patrick.hetu@auf.org \
--cc=guix-devel@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/guix.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.