From mboxrd@z Thu Jan 1 00:00:00 1970 From: Patrick Hetu Subject: [PATCH] gnu: Add guile-gnome Date: Fri, 27 May 2016 14:56:03 -0400 Message-ID: <1464375363-31718-1-git-send-email-patrick.hetu@auf.org> Mime-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: quoted-printable Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:49710) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1b6Mvc-0005En-ID for guix-devel@gnu.org; Fri, 27 May 2016 14:56:13 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1b6MvW-00079Y-KC for guix-devel@gnu.org; Fri, 27 May 2016 14:56:11 -0400 Received: from ns1.ca.auf.org ([199.84.140.5]:34863 helo=smtp.ca.auf.org) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1b6MvW-00079Q-Fu for guix-devel@gnu.org; Fri, 27 May 2016 14:56:06 -0400 Received: from smtp-sortant.ca.auf.org (smtp-sortant.ca.auf.org [199.84.140.10]) by smtp.ca.auf.org (Postfix) with ESMTP id 3066C82CF for ; Fri, 27 May 2016 14:56:04 -0400 (EDT) Received: from localhost (amavis-montreal.ca.auf.org [199.84.140.2]) by smtp-sortant.ca.auf.org (Postfix) with ESMTP id 67A5117CD for ; Fri, 27 May 2016 14:56:04 -0400 (EDT) Received: from smtp-sortant.ca.auf.org ([199.84.140.10]) by localhost (amavis-montreal.ca.auf.org [199.84.140.2]) (amavisd-new, port 10024) with ESMTP id ch310tBhPWzO for ; Fri, 27 May 2016 14:56:04 -0400 (EDT) Received: from sans-nom.b.ca.auf (unknown [10.36.1.99]) by smtp-sortant.ca.auf.org (Postfix) with ESMTP id 6A117506 for ; Fri, 27 May 2016 14:56:03 -0400 (EDT) List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: "Guix-devel" To: guix-devel@gnu.org * 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 =C2=A9 2016 Efraim Flashner ;;; Copyright =C2=A9 2016 Fabian Harfert ;;; Copyright =C2=A9 2016 Kei Kebreau +;;; Copyright =C2=A9 2016 Patrick Hetu ;;; ;;; 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+))) =20 +(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=3D" 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 =3D.*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 fu= nction +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-platfor= m-" + 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:=3D.*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. ;;; --=20 2.7.4