* gnu/packages/graphics.scm (lib2geom-1.2): New variable. * gnu/packages/inkscape.scm (inkscape)[arguments]: Enable previously failing test. [inputs]: Replace "lib2geom" with LIB2GEOM-1.2.
		
			
				
	
	
		
			277 lines
		
	
	
	
		
			13 KiB
		
	
	
	
		
			Scheme
		
	
	
	
	
	
			
		
		
	
	
			277 lines
		
	
	
	
		
			13 KiB
		
	
	
	
		
			Scheme
		
	
	
	
	
	
| ;;; GNU Guix --- Functional package management for GNU
 | |
| ;;; Copyright © 2014 John Darrington <jmd@gnu.org>
 | |
| ;;; Copyright © 2014, 2016 Mark H Weaver <mhw@netris.org>
 | |
| ;;; Copyright © 2016, 2018 Ricardo Wurmus <rekado@elephly.net>
 | |
| ;;; Copyright © 2017, 2020 Marius Bakke <mbakke@fastmail.com>
 | |
| ;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
 | |
| ;;; Copyright © 2020, 2021, 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
 | |
| ;;; Copyright © 2020 Boris A. Dekshteyn <boris.dekshteyn@gmail.com>
 | |
| ;;; Copyright © 2020 Ekaitz Zarraga <ekaitz@elenq.tech>
 | |
| ;;;
 | |
| ;;; 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 inkscape)
 | |
|   #:use-module ((guix licenses) #:prefix license:)
 | |
|   #:use-module (guix packages)
 | |
|   #:use-module (guix download)
 | |
|   #:use-module (guix utils)
 | |
|   #:use-module (guix build-system cmake)
 | |
|   #:use-module (gnu packages)
 | |
|   #:use-module (gnu packages aspell)
 | |
|   #:use-module (gnu packages bash)
 | |
|   #:use-module (gnu packages bdw-gc)
 | |
|   #:use-module (gnu packages boost)
 | |
|   #:use-module (gnu packages check)
 | |
|   #:use-module (gnu packages glib)
 | |
|   #:use-module (gnu packages gnome)
 | |
|   #:use-module (gnu packages graphics)
 | |
|   #:use-module (gnu packages gtk)
 | |
|   #:use-module (gnu packages imagemagick)
 | |
|   #:use-module (gnu packages libreoffice)
 | |
|   #:use-module (gnu packages maths)
 | |
|   #:use-module (gnu packages perl)
 | |
|   #:use-module (gnu packages pdf)
 | |
|   #:use-module (gnu packages popt)
 | |
|   #:use-module (gnu packages python)
 | |
|   #:use-module (gnu packages python-xyz)
 | |
|   #:use-module (gnu packages xml)
 | |
|   #:use-module (gnu packages ghostscript)
 | |
|   #:use-module (gnu packages fontutils)
 | |
|   #:use-module (gnu packages image)
 | |
|   #:use-module (gnu packages pkg-config)
 | |
|   #:use-module (srfi srfi-1))
 | |
| 
 | |
| ;;; A variant of Inkscape intended to be bumped only on core-updates, to avoid
 | |
| ;;; rebuilding 2k+ packages through dblatex.
 | |
