Re: [PATCH] Add rapicorn.

[Ricardo Wurmus]

Ricardo Wurmus <address@hidden> writes:

> Mathieu Lirzin <address@hidden> writes:
>
>>> +       (modify-phases %standard-phases
>>> +         (add-after 'unpack 'replace-/bin/ls
>>> +           (lambda _
>>> +             (substitute* '("Makefile.decl"
>>> +                            "tools/Makefile.in"
>>> +                            "tests/Makefile.in"
>>> +                            "aidacc/tests/Makefile.in"
>>> +                            "aidacc/Makefile.in"
>>> +                            "cython/Makefile.in"
>>> +                            "res/Makefile.in"
>>> +                            "ui/tests/Makefile.in"
>>> +                            "ui/Makefile.in"
>>> +                            "docs/tutorial/Makefile.in"
>>> +                            "docs/mans/Makefile.in"
>>> +                            "docs/Makefile.in"
>>> +                            "docs/examples/Makefile.in"
>>> +                            "docs/imports/Makefile.in"
>>> +                            "Makefile.in"
>>> +                            "pytests/Makefile.in"
>>> +                            "examples/Makefile.in"
>>> +                            "data/Makefile.in"
>>> +                            "rcore/tests/Makefile.in"
>>> +                            "rcore/Makefile.in")
>>> +               (("/bin/ls") (which "ls")))
>>
>> Can you try to use ‘find-files’ for this substitution?
>
> Yes, that would be better.  I’ll send a new version of this patch
> later; I found that some inputs need to be propagated.

Here’s a new version of the patch moving around inputs to the
propagated-inputs field and using “find-files”.

~~ Ricardo

>From 168af32c5973fa30c56679b6c08e878e3ea2f632 Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <address@hidden>
Date: Wed, 13 Apr 2016 08:56:16 +0200
Subject: [PATCH 1/2] gnu: Add rapicorn.

* gnu/packages/graphics.scm (rapicorn): New variable.
---
 gnu/packages/graphics.scm | 63 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 63 insertions(+)

diff --git a/gnu/packages/graphics.scm b/gnu/packages/graphics.scm
index 1c52c2c..da764ed 100644
--- a/gnu/packages/graphics.scm
+++ b/gnu/packages/graphics.scm
@@ -31,22 +31,32 @@
   #:use-module (gnu packages audio)
   #:use-module (gnu packages autotools)
   #:use-module (gnu packages bash)
+  #:use-module (gnu packages bison)
   #:use-module (gnu packages boost)
+  #:use-module (gnu packages doxygen)
+  #:use-module (gnu packages haskell)
   #:use-module (gnu packages image)
   #:use-module (gnu packages python)
+  #:use-module (gnu packages flex)
   #:use-module (gnu packages fontutils)
   #:use-module (gnu packages pkg-config)
   #:use-module (gnu packages pulseaudio)  ;libsndfile, libsamplerate
   #:use-module (gnu packages compression)
   #:use-module (gnu packages multiprecision)
   #:use-module (gnu packages gl)
+  #:use-module (gnu packages glib)
+  #:use-module (gnu packages graphviz)
+  #:use-module (gnu packages gtk)
+  #:use-module (gnu packages gnome)
   #:use-module (gnu packages image)
   #:use-module (gnu packages jemalloc)
   #:use-module (gnu packages photo)
   #:use-module (gnu packages python)
   #:use-module (gnu packages qt)
+  #:use-module (gnu packages readline)
   #:use-module (gnu packages sdl)
   #:use-module (gnu packages video)
+  #:use-module (gnu packages xml)
   #:use-module (gnu packages xorg))
 
 (define-public blender
@@ -271,6 +281,59 @@ visual effects work for film.")
     (home-page "http://www.openimageio.org";)
     (license license:bsd-3)))
 
+(define-public rapicorn
+  (package
+    (name "rapicorn")
+    (version "16.0.0")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "https://testbit.eu/pub/dists/rapicorn/";
+                                  "rapicorn-" version ".tar.xz"))
+              (sha256
+               (base32
+                "1y51yjrpsihas1jy905m9p3r8iiyhq6bwi2690c564i5dnix1f9d"))))
+    (build-system gnu-build-system)
+    (arguments
+     `(;; FIXME: At least "testrcore1" fails.
+       #:tests? #f
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'unpack 'replace-/bin/ls
+           (lambda _
+             (substitute* (cons "Makefile.decl"
+                                (find-files "." "^Makefile\\.in$"))
+               (("/bin/ls") (which "ls")))
+             #t)))))
+    ;; These libraries are listed in the "Required" section of the pkg-config
+    ;; file.
+    (propagated-inputs
+     `(("librsvg" ,librsvg)
+       ("cairo" ,cairo)
+       ("pango" ,pango)
+       ("libxml2" ,libxml2)))
+    (inputs
+     `(("gdk-pixbuf" ,gdk-pixbuf)
+       ("libpng" ,libpng12)
+       ("readline" ,readline)
+       ("libcroco" ,libcroco)
+       ("python" ,python-2)
+       ("cython" ,python2-cython)))
+    (native-inputs
+     `(("pandoc" ,ghc-pandoc)
+       ("bison" ,bison)
+       ("flex" ,flex)
+       ("doxygen" ,doxygen)
+       ("graphviz" ,graphviz)
+       ("intltool" ,intltool)
+       ("pkg-config" ,pkg-config)))
+    (home-page "http://rapicorn.org";)
+    (synopsis "Toolkit for rapid development of user interfaces")
+    (description
+     "Rapicorn is a toolkit for rapid development of user interfaces in C++
+and Python.  The user interface is designed in a declarative markup language
+and is connected to the programming logic using data bindings and commands.")
+    (license license:mpl2.0)))
+
 (define-public ctl
   (package
     (name "ctl")
-- 
2.7.3