2015-11-16 17:32:38 +00:00
|
|
|
|
;;; GNU Guix --- Functional package management for GNU
|
2017-05-27 15:54:20 +00:00
|
|
|
|
;;; Copyright © 2015, 2017 Ricardo Wurmus <rekado@elephly.net>
|
2019-03-20 18:56:26 +00:00
|
|
|
|
;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
|
2019-01-16 15:14:45 +00:00
|
|
|
|
;;; Copyright © 2019 Pkill -9 <pkill9@runbox.com>
|
2015-11-16 17:32:38 +00:00
|
|
|
|
;;;
|
|
|
|
|
;;; This file is part of GNU Guix.
|
|
|
|
|
;;;
|
|
|
|
|
;;; GNU Guix is free software; you can redistribute it and/or modify it
|
|
|
|
|
;;; under the terms of the GNU General Public License as published by
|
|
|
|
|
;;; the Free Software Foundation; either version 3 of the License, or (at
|
|
|
|
|
;;; your option) any later version.
|
|
|
|
|
;;;
|
|
|
|
|
;;; GNU Guix is distributed in the hope that it will be useful, but
|
|
|
|
|
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
;;; GNU General Public License for more details.
|
|
|
|
|
;;;
|
|
|
|
|
;;; You should have received a copy of the GNU General Public License
|
|
|
|
|
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
|
|
|
|
|
|
(define-module (gnu packages animation)
|
|
|
|
|
#:use-module (guix packages)
|
|
|
|
|
#:use-module (guix download)
|
2017-10-22 01:02:40 +00:00
|
|
|
|
#:use-module (guix git-download)
|
2015-11-16 17:32:38 +00:00
|
|
|
|
#:use-module (guix utils)
|
|
|
|
|
#:use-module ((guix licenses) #:prefix license:)
|
|
|
|
|
#:use-module (guix build-system gnu)
|
2015-11-16 17:34:30 +00:00
|
|
|
|
#:use-module (gnu packages)
|
2017-05-27 15:54:20 +00:00
|
|
|
|
#:use-module (gnu packages algebra)
|
2015-11-16 17:34:30 +00:00
|
|
|
|
#:use-module (gnu packages boost)
|
|
|
|
|
#:use-module (gnu packages compression)
|
|
|
|
|
#:use-module (gnu packages fontutils)
|
|
|
|
|
#:use-module (gnu packages glib)
|
|
|
|
|
#:use-module (gnu packages gnome)
|
|
|
|
|
#:use-module (gnu packages graphics)
|
|
|
|
|
#:use-module (gnu packages gtk)
|
|
|
|
|
#:use-module (gnu packages image)
|
|
|
|
|
#:use-module (gnu packages imagemagick)
|
|
|
|
|
#:use-module (gnu packages pkg-config)
|
2017-10-22 01:02:40 +00:00
|
|
|
|
#:use-module (gnu packages pulseaudio)
|
|
|
|
|
#:use-module (gnu packages qt)
|
2015-11-16 17:34:30 +00:00
|
|
|
|
#:use-module (gnu packages video))
|
2015-11-16 17:32:38 +00:00
|
|
|
|
|
2019-04-13 02:12:04 +00:00
|
|
|
|
;; ETL, synfig, and Synfig Studio are updated in tandem.
|
|
|
|
|
(define synfig-version "1.2.2")
|
|
|
|
|
|
2015-11-16 17:32:38 +00:00
|
|
|
|
(define-public etl
|
|
|
|
|
(package
|
|
|
|
|
(name "etl")
|
2019-04-13 02:12:04 +00:00
|
|
|
|
(version synfig-version)
|
2015-11-16 17:32:38 +00:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "mirror://sourceforge/synfig/releases/"
|
2019-04-13 01:58:59 +00:00
|
|
|
|
version "/source/ETL-" version ".tar.gz"))
|
2015-11-16 17:32:38 +00:00
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2019-04-13 01:58:59 +00:00
|
|
|
|
"12sd8pz8l5xcxcmapkvih3brihdhdb6xmxisr9a415lydid9rh8d"))))
|
2015-11-16 17:32:38 +00:00
|
|
|
|
(build-system gnu-build-system)
|
gnu: Use more HTTPS.
* gnu/packages/admin.scm (net-base, wakelan, pam-krb5)
[home-page]: Use HTTPS.
(dfc, libpcap, tcpdump, wpa-supplicant-minimal, libcap-ng, audit)
[source, home-page]: Likewise.
* gnu/packages/algebra.scm (eigen)[home-page]: Likewise.
(gp2c, pari-gp)[source, home-page]: Likewise.
* gnu/packages/animation.scm (etl, synfig, synfigstudio, papagayo)
[home-page]: Likewise.
* gnu/packages/bioinformatics.scm (tadbit)[home-page]: Likewise.
2018-06-22 17:26:42 +00:00
|
|
|
|
(home-page "https://www.synfig.org")
|
2015-11-16 17:32:38 +00:00
|
|
|
|
(synopsis "Extended C++ template library")
|
|
|
|
|
(description
|
|
|
|
|
"ETL is a class and template library designed to add new datatypes and
|
|
|
|
|
functions which combine well with the existing types and functions from the
|
|
|
|
|
C++ @dfn{Standard Template Library} (STL).")
|
|
|
|
|
(license license:gpl3+)))
|
|
|
|
|
|
2015-11-16 17:34:30 +00:00
|
|
|
|
(define-public synfig
|
|
|
|
|
(package
|
|
|
|
|
(name "synfig")
|
2019-04-13 02:12:04 +00:00
|
|
|
|
(version synfig-version)
|
2015-11-16 17:34:30 +00:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "mirror://sourceforge/synfig/releases/"
|
|
|
|
|
version "/source/synfig-" version
|
|
|
|
|
".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2019-04-13 02:12:04 +00:00
|
|
|
|
"1vy27kl68sbg41sfasa58k3p2nc1xfalvzk3k9gich9h90rpnpsz"))))
|
2015-11-16 17:34:30 +00:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:configure-flags
|
|
|
|
|
;; The Boost library path is taken from the value of BOOST_LDFLAGS.
|
|
|
|
|
(list (string-append "BOOST_LDFLAGS=-L"
|
|
|
|
|
(assoc-ref %build-inputs "boost")
|
|
|
|
|
"/lib"))
|
|
|
|
|
#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
2017-07-26 10:26:04 +00:00
|
|
|
|
(add-after 'unpack 'fix-boost-build-error
|
|
|
|
|
;; A chain of Boost headers leads to this error: "make_array" is
|
|
|
|
|
;; not a member of "boost::serialization". This can be avoided by
|
|
|
|
|
;; loading the "array_wrapper" header first.
|
|
|
|
|
(lambda _
|
|
|
|
|
(substitute* "src/synfig/valuenodes/valuenode_dynamic.cpp"
|
|
|
|
|
(("#include <boost/numeric/odeint/integrate/integrate.hpp>" match)
|
|
|
|
|
(string-append
|
|
|
|
|
"#include <boost/serialization/array_wrapper.hpp>\n" match)))
|
|
|
|
|
#t))
|
2015-11-16 17:34:30 +00:00
|
|
|
|
(add-after 'unpack 'adapt-to-libxml++-changes
|
|
|
|
|
(lambda _
|
|
|
|
|
(substitute* "configure"
|
|
|
|
|
(("libxml\\+\\+-2\\.6") "libxml++-3.0"))
|
|
|
|
|
(substitute* (append (find-files "src/modules/" "\\.cpp$")
|
|
|
|
|
(find-files "src/synfig/" "\\.(cpp|h)$"))
|
|
|
|
|
(("add_child\\(") "add_child_element(")
|
|
|
|
|
(("get_child_text\\(") "get_first_child_text(")
|
|
|
|
|
(("set_child_text\\(") "set_first_child_text(")
|
|
|
|
|
(("remove_child\\(") "remove_node("))
|
|
|
|
|
(substitute* "src/modules/mod_svg/svg_parser.cpp"
|
|
|
|
|
(("xmlpp::Node::NodeList") "xmlpp::Node::const_NodeList"))
|
|
|
|
|
#t)))))
|
|
|
|
|
(inputs
|
|
|
|
|
`(("boost" ,boost)
|
|
|
|
|
("ffmpeg" ,ffmpeg)
|
|
|
|
|
("libdv" ,libdv)
|
gnu: Replace uses of 'libjpeg' with 'libjpeg-turbo'.
* gnu/packages/abiword.scm (abiword)[inputs]: Change from LIBJPEG to
LIBJPEG-TURBO.
* gnu/packages/admin.scm (testdisk)[inputs]: Likewise.
* gnu/packages/algebra.scm (giac)[inputs]: Likewise.
* gnu/packages/animation.scm (synfig)[inputs]: Likewise.
* gnu/packages/astronomy.scm (gnuastro, celestia)[inputs]: Likewise.
* gnu/packages/cdrom.scm (dvdstyler)[inputs]: Likewise.
* gnu/packages/cran.scm (r-jpeg, r-tiff, r-readbitmap)[inputs]: Likewise.
* gnu/packages/cups.scm (cups-filters, hplip)[inputs]: Likewise.
* gnu/packages/display-managers.scm (slim)[inputs]: Likewise.
* gnu/packages/ebook.scm (fbreader)[inputs]: Likewise.
* gnu/packages/emacs.scm (emacs)[inputs]: Likewise.
* gnu/packages/enlightenment.scm (efl)[propagated-inputs]: Likewise.
* gnu/packages/fltk.scm (fltk, ntk)[inputs]: Likewise.
* gnu/packages/fontutils.scm (fontforge)[inputs]: Likewise.
* gnu/packages/freedesktop.scm (weston)[inputs]: Likewise.
* gnu/packages/game-development.scm (sfml, allegro, aseprite, python-pygame,
eureka, ioquake3)[inputs]: Likewise.
* gnu/packages/games.scm (adanaxisgpl, freedroidrpg, irrlicht, minetest,
fizmo, supertuxkart, gzdoom, xmoto, xonotic)[inputs]: Likewise.
* gnu/packages/gd.scm (gd, perl-gd)[inputs]: Likewise.
* gnu/packages/ghostscript.scm (lcms)[inputs]: Likewise.
(ghostscript)[inputs, native-inputs]: Likewise.
* gnu/packages/gimp.scm (gegl, gimp)[inputs]: Likewise.
* gnu/packages/gnome.scm (libgnomeui, eog, tracker-miners, gthumb)[inputs]: Likewise.
* gnu/packages/gnunet.scm (libextractor)[inputs]: Likewise.
* gnu/packages/gnustep.scm (windowmaker)[inputs]: Likewise.
* gnu/packages/graphics.scm (blender, blender-2.79, openimageio,
openscenegraph, openscenegraph-3.4, povray, fgallery)[inputs]: Likewise.
* gnu/packages/graphviz.scm (graphviz)[inputs]: Likewise.
* gnu/packages/gstreamer.scm (gst-plugins-good)[inputs]: Likewise.
* gnu/packages/gtk.scm (gdk-pixbuf)[inputs]: Likewise.
* gnu/packages/image-processing.scm (dcmtk, mia, vtk, opencv, vips, nip2, vxl,
insight-toolkit)[inputs]: Likewise.
* gnu/packages/image-viewers.scm (gpicview, luminance-hdr)[inputs]: Likewise.
* gnu/packages/image.scm (jpegoptim, libtiff, leptonica, imlib2, freeimage,
vigra, libwebp, libmng, jasper, steghide, jp2a)[inputs]: Likewise.
* gnu/packages/imagemagick.scm (imagemagick, graphicsmagick)[inputs]: Likewise.
* gnu/packages/java.scm (icedtea-6, icedtea-7, openjdk9, openjdk11,
openjdk12)[inputs]: Likewise.
* gnu/packages/kde-frameworks.scm (khtml)[inputs]: Likewise.
* gnu/packages/kodi.scm (kodi)[inputs]: Likewise.
* gnu/packages/machine-learning.scm (dlib, tensorflow)[inputs]: Likewise.
* gnu/packages/mate.scm (atril, eom)[inputs]: Likewise.
* gnu/packages/maths.scm (hdf4, hdf-java, hdf-eos2, netcdf)[inputs]: Likewise.
* gnu/packages/netpbm.scm (netpbm)[inputs]: Likewise.
* gnu/packages/pdf.scm (zathura-pdf-mupdf, podofo, mupdf, fbida)[inputs]: Likewise.
* gnu/packages/photo.scm (libraw, libpano13, enblend-enfuse, darktable, hugin,
rawtherapee)[inputs]: Likewise.
* gnu/packages/prolog.scm (swi-prolog)[native-inputs]: Likewise.
* gnu/packages/python-xyz.scm (python-hdf4, python-pillow)[inputs]: Likewise.
* gnu/packages/qt.scm (qtbase, qtwebkit)[inputs]: Likewise.
* gnu/packages/rdesktop.scm (freerdp)[inputs]: Likewise.
* gnu/packages/scanner.scm (sane-backends, xsane)[inputs]: Likewise.
* gnu/packages/scheme.scm (racket)[inputs]: Likewise.
* gnu/packages/scribus.scm (scribus)[inputs]: Likewise.
* gnu/packages/sdl.scm (sdl-image)[propagated-inputs]: Likewise.
(guile-sdl)[native-inputs]: Likewise.
* gnu/packages/spice.scm (spice-gtk)[inputs]: Likewise.
* gnu/packages/statistics.scm (r-with-tests)[inputs]: Likewise.
* gnu/packages/tcl.scm (perl-tk)[inputs]: Likewise.
* gnu/packages/upnp.scm (readymedia)[inputs]: Likewise.
* gnu/packages/video.scm (mplayer, mpv, v4l-utils, motion)[inputs]: Likewise.
* gnu/packages/web-browsers.scm (dillo, links)[inputs]: Likewise.
* gnu/packages/web.scm (netsurf)[inputs]: Likewise.
* gnu/packages/webkit.scm (webkitgtk)[inputs]: Likewise.
* gnu/packages/wine.scm (wine)[inputs]: Likewise.
* gnu/packages/wv.scm (wv)[inputs]: Likewise.
* gnu/packages/wxwidgets.scm (wxwidgets, wxwidgets-2)[inputs]: Likewise.
* gnu/packages/xdisorg.scm (xscreensaver)[inputs]: Likewise.
* gnu/packages/xfce.scm (tumbler)[inputs]: Likewise.
* gnu/packages/xfig.scm (xfig, transfig)[inputs]: Likewise.
* gnu/packages/xorg.scm (xpra)[inputs]: Likewise.
2020-01-17 18:27:01 +00:00
|
|
|
|
("libjpeg" ,libjpeg-turbo)
|
2015-11-16 17:34:30 +00:00
|
|
|
|
("libpng" ,libpng)
|
|
|
|
|
("libmng" ,libmng)
|
|
|
|
|
("zlib" ,zlib)))
|
|
|
|
|
;; synfig.pc lists the following as required: Magick++ freetype2
|
2017-05-27 15:54:20 +00:00
|
|
|
|
;; fontconfig fftw OpenEXR ETL glibmm-2.4 giomm-2.4 libxml++-3.0 sigc++-2.0
|
2015-11-16 17:34:30 +00:00
|
|
|
|
;; cairo pango pangocairo mlt++
|
|
|
|
|
(propagated-inputs
|
|
|
|
|
`(("cairo" ,cairo)
|
|
|
|
|
("etl" ,etl)
|
2017-05-27 15:54:20 +00:00
|
|
|
|
("fftw" ,fftw)
|
2015-11-16 17:34:30 +00:00
|
|
|
|
("fontconfig" ,fontconfig)
|
|
|
|
|
("freetype" ,freetype)
|
|
|
|
|
("glibmm" ,glibmm)
|
|
|
|
|
("imagemagick" ,imagemagick)
|
|
|
|
|
("libxml++" ,libxml++)
|
|
|
|
|
("libsigc++" ,libsigc++)
|
|
|
|
|
("mlt" ,mlt)
|
|
|
|
|
("openexr" ,openexr)
|
|
|
|
|
("pango" ,pango)))
|
|
|
|
|
(native-inputs
|
2019-04-13 02:12:04 +00:00
|
|
|
|
`(("intltool" ,intltool)
|
|
|
|
|
("pkg-config" ,pkg-config)))
|
gnu: Use more HTTPS.
* gnu/packages/admin.scm (net-base, wakelan, pam-krb5)
[home-page]: Use HTTPS.
(dfc, libpcap, tcpdump, wpa-supplicant-minimal, libcap-ng, audit)
[source, home-page]: Likewise.
* gnu/packages/algebra.scm (eigen)[home-page]: Likewise.
(gp2c, pari-gp)[source, home-page]: Likewise.
* gnu/packages/animation.scm (etl, synfig, synfigstudio, papagayo)
[home-page]: Likewise.
* gnu/packages/bioinformatics.scm (tadbit)[home-page]: Likewise.
2018-06-22 17:26:42 +00:00
|
|
|
|
(home-page "https://www.synfig.org")
|
2015-11-16 17:34:30 +00:00
|
|
|
|
(synopsis "Vector-based 2D animation renderer")
|
|
|
|
|
(description
|
|
|
|
|
"Synfig is a vector-based 2D animation package. It is designed to be
|
|
|
|
|
capable of producing feature-film quality animation. It eliminates the need
|
|
|
|
|
for tweening, preventing the need to hand-draw each frame.")
|
|
|
|
|
(license license:gpl3+)))
|
2015-11-16 17:36:40 +00:00
|
|
|
|
|
|
|
|
|
(define-public synfigstudio
|
|
|
|
|
(package
|
|
|
|
|
(name "synfigstudio")
|
2019-04-13 02:12:04 +00:00
|
|
|
|
(version synfig-version)
|
2015-11-16 17:36:40 +00:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "mirror://sourceforge/synfig/releases/"
|
|
|
|
|
version "/source/synfigstudio-" version
|
|
|
|
|
".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2019-04-13 02:12:04 +00:00
|
|
|
|
"1ql92kh9z8w2j9yi3pr7hn7wh2r2j35xynwv9xlwyd7niackgykn"))
|
2015-11-16 17:36:40 +00:00
|
|
|
|
(modules '((guix build utils)))
|
|
|
|
|
(snippet
|
|
|
|
|
'(begin
|
|
|
|
|
(substitute* "src/synfigapp/pluginmanager.cpp"
|
|
|
|
|
(("xmlpp::Node\\* n =") "const xmlpp::Node* n =")
|
|
|
|
|
(("xmlpp::Node::NodeList") "xmlpp::Node::const_NodeList"))
|
2019-04-13 02:12:04 +00:00
|
|
|
|
#t))))
|
2015-11-16 17:36:40 +00:00
|
|
|
|
(build-system gnu-build-system)
|
2017-05-30 21:56:29 +00:00
|
|
|
|
(arguments
|
|
|
|
|
`(#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
;; This fixes the file chooser crash that happens with GTK 3.
|
|
|
|
|
(add-after 'install 'wrap-program
|
|
|
|
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
|
|
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
|
|
|
(gtk (assoc-ref inputs "gtk+"))
|
|
|
|
|
(gtk-share (string-append gtk "/share")))
|
|
|
|
|
(wrap-program (string-append out "/bin/synfigstudio")
|
|
|
|
|
`("XDG_DATA_DIRS" ":" prefix (,gtk-share)))
|
|
|
|
|
#t))))))
|
2015-11-16 17:36:40 +00:00
|
|
|
|
(inputs
|
|
|
|
|
`(("gtkmm" ,gtkmm)
|
2017-05-30 21:56:29 +00:00
|
|
|
|
("gtk+" ,gtk+)
|
2015-11-16 17:36:40 +00:00
|
|
|
|
("libsigc++" ,libsigc++)
|
|
|
|
|
("synfig" ,synfig)))
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("pkg-config" ,pkg-config)
|
|
|
|
|
("intltool" ,intltool)))
|
gnu: Use more HTTPS.
* gnu/packages/admin.scm (net-base, wakelan, pam-krb5)
[home-page]: Use HTTPS.
(dfc, libpcap, tcpdump, wpa-supplicant-minimal, libcap-ng, audit)
[source, home-page]: Likewise.
* gnu/packages/algebra.scm (eigen)[home-page]: Likewise.
(gp2c, pari-gp)[source, home-page]: Likewise.
* gnu/packages/animation.scm (etl, synfig, synfigstudio, papagayo)
[home-page]: Likewise.
* gnu/packages/bioinformatics.scm (tadbit)[home-page]: Likewise.
2018-06-22 17:26:42 +00:00
|
|
|
|
(home-page "https://www.synfig.org")
|
2015-11-16 17:36:40 +00:00
|
|
|
|
(synopsis "Vector-based 2D animation package (GUI)")
|
|
|
|
|
(description
|
|
|
|
|
"Synfig is a vector-based 2D animation package. It is designed to
|
|
|
|
|
be capable of producing feature-film quality animation. It eliminates the
|
|
|
|
|
need for tweening, preventing the need to hand-draw each frame. This package
|
|
|
|
|
contains the graphical user interface for synfig.")
|
|
|
|
|
(license license:gpl3+)))
|
2017-10-22 01:02:40 +00:00
|
|
|
|
|
|
|
|
|
(define-public papagayo
|
|
|
|
|
(let ((commit "e143684b30e59fe4a554f965cb655d23cbe93ee7")
|
|
|
|
|
(revision "1"))
|
|
|
|
|
(package
|
|
|
|
|
(name "papagayo")
|
|
|
|
|
(version (string-append "2.0b1-" revision "." (string-take commit 9)))
|
|
|
|
|
(source (origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "https://github.com/LostMoho/Papagayo.git")
|
|
|
|
|
(commit commit)))
|
2018-03-04 07:52:08 +00:00
|
|
|
|
(file-name (git-file-name name version))
|
2017-10-22 01:02:40 +00:00
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"1p9gffjhbph34jhrvgpg93yha75bf88vkvlnk06x1r9601ph5321"))
|
|
|
|
|
(modules '((guix build utils)))
|
|
|
|
|
;; Delete bundled libsndfile sources.
|
|
|
|
|
(snippet
|
|
|
|
|
'(begin
|
|
|
|
|
(delete-file-recursively "libsndfile_1.0.19")
|
|
|
|
|
(delete-file-recursively "libsndfile_1.0.25")
|
|
|
|
|
#t))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(replace 'configure
|
|
|
|
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
|
|
|
|
(let ((libsndfile (assoc-ref inputs "libsndfile")))
|
|
|
|
|
;; Do not use bundled libsndfile sources
|
|
|
|
|
(substitute* "Papagayo.pro"
|
|
|
|
|
(("else \\{")
|
|
|
|
|
(string-append "\nINCLUDEPATH += " libsndfile
|
|
|
|
|
"/include"
|
|
|
|
|
"\nLIBS +=" libsndfile
|
|
|
|
|
"/lib/libsndfile.so\n"
|
|
|
|
|
"win32 {"))))
|
2018-06-26 13:33:28 +00:00
|
|
|
|
(invoke "qmake"
|
|
|
|
|
(string-append "DESTDIR="
|
|
|
|
|
(assoc-ref outputs "out")
|
|
|
|
|
"/bin"))))
|
2017-10-22 01:02:40 +00:00
|
|
|
|
;; Ensure that all required Qt plugins are found at runtime.
|
|
|
|
|
(add-after 'install 'wrap-executable
|
|
|
|
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
|
|
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
|
|
|
(qt '("qt" "qtmultimedia")))
|
|
|
|
|
(wrap-program (string-append out "/bin/Papagayo")
|
|
|
|
|
`("QT_PLUGIN_PATH" ":" prefix
|
|
|
|
|
,(map (lambda (label)
|
|
|
|
|
(string-append (assoc-ref inputs label)
|
|
|
|
|
"/lib/qt5/plugins/"))
|
|
|
|
|
qt)))
|
|
|
|
|
#t))))))
|
|
|
|
|
(inputs
|
|
|
|
|
`(("qt" ,qtbase)
|
|
|
|
|
("qtmultimedia" ,qtmultimedia)
|
|
|
|
|
("libsndfile" ,libsndfile)))
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("qttools" ,qttools)))
|
gnu: Use more HTTPS.
* gnu/packages/admin.scm (net-base, wakelan, pam-krb5)
[home-page]: Use HTTPS.
(dfc, libpcap, tcpdump, wpa-supplicant-minimal, libcap-ng, audit)
[source, home-page]: Likewise.
* gnu/packages/algebra.scm (eigen)[home-page]: Likewise.
(gp2c, pari-gp)[source, home-page]: Likewise.
* gnu/packages/animation.scm (etl, synfig, synfigstudio, papagayo)
[home-page]: Likewise.
* gnu/packages/bioinformatics.scm (tadbit)[home-page]: Likewise.
2018-06-22 17:26:42 +00:00
|
|
|
|
(home-page "https://www.lostmarble.com/papagayo/")
|
2017-10-22 01:02:40 +00:00
|
|
|
|
(synopsis "Lip-syncing for animations")
|
|
|
|
|
(description
|
|
|
|
|
"Papagayo is a lip-syncing program designed to help you line up
|
|
|
|
|
phonemes with the actual recorded sound of actors speaking. Papagayo makes it
|
|
|
|
|
easy to lip sync animated characters by making the process very simple – just
|
|
|
|
|
type in the words being spoken, then drag the words on top of the sound’s
|
|
|
|
|
waveform until they line up with the proper sounds.")
|
|
|
|
|
(license license:gpl3+))))
|
2019-01-16 15:14:45 +00:00
|
|
|
|
|
|
|
|
|
(define-public pencil2d
|
|
|
|
|
(package
|
|
|
|
|
(name "pencil2d")
|
2019-06-06 03:42:28 +00:00
|
|
|
|
(version "0.6.4")
|
2019-01-16 15:14:45 +00:00
|
|
|
|
(source (origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "https://github.com/pencil2d/pencil")
|
|
|
|
|
(commit (string-append "v" version))))
|
|
|
|
|
(file-name (git-file-name name version))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2019-06-06 03:42:28 +00:00
|
|
|
|
"0zi8x0w8n817zds2lyw9l8j33c03kiybkrcyy3s5fg66mchmrwnr"))))
|
2019-01-16 15:14:45 +00:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(inputs
|
|
|
|
|
`(("qtbase" ,qtbase)
|
|
|
|
|
("qtxmlpatterns" ,qtxmlpatterns)
|
|
|
|
|
("qtmultimedia" ,qtmultimedia)
|
|
|
|
|
("qtsvg" ,qtsvg)))
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(replace 'configure
|
|
|
|
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
|
|
|
|
(let ((out (assoc-ref outputs "out")))
|
|
|
|
|
(invoke "qmake" (string-append "PREFIX=" out)))))
|
|
|
|
|
(add-after 'install 'wrap-executable
|
|
|
|
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
|
|
|
|
(let ((out (assoc-ref outputs "out"))
|
|
|
|
|
(plugin-path (getenv "QT_PLUGIN_PATH")))
|
|
|
|
|
(wrap-program (string-append out "/bin/pencil2d")
|
|
|
|
|
`("QT_PLUGIN_PATH" ":" prefix (,plugin-path)))
|
|
|
|
|
#t))))))
|
|
|
|
|
(home-page "https://www.pencil2d.org")
|
|
|
|
|
(synopsis "Make 2D hand-drawn animations")
|
|
|
|
|
(description
|
|
|
|
|
"Pencil2D is an easy-to-use and intuitive animation and drawing tool. It
|
|
|
|
|
lets you create traditional hand-drawn animations (cartoons) using both bitmap
|
|
|
|
|
and vector graphics.")
|
|
|
|
|
(license license:gpl2)))
|