| (define-public inkscape/stable
 | |
|   (hidden-package
 | |
|    (package
 | |
|      (name "inkscape")
 | |
|      (version "1.1.1")
 | |
|      (source
 | |
|       (origin
 | |
|         (method url-fetch)
 | |
|         (uri (string-append "https://media.inkscape.org/dl/"
 | |
|                             "resources/file/"
 | |
|                             "inkscape-" version ".tar.xz"))
 | |
|         (sha256
 | |
|          (base32 "1bvqg5xfs3m6r7qfdhmgzwhd1hx8wvg3nhvhmalwzcdm6ffhpjmf"))
 | |
|         (modules '((guix build utils)
 | |
|                    (ice-9 format)))
 | |
|         (snippet
 | |
|          '(begin
 | |
|             (let-syntax
 | |
|                 ;; XXX: The build system doesn't currently support using
 | |
|                 ;; system libraries over bundled ones (see:
 | |
|                 ;; https://gitlab.com/inkscape/inkscape/issues/876).
 | |
|                 ((unbundle
 | |
|                   (syntax-rules ()
 | |
|                     ((_ (name source-dir use-pkg-config?) ...)
 | |
|                      (begin
 | |
|                        ;; Delete bundled source directories.
 | |
|                        (delete-file-recursively source-dir) ...
 | |
|                        (substitute* '("src/CMakeLists.txt"
 | |
|                                       "src/3rdparty/CMakeLists.txt")
 | |
|                          (((string-append ".*add_subdirectory\\("
 | |
|                                           (basename source-dir) "\\).*"))
 | |
|                           "") ...)
 | |
|                        ;; Remove bundled entries from INKSCAPE_TARGET_LIBS.
 | |
|                        (substitute* "src/CMakeLists.txt"
 | |
|                          (((string-append name "_LIB.*")) "") ...)
 | |
|                        ;; Register the external libraries, so that their
 | |
|                        ;; headers are added to INKSCAPE_INCS_SYS and their
 | |
|                        ;; shared libraries added to INKSCAPE_LIBS.
 | |
|                        (if use-pkg-config?
 | |
|                            (let* ((width (string-length "pkg_check_modules("))
 | |
|                                   (indent (string-join (make-list width " ") "")))
 | |
|                              (substitute* "CMakeScripts/DefineDependsandFlags.cmake"
 | |
|                                (("^pkg_check_modules\\(INKSCAPE_DEP REQUIRED.*" start)
 | |
|                                 (string-append start
 | |
|                                                (format #f "~a~a~%" indent name)))))
 | |
|                            (substitute* "CMakeScripts/DefineDependsandFlags.cmake"
 | |
|                              (("^find_package\\(Iconv REQUIRED\\).*" start)
 | |
|                               (string-append (format #f "
 | |
| find_path(~a_INCLUDE_DIR NAMES ~:*~a/~:*~a.h ~:*~a.h)
 | |
| if(NOT ~:*~a_INCLUDE_DIR)
 | |
|   message(FATAL_ERROR \"~:*~a headers not found\")
 | |
| else()
 | |
|   list(APPEND INKSCAPE_INCS_SYS ${~:*~a_INCLUDE_DIR})
 | |
| endif()
 | |
| 
 | |
| find_library(~:*~a_LIB NAMES ~:*~a)
 | |
| if(NOT ~:*~a_LIB)
 | |
|   message(FATAL_ERROR \"~:*~a library not found\")
 | |
| else()
 | |
|   list(APPEND INKSCAPE_LIBS ~:*~a_LIB)
 | |
| endif()~%~%"
 | |
|                                                      name)
 | |
|                                              start)))) ...
 | |
|                                              ;; Fix the references to the headers of the
 | |
|                                              ;; unbundled libraries.
 | |
|                                              (substitute* (find-files "." "\\.h$|\\.cpp$")
 | |
|                                                (((string-append "#include (\"|<)3rdparty/"
 | |
|                                                                 (basename source-dir)) _ quote)
 | |
|                                                 (string-append "#include " quote
 | |
|                                                                (basename source-dir)))
 | |
|                                                ...))))))
 | |
|               (unbundle ("2geom" "src/3rdparty/2geom" #t)
 | |
|                         ;; libcroco cannot be unbundled as it is heavily
 | |
|                         ;; modified (see:
 | |
|                         ;; https://gitlab.com/inkscape/inkscape/issues/876#note_276114904).
 | |
|                         ;; ("croco" "src/3rdparty/libcroco" #t)
 | |
|                         ;; FIXME: Unbundle the following libraries once they
 | |
|                         ;; have been packaged.
 | |
|                         ;; ("cola" "src/3rdparty/adaptagrams/libcola")
 | |
|                         ;; ("avoid" "src/3rdparty/adaptagrams/libavoid")
 | |
|                         ;; ("vpsc" "src/3rdparty/adaptagrams/libvpsc")
 | |
|                         ;; libuemf cannot be unbundled as it slightly modified
 | |
|                         ;; from upstream (see:
 | |
|                         ;; https://gitlab.com/inkscape/inkscape/issues/973).
 | |
|                         ;; ("uemf" "src/3rdparty/libuemf" #f)
 | |
|                         ;; FIXME: libdepixelize upstream is ancient and doesn't
 | |
|                         ;; build with a recent lib2geom
 | |
|                         ;; (see: https://bugs.launchpad.net/libdepixelize/+bug/1862458).
 | |
|                         ;;("depixelize" "src/3rdparty/libdepixelize")
 | |
|                         ("autotrace" "src/3rdparty/autotrace" #t)))
 | |
|             ;; Lift the requirement on the double-conversion library, as
 | |
|             ;; it is only needed by lib2geom, which is now unbundled.
 | |
|             (substitute* "CMakeScripts/DefineDependsandFlags.cmake"
 | |
|               ((".*find_package\\(DoubleConversion.*") ""))))))
 | |
|      (build-system cmake-build-system)
 | |
|      (arguments
 | |
|       `(#:test-target "check"         ;otherwise some test binaries are missing
 | |
|         #:imported-modules (,@%cmake-build-system-modules
 | |
|                             (guix build glib-or-gtk-build-system))
 | |
|         #:modules ((guix build cmake-build-system)
 | |
|                    ((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)
 | |
|                    (guix build utils))
 | |
|         #:phases
 | |
|         (modify-phases %standard-phases
 | |
|           (add-after 'unpack 'generate-gdk-pixbuf-loaders-cache-file
 | |
|             (assoc-ref glib-or-gtk:%standard-phases
 | |
|                        'generate-gdk-pixbuf-loaders-cache-file))
 | |
|           (add-after 'unpack 'patch-icon-cache-generator
 | |
|             (lambda _
 | |
|               (substitute* "share/icons/application/CMakeLists.txt"
 | |
|                 (("gtk-update-icon-cache") "true"))))
 | |
|           (add-after 'unpack 'disable-latex-export-tests
 | |
|             ;; FIXME: For some reason the test.pdf_tex file generated by the
 | |
|             ;; "--export-latex" lacks "some text" in its content when run in
 | |
|             ;; the build environment.  Skip the related tests.
 | |
|             (lambda _
 | |
|               (substitute* "testfiles/cli_tests/CMakeLists.txt"
 | |
|                 (("add_cli_test\\(export-latex")
 | |
|                  "message(TEST_DISABLED: export-latex"))))
 | |
|           (add-after 'unpack 'set-home
 | |
|             ;; Mute Inkscape warnings during tests.
 | |
|             (lambda _
 | |
|               (setenv "HOME" (getcwd))))
 | |
|           ;; Move the check phase after the install phase, as when run in the
 | |
|           ;; tests, Inkscape relies on files that are not yet installed, such
 | |
|           ;; as the "share/inkscape/ui/units.xml" file.
 | |
|           (delete 'check)
 | |
|           (add-after 'install 'check
 | |
|             (assoc-ref %standard-phases 'check))
 | |
|           (add-after 'install 'glib-or-gtk-compile-schemas
 | |
|             (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-compile-schemas))
 | |
|           (add-after 'glib-or-gtk-compile-schemas 'glib-or-gtk-wrap
 | |
|             (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap))
 | |
|           (add-after 'install 'wrap-program
 | |
|             ;; Ensure Python is available at runtime.
 | |
|             (lambda* (#:key outputs #:allow-other-keys)
 | |
|               (let ((out (assoc-ref outputs "out")))
 | |
|                 (wrap-program (string-append out "/bin/inkscape")
 | |
|                   `("GUIX_PYTHONPATH" ":" prefix
 | |
|                     (,(getenv "GUIX_PYTHONPATH"))))))))))
 | |
|      (inputs
 | |
|       `(("aspell" ,aspell)
 | |
|         ("autotrace" ,autotrace)
 | |
|         ("gdl" ,gdl-minimal)
 | |
|         ("gtkmm" ,gtkmm-3)
 | |
|         ("gtk" ,gtk+)
 | |
|         ("gtkspell3" ,gtkspell3)
 | |
|         ("gsl" ,gsl)
 | |
|         ("poppler" ,poppler)
 | |
|         ("lib2geom" ,lib2geom)
 | |
|         ("libjpeg" ,libjpeg-turbo)
 | |
|         ("libpng" ,libpng)
 | |
|         ("libxml2" ,libxml2)
 | |
|         ("libxslt" ,libxslt)
 | |
|         ("libgc" ,libgc)
 | |
|         ("libsoup" ,libsoup-minimal-2)
 | |
|         ("libcdr" ,libcdr)
 | |
|         ("libvisio" ,libvisio)
 | |
|         ("libwpd" ,libwpd)
 | |
|         ("libwpg" ,libwpg)
 | |
|         ("freetype" ,freetype)
 | |
|         ("popt" ,popt)
 | |
|         ("potrace" ,potrace)
 | |
|         ("lcms" ,lcms)
 | |
|         ("boost" ,boost)
 | |
|         ("python" ,python-wrapper)
 | |
|         ("python-scour" ,python-scour)
 | |
|         ("python-pyserial" ,python-pyserial)
 | |
|         ("python-numpy" ,python-numpy)
 | |
|         ("python-lxml" ,python-lxml)))
 | |
|      (native-inputs
 | |
|       (list imagemagick                  ;for tests
 | |
|             intltool
 | |
|             `(,glib "bin")
 | |
|             googletest
 | |
|             perl
 | |
|             pkg-config))
 | |
|      (home-page "https://inkscape.org/")
 | |
|      (synopsis "Vector graphics editor")
 | |
|      (description "Inkscape is a vector graphics editor.  What sets Inkscape
 | |
| apart is its use of Scalable Vector Graphics (SVG), an XML-based W3C standard,
 | |
| as the native format.")
 | |
|      (license license:gpl3+))))           ;see the file COPYING
 | |
| 
 | |
| (define-public inkscape
 | |
|   (package
 | |
|     (inherit inkscape/stable)
 | |
|     (name "inkscape")
 | |
|     (version "1.2.1")
 | |
|     (source
 | |
|      (origin
 | |
|        (inherit (package-source inkscape/stable))
 | |
|        (method url-fetch)
 | |
|        (uri (string-append "https://media.inkscape.org/dl/"
 | |
|                            "resources/file/"
 | |
|                            "inkscape-" version ".tar.xz"))
 | |
|        (sha256
 | |
|         (base32 "06scilds4p4bw337ss22nfdxy2kynv5yjw6vq6nlpjm7xfh7vkj6"))))
 | |
|     (build-system cmake-build-system)
 | |
|     (arguments
 | |
|      (substitute-keyword-arguments (package-arguments inkscape/stable)
 | |
|        ((#:phases phases)
 | |
|         `(modify-phases ,phases
 | |
|            (replace 'wrap-program
 | |
|              ;; Ensure Python is available at runtime.
 | |
|              (lambda* (#:key outputs #:allow-other-keys)
 | |
|                (let ((out (assoc-ref outputs "out")))
 | |
|                  (wrap-program (string-append out "/bin/inkscape")
 | |
|                    `("GUIX_PYTHONPATH" prefix
 | |
|                      (,(getenv "GUIX_PYTHONPATH")))
 | |
|                    ;; Wrapping GDK_PIXBUF_MODULE_FILE allows Inkscape to load
 | |
|                    ;; its own icons in pure environments.
 | |
|                    `("GDK_PIXBUF_MODULE_FILE" =
 | |
|                      (,(getenv "GDK_PIXBUF_MODULE_FILE")))))))))))
 | |
|     (inputs (modify-inputs (package-inputs inkscape/stable)
 | |
|               (replace "lib2geom" lib2geom-1.2)
 | |
|               (append bash-minimal
 | |
|                       librsvg)))        ;for the pixbuf loader
 | |
|     (properties (alist-delete 'hidden? (package-properties inkscape/stable)))))
 |