* gnu/packages/patches/poppler-fix-crash-with-broken-documents.patch: New file. * gnu/local.mk (dist_patch_DATA): Add it. * gnu/packages/pdf.scm (poppler/fixed)[source]: Add the patch.
		
			
				
	
	
		
			961 lines
		
	
	
	
		
			36 KiB
		
	
	
	
		
			Scheme
		
	
	
	
	
	
			
		
		
	
	
			961 lines
		
	
	
	
		
			36 KiB
		
	
	
	
		
			Scheme
		
	
	
	
	
	
| ;;; GNU Guix --- Functional package management for GNU
 | |
| ;;; Copyright © 2013, 2015, 2016 Andreas Enge <andreas@enge.fr>
 | |
| ;;; Copyright © 2014 Mark H Weaver <mhw@netris.org>
 | |
| ;;; Copyright © 2014, 2015, 2016 Ricardo Wurmus <rekado@elephly.net>
 | |
| ;;; Copyright © 2015 Paul van der Walt <paul@denknerd.org>
 | |
| ;;; Copyright © 2016 Roel Janssen <roel@gnu.org>
 | |
| ;;; Coypright © 2016 ng0 <ng0@we.make.ritual.n0.is>
 | |
| ;;; Coypright © 2016 Efraim Flashner <efraim@flashner.co.il>
 | |
| ;;; Coypright © 2016, 2017 Marius Bakke <mbakke@fastmail.com>
 | |
| ;;; Coypright © 2016 Ludovic Courtès <ludo@gnu.org>
 | |
| ;;; Coypright © 2016 Julien Lepiller <julien@lepiller.eu>
 | |
| ;;; Copyright © 2016 Arun Isaac <arunisaac@systemreboot.net>
 | |
| ;;; Copyright © 2017 Leo Famulari <leo@famulari.name>
 | |
| ;;; Copyright © 2017 Alex Vong <alexvong1995@gmail.com>
 | |
| ;;; Copyright © 2017 Rene Saavedra <rennes@openmailbox.org>
 | |
| ;;;
 | |
| ;;; 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 pdf)
 | |
|   #:use-module ((guix licenses) #:prefix license:)
 | |
|   #:use-module (guix packages)
 | |
|   #:use-module (guix download)
 | |
|   #:use-module (guix utils)
 | |
|   #:use-module (guix build-system gnu)
 | |
|   #:use-module (guix build-system cmake)
 | |
|   #:use-module (guix build-system python)
 | |
|   #:use-module (guix build-system trivial)
 | |
|   #:use-module (gnu packages)
 | |
|   #:use-module (gnu packages autotools)
 | |
|   #:use-module (gnu packages base)
 | |
|   #:use-module (gnu packages bash)
 | |
|   #:use-module (gnu packages compression)
 | |
|   #:use-module (gnu packages fontutils)
 | |
|   #:use-module (gnu packages game-development)
 | |
|   #:use-module (gnu packages ghostscript)
 | |
|   #:use-module (gnu packages gnupg)
 | |
|   #:use-module (gnu packages databases)
 | |
|   #:use-module (gnu packages djvu)
 | |
|   #:use-module (gnu packages gettext)
 | |
|   #:use-module (gnu packages backup)
 | |
|   #:use-module (gnu packages lesstif)
 | |
|   #:use-module (gnu packages linux)
 | |
|   #:use-module (gnu packages xdisorg)
 | |
|   #:use-module (gnu packages imagemagick)
 | |
|   #:use-module (gnu packages gl)
 | |
|   #:use-module (gnu packages photo)
 | |
|   #:use-module (gnu packages image)
 | |
|   #:use-module (gnu packages pkg-config)
 | |
|   #:use-module (gnu packages qt)
 | |
|   #:use-module (gnu packages xorg)
 | |
|   #:use-module (gnu packages gnome)
 | |
|   #:use-module (gnu packages glib)
 | |
|   #:use-module (gnu packages gtk)
 | |
|   #:use-module (gnu packages lua)
 | |
|   #:use-module (gnu packages curl)
 | |
|   #:use-module (gnu packages pcre)
 | |
|   #:use-module (gnu packages perl)
 | |
|   #:use-module (gnu packages python)
 | |
|   #:use-module (gnu packages sdl)
 | |
|   #:use-module (gnu packages tls)
 | |
|   #:use-module (srfi srfi-1))
 | |
| 
 | |
| (define-public poppler
 | |
|   (package
 | |
|    (name "poppler")
 | |
|    (replacement poppler/fixed)
 | |
|    (version "0.52.0")
 | |
|    (source (origin
 | |
|             (method url-fetch)
 | |
|             (uri (string-append "https://poppler.freedesktop.org/poppler-"
 | |
|                                 version ".tar.xz"))
 | |
|             (sha256
 | |
|              (base32
 | |
|               "14hrrac2f1phi5j0qn283457w06vsp9gr075yqjrm7w370bnd2sj"))))
 | |
|    (build-system gnu-build-system)
 | |
|    ;; FIXME:
 | |
|    ;;  use libcurl:        no
 | |
|    (inputs `(("fontconfig" ,fontconfig)
 | |
|              ("freetype" ,freetype)
 | |
|              ("libjpeg" ,libjpeg)
 | |
|              ("libpng" ,libpng)
 | |
|              ("libtiff" ,libtiff)
 | |
|              ("lcms" ,lcms)
 | |
|              ("openjpeg-1" ,openjpeg-1) ; prefers openjpeg-1
 | |
|              ("zlib" ,zlib)
 | |
| 
 | |
|              ;; To build poppler-glib (as needed by Evince), we need Cairo and
 | |
|              ;; GLib.  But of course, that Cairo must not depend on Poppler.
 | |
|              ("cairo" ,(package (inherit cairo)
 | |
|                          (inputs (alist-delete "poppler"
 | |
|                                                (package-inputs cairo)))))
 | |
|              ("glib" ,glib)))
 | |
|    (native-inputs
 | |
|       `(("pkg-config" ,pkg-config)
 | |
|         ("glib" ,glib "bin")                      ; glib-mkenums, etc.
 | |
|         ("gobject-introspection" ,gobject-introspection)))
 | |
|    (arguments
 | |
|     `(#:tests? #f ; no test data provided with the tarball
 | |
|       #:configure-flags
 | |
|       '("--enable-xpdf-headers" ; to install header files
 | |
|         "--enable-zlib"
 | |
| 
 | |
|         ;; Saves 8 MiB of .a files.
 | |
|         "--disable-static")
 | |
|       #:phases
 | |
|       (modify-phases %standard-phases
 | |
|         (add-before 'configure 'setenv
 | |
|           (lambda _
 | |
|             (setenv "CPATH"
 | |
|                     (string-append (assoc-ref %build-inputs "openjpeg-1")
 | |
|                                    "/include/openjpeg-1.5"
 | |
|                                    ":" (or (getenv "CPATH") "")))
 | |
|             #t)))))
 | |
|    (synopsis "PDF rendering library")
 | |
|    (description
 | |
|     "Poppler is a PDF rendering library based on the xpdf-3.0 code base.")
 | |
|    (license license:gpl2+)
 | |
|    (home-page "https://poppler.freedesktop.org/")))
 | |
| 
 | |
| (define poppler/fixed
 | |
|   (package (inherit poppler)
 | |
|   (source
 | |
|     (origin
 | |
|       (inherit (package-source poppler))
 | |
|       (patches (search-patches "poppler-fix-crash-with-broken-documents.patch"
 | |
|                                "poppler-CVE-2017-9776.patch"))))))
 | |
| 
 | |
| (define-public poppler-qt4
 | |
|   (package/inherit poppler
 | |
|    (name "poppler-qt4")
 | |
|    (inputs `(("qt-4" ,qt-4)
 | |
|              ,@(package-inputs poppler)))
 | |
|    (synopsis "Qt4 frontend for the Poppler PDF rendering library")))
 | |
| 
 | |
| (define-public poppler-qt5
 | |
|   (package/inherit poppler
 | |
|    (name "poppler-qt5")
 | |
|    (inputs `(("qtbase" ,qtbase)
 | |
|              ,@(package-inputs poppler)))
 | |
|    (arguments
 | |
|     (substitute-keyword-arguments (package-arguments poppler)
 | |
|      ((#:configure-flags flags)
 | |
|        `(cons "CXXFLAGS=-std=gnu++11" ,flags))))
 | |
|    (synopsis "Qt5 frontend for the Poppler PDF rendering library")))
 | |
| 
 | |
| (define-public python-poppler-qt4
 | |
|   (package
 | |
|     (name "python-poppler-qt4")
 | |
|     (version "0.24.0")
 | |
|     (source
 | |
|       (origin
 | |
|         (method url-fetch)
 | |
|         (uri (string-append "https://pypi.python.org/packages/source/p"
 | |
|                             "/python-poppler-qt4/python-poppler-qt4-"
 | |
|                             version ".tar.gz"))
 | |
|         (sha256
 | |
|          (base32
 | |
|           "0x63niylkk4q3h3ay8zrk3m1xiik0x3hlr4gvj7kswx48qi1vb99"))))
 | |
|     (build-system python-build-system)
 | |
|     (arguments
 | |
|      `(#:phases
 | |
|        (modify-phases %standard-phases
 | |
|          (add-after
 | |
|           'unpack 'patch-poppler-include-paths
 | |
|           (lambda _
 | |
|             (substitute* (find-files "." "poppler-.*\\.sip")
 | |
|               (("qt4/poppler-.*\\.h" header)
 | |
|                (string-append "poppler/" header)))
 | |
|             #t)))))
 | |
|     (native-inputs
 | |
|      `(("pkg-config" ,pkg-config)))
 | |
|     (inputs
 | |
|      `(("python-sip" ,python-sip)
 | |
|        ("python-pyqt-4" ,python-pyqt-4)
 | |
|        ("poppler-qt4" ,poppler-qt4)))
 | |
|     (home-page "https://pypi.python.org/pypi/python-poppler-qt4")
 | |
|     (synopsis "Python bindings for Poppler-Qt4")
 | |
|     (description
 | |
|      "This package provides Python bindings for the Qt4 interface of the
 | |
| Poppler PDF rendering library.")
 | |
|     (license license:lgpl2.1+)))
 | |
| 
 | |
| (define-public python-poppler-qt5
 | |
|   (package
 | |
|     (name "python-poppler-qt5")
 | |
|     (version "0.24.2")
 | |
|     (source
 | |
|       (origin
 | |
|         (method url-fetch)
 | |
|         (uri (pypi-uri "python-poppler-qt5" version))
 | |
|         (sha256
 | |
|          (base32
 | |
|           "0l69llw1fzwz8y90q0qp9q5pifbrqjjbwii7di54dwghw5fc6w1r"))))
 | |
|     (build-system python-build-system)
 | |
|     (arguments
 | |
|      `(;; There are no tests.  The check phase just causes a rebuild.
 | |
|        #:tests? #f
 | |
|        #:phases
 | |
|        (modify-phases %standard-phases
 | |
|          (replace 'build
 | |
|            (lambda* (#:key inputs #:allow-other-keys)
 | |
|              (substitute* "setup.py"
 | |
|                ;; This check always fails, so disable it.
 | |
|                (("if not check_qtxml\\(\\)")
 | |
|                 "if True")
 | |
|                ;; Enable C++11, which is needed because of Qt5.
 | |
|                (("\\*\\*ext_args" line)
 | |
|                 (string-append "extra_compile_args=['-std=gnu++11'], " line)))
 | |
|              ;; We need to pass an extra flag here.  This cannot be in
 | |
|              ;; configure-flags because it should not be passed for the
 | |
|              ;; installation phase.
 | |
|              ((@@ (guix build python-build-system) call-setuppy)
 | |
|               "build_ext" (list (string-append "--pyqt-sip-dir="
 | |
|                                                (assoc-ref inputs "python-pyqt")
 | |
|                                                "/share/sip")) #t))))))
 | |
|     (native-inputs
 | |
|      `(("pkg-config" ,pkg-config)))
 | |
|     (inputs
 | |
|      `(("python-sip" ,python-sip)
 | |
|        ("python-pyqt" ,python-pyqt)
 | |
|        ("poppler-qt5" ,poppler-qt5)
 | |
|        ("qtbase" ,qtbase)))
 | |
|     (home-page "https://pypi.python.org/pypi/python-poppler-qt5")
 | |
|     (synopsis "Python bindings for Poppler-Qt5")
 | |
|     (description
 | |
|      "This package provides Python bindings for the Qt5 interface of the
 | |
| Poppler PDF rendering library.")
 | |
|     (license license:lgpl2.1+)))
 | |
| 
 | |
| (define-public libharu
 | |
|   (package
 | |
|    (name "libharu")
 | |
|    (version "2.3.0")
 | |
|    (source (origin
 | |
|              (method url-fetch)
 | |
|              (uri (string-append "https://github.com/libharu/libharu/archive/"
 | |
|                                  "RELEASE_"
 | |
|                                  (string-join (string-split version #\.) "_")
 | |
|                                  ".tar.gz"))
 | |
|              (file-name (string-append name "-" version ".tar.gz"))
 | |
|              (sha256
 | |
|               (base32
 | |
|                "1lm4v539y9cb1lvbq387j57sy7yxda3yv8b1pk8m6zazbp66i7lg"))))
 | |
|    (build-system gnu-build-system)
 | |
|    (arguments
 | |
|     `(#:configure-flags
 | |
|       (list (string-append "--with-zlib="
 | |
|                            (assoc-ref %build-inputs "zlib"))
 | |
|             (string-append "--with-png="
 | |
|                            (assoc-ref %build-inputs "libpng")))
 | |
|       #:phases
 | |
|       (modify-phases %standard-phases
 | |
|         (add-before 'configure 'autogen
 | |
|           (lambda _ (zero? (system* "autoreconf" "-vif")))))))
 | |
|    (inputs
 | |
|     `(("zlib" ,zlib)
 | |
|       ("libpng" ,libpng)))
 | |
|    (native-inputs
 | |
|     `(("autoconf" ,autoconf)
 | |
|       ("automake" ,automake)
 | |
|       ("libtool" ,libtool)))
 | |
|    (home-page "http://libharu.org/")
 | |
|    (synopsis "Library for generating PDF files")
 | |
|    (description
 | |
|     "libHaru is a library for generating PDF files.  libHaru does not support
 | |
| reading and editing of existing PDF files.")
 | |
|    (license license:zlib)))
 | |
| 
 | |
| (define-public xpdf
 | |
|   (package
 | |
|    (name "xpdf")
 | |
|    (version "3.04")
 | |
|    (source (origin
 | |
|             (method url-fetch)
 | |
|             (uri (string-append "ftp://ftp.foolabs.com/pub/xpdf/xpdf-"
 | |
|                                 version ".tar.gz"))
 | |
|             (sha256 (base32
 | |
|                      "1rbp54mr3z2x3a3a1qmz8byzygzi223vckfam9ib5g1sfds0qf8i"))))
 | |
|    (build-system gnu-build-system)
 | |
|    (inputs `(("freetype" ,freetype)
 | |
|              ("gs-fonts" ,gs-fonts)
 | |
|              ("lesstif" ,lesstif)
 | |
|              ("libpaper" ,libpaper)
 | |
|              ("libx11" ,libx11)
 | |
|              ("libxext" ,libxext)
 | |
|              ("libxp" ,libxp)
 | |
|              ("libxpm" ,libxpm)
 | |
|              ("libxt" ,libxt)
 | |
|              ("libpng" ,libpng)
 | |
|              ("zlib" ,zlib)))
 | |
|    (arguments
 | |
|     `(#:tests? #f ; there is no check target
 | |
|       #:parallel-build? #f ; build fails randomly on 8-way machines
 | |
|       #:configure-flags
 | |
|         (list (string-append "--with-freetype2-includes="
 | |
|                              (assoc-ref %build-inputs "freetype")
 | |
|                              "/include/freetype2"))
 | |
|       #:phases
 | |
|        (alist-replace
 | |
|         'install
 | |
|         (lambda* (#:key outputs inputs #:allow-other-keys #:rest args)
 | |
|          (let* ((install (assoc-ref %standard-phases 'install))
 | |
|                 (out (assoc-ref outputs "out"))
 | |
|                 (xpdfrc (string-append out "/etc/xpdfrc"))
 | |
|                 (gs-fonts (assoc-ref inputs "gs-fonts")))
 | |
|                (apply install args)
 | |
|                (substitute* xpdfrc
 | |
|                 (("/usr/local/share/ghostscript/fonts")
 | |
|                  (string-append gs-fonts "/share/fonts/type1/ghostscript"))
 | |
|                 (("#fontFile") "fontFile"))))
 | |
|         %standard-phases)))
 | |
|    (synopsis "Viewer for PDF files based on the Motif toolkit")
 | |
|    (description
 | |
|     "Xpdf is a viewer for Portable Document Format (PDF) files.")
 | |
|    (license license:gpl3) ; or gpl2, but not gpl2+
 | |
|    (home-page "http://www.foolabs.com/xpdf/")))
 | |
| 
 | |
| (define-public zathura-cb
 | |
|   (package
 | |
|     (name "zathura-cb")
 | |
|     (version "0.1.6")
 | |
|     (source (origin
 | |
|               (method url-fetch)
 | |
|               (uri
 | |
|                (string-append "https://pwmt.org/projects/zathura-cb/download/zathura-cb-"
 | |
|                               version ".tar.gz"))
 | |
|               (sha256
 | |
|                (base32
 | |
|                 "1fim4mpm8l2g3msj1vg70ks3c9lrwllv3yh4jv8l9f8k3r19b3l8"))))
 | |
|     (native-inputs `(("pkg-config" ,pkg-config)))
 | |
|     (propagated-inputs `(("girara" ,girara)))
 | |
|     (inputs `(("libarchive" ,libarchive)
 | |
|               ("gtk+" ,gtk+)
 | |
|               ("zathura" ,zathura)))
 | |
|     (build-system gnu-build-system)
 | |
|     (arguments
 | |
|      `(#:make-flags (list (string-append "PREFIX=" %output)
 | |
|                           (string-append "PLUGINDIR=" %output "/lib/zathura")
 | |
|                           "CC=gcc")
 | |
|        #:tests? #f ; Package does not contain tests.
 | |
|        #:phases
 | |
|        (alist-delete 'configure %standard-phases)))
 | |
|     (home-page "https://pwmt.org/projects/zathura-cb/")
 | |
|     (synopsis "Comic book support for zathura (libarchive backend)")
 | |
|     (description "The zathura-cb plugin adds comic book support to zathura
 | |
| using libarchive.")
 | |
|     (license license:zlib)))
 | |
| 
 | |
| (define-public zathura-ps
 | |
|   (package
 | |
|     (name "zathura-ps")
 | |
|     (version "0.2.4")
 | |
|     (source (origin
 | |
|               (method url-fetch)
 | |
|               (uri
 | |
|                (string-append "https://pwmt.org/projects/zathura-ps/download/zathura-ps-"
 | |
|                               version ".tar.gz"))
 | |
|               (sha256
 | |
|                (base32
 | |
|                 "1nxbl0glnzpan78fhdfzhkcd0cikcvrkzf9m56mb0pvnwzlwg7zv"))))
 | |
|     (native-inputs `(("pkg-config" ,pkg-config)))
 | |
|     (propagated-inputs `(("girara" ,girara)))
 | |
|     (inputs `(("libspectre" ,libspectre)
 | |
|               ("gtk+" ,gtk+)
 | |
|               ("zathura" ,zathura)))
 | |
|     (build-system gnu-build-system)
 | |
|     (arguments
 | |
|      `(#:make-flags (list (string-append "PREFIX=" %output)
 | |
|                           (string-append "PLUGINDIR=" %output "/lib/zathura")
 | |
|                           "CC=gcc")
 | |
|        #:tests? #f ; Package does not contain tests.
 | |
|        #:phases
 | |
|        (alist-delete 'configure %standard-phases)))
 | |
|     (home-page "https://pwmt.org/projects/zathura-ps/")
 | |
|     (synopsis "PS support for zathura (libspectre backend)")
 | |
|     (description "The zathura-ps plugin adds PS support to zathura
 | |
| using libspectre.")
 | |
|     (license license:zlib)))
 | |
| 
 | |
| (define-public zathura-djvu
 | |
|   (package
 | |
|     (name "zathura-djvu")
 | |
|     (version "0.2.6")
 | |
|     (source (origin
 | |
|               (method url-fetch)
 | |
|               (uri
 | |
|                (string-append "https://pwmt.org/projects/zathura-djvu/download/zathura-djvu-"
 | |
|                               version ".tar.gz"))
 | |
|               (sha256
 | |
|                (base32
 | |
|                 "0py0ra44f65cg064xzds0qr6vnglj2a5bwhnbwa0dyh2nyizdzmf"))))
 | |
|     (native-inputs `(("pkg-config" ,pkg-config)))
 | |
|     (propagated-inputs `(("girara" ,girara)))
 | |
|     (inputs
 | |
|      `(("djvulibre" ,djvulibre)
 | |
|        ("gtk+" ,gtk+)
 | |
|        ("zathura" ,zathura)))
 | |
|     (build-system gnu-build-system)
 | |
|     (arguments
 | |
|      `(#:make-flags (list (string-append "PREFIX=" %output)
 | |
|                           (string-append "PLUGINDIR=" %output "/lib/zathura")
 | |
|                           "CC=gcc")
 | |
|        #:tests? #f ; Package does not contain tests.
 | |
|        #:phases
 | |
|        (alist-delete 'configure %standard-phases)))
 | |
|     (home-page "https://pwmt.org/projects/zathura-djvu/")
 | |
|     (synopsis "DjVu support for zathura (DjVuLibre backend)")
 | |
|     (description "The zathura-djvu plugin adds DjVu support to zathura
 | |
| using the DjVuLibre library.")
 | |
|     (license license:zlib)))
 | |
| 
 | |
| (define-public zathura-pdf-poppler
 | |
|   (package
 | |
|     (name "zathura-pdf-poppler")
 | |
|     (version "0.2.7")
 | |
|     (source (origin
 | |
|               (method url-fetch)
 | |
|               (uri
 | |
|                (string-append "https://pwmt.org/projects/zathura-pdf-poppler/download/zathura-pdf-poppler-"
 | |
|                               version ".tar.gz"))
 | |
|               (sha256
 | |
|                (base32
 | |
|                 "1h43sgxpsbrsnn5z19661642plzhpv6b0y3f4kyzshv1rr6lwplq"))))
 | |
|     (native-inputs `(("pkg-config" ,pkg-config)))
 | |
|     (propagated-inputs `(("girara" ,girara)))
 | |
|     (inputs
 | |
|      `(("poppler" ,poppler)
 | |
|        ("gtk+" ,gtk+)
 | |
|        ("zathura" ,zathura)
 | |
|        ("cairo" ,cairo)))
 | |
|     (build-system gnu-build-system)
 | |
|     (arguments
 | |
|      `(#:make-flags (list (string-append "PREFIX=" %output)
 | |
|                           (string-append "PLUGINDIR=" %output "/lib/zathura")
 | |
|                           "CC=gcc")
 | |
|        #:tests? #f ; Package does not include tests.
 | |
|        #:phases
 | |
|        (alist-delete 'configure %standard-phases)))
 | |
|     (home-page "https://pwmt.org/projects/zathura-pdf-poppler/")
 | |
|     (synopsis "PDF support for zathura (poppler backend)")
 | |
|     (description "The zathura-pdf-poppler plugin adds PDF support to zathura
 | |
| by using the poppler rendering engine.")
 | |
|     (license license:zlib)))
 | |
| 
 | |
| (define-public zathura
 | |
|   (package
 | |
|     (name "zathura")
 | |
|     (version "0.3.7")
 | |
|     (source (origin
 | |
|               (method url-fetch)
 | |
|               (uri
 | |
|                (string-append "https://pwmt.org/projects/zathura/download/zathura-"
 | |
|                               version ".tar.gz"))
 | |
|               (sha256
 | |
|                (base32
 | |
|                 "1w0g74dq4z2vl3f99s2gkaqrb5pskgzig10qhbxj4gq9yj4zzbr2"))
 | |
|               (patches (search-patches
 | |
|                         "zathura-plugindir-environment-variable.patch"))))
 | |
|     (native-inputs `(("pkg-config" ,pkg-config)
 | |
|                      ("gettext" ,gettext-minimal)))
 | |
|     (inputs `(("girara" ,girara)
 | |
|               ("sqlite" ,sqlite)
 | |
|               ("gtk+" ,gtk+)))
 | |
|     (native-search-paths
 | |
|      (list (search-path-specification
 | |
|             (variable "ZATHURA_PLUGIN_PATH")
 | |
|             (files '("lib/zathura")))))
 | |
|     (build-system gnu-build-system)
 | |
|     (arguments
 | |
|      `(#:make-flags
 | |
|        `(,(string-append "PREFIX=" (assoc-ref %outputs "out"))
 | |
|          "CC=gcc" "COLOR=0")
 | |
|        #:tests? #f ; Tests fail: "Gtk cannot open display".
 | |
|        #:test-target "test"
 | |
|        #:phases
 | |
|        (alist-delete 'configure %standard-phases)))
 | |
|     (home-page "https://pwmt.org/projects/zathura/")
 | |
|     (synopsis "Lightweight keyboard-driven PDF viewer")
 | |
|     (description "Zathura is a customizable document viewer.  It provides a
 | |
| minimalistic interface and an interface that mainly focuses on keyboard
 | |
| interaction.")
 | |
|     (license license:zlib)))
 | |
| 
 | |
| (define-public podofo
 | |
|   (package
 | |
|     (name "podofo")
 | |
|     (version "0.9.5")
 | |
|     (source (origin
 | |
|               (method url-fetch)
 | |
|               (uri (string-append "mirror://sourceforge/podofo/podofo/" version
 | |
|                                   "/podofo-" version ".tar.gz"))
 | |
|               (sha256
 | |
|                (base32
 | |
|                 "012kgfx5j5n6w4zkc1d290d2cwjk60jhzsjlr2x19g3yi75q2jc5"))))
 | |
|     (build-system cmake-build-system)
 | |
|     (inputs                                      ; TODO: Add cppunit for tests
 | |
|      `(("lua" ,lua-5.1)
 | |
|        ("libpng" ,libpng)
 | |
|        ("openssl" ,openssl)
 | |
|        ("fontconfig" ,fontconfig)
 | |
|        ("libtiff" ,libtiff)
 | |
|        ("libjpeg" ,libjpeg-8)
 | |
|        ("freetype" ,freetype)
 | |
|        ("zlib" ,zlib)))
 | |
|     (arguments
 | |
|      `(#:configure-flags '("-DPODOFO_BUILD_SHARED=ON"
 | |
|                            "-DPODOFO_BUILD_STATIC=ON")
 | |
|        #:phases
 | |
|          (alist-cons-before
 | |
|          'configure 'patch
 | |
|          (lambda* (#:key inputs #:allow-other-keys)
 | |
|            (let ((freetype (assoc-ref inputs "freetype")))
 | |
|              ;; Look for freetype include files in the correct place.
 | |
|              (substitute* "cmake/modules/FindFREETYPE.cmake"
 | |
|                (("/usr/local") freetype))))
 | |
|          %standard-phases)))
 | |
|     (home-page "http://podofo.sourceforge.net")
 | |
|     (synopsis "Tools to work with the PDF file format")
 | |
|     (description
 | |
|      "PoDoFo is a C++ library and set of command-line tools to work with the
 | |
| PDF file format.  It can parse PDF files and load them into memory, and makes
 | |
| it easy to modify them and write the changes to disk.  It is primarily useful
 | |
| for applications that wish to do lower level manipulation of PDF, such as
 | |
| extracting content or merging files.")
 | |
|     (license license:lgpl2.0+)))
 | |
| 
 | |
| (define-public mupdf
 | |
|   (package
 | |
|     (name "mupdf")
 | |
|     (version "1.11")
 | |
|     (source
 | |
|       (origin
 | |
|         (method url-fetch)
 | |
|         (uri (string-append "http://mupdf.com/downloads/archive/"
 | |
|                             name "-" version "-source.tar.gz"))
 | |
|         (sha256
 | |
|          (base32
 | |
|           "02phamcchgsmvjnb3ir7r5sssvx9fcrscn297z73b82n1jl79510"))
 | |
|         (patches (search-patches "mupdf-build-with-openjpeg-2.1.patch"))
 | |
|         (modules '((guix build utils)))
 | |
|         (snippet
 | |
|             ;; Delete all the bundled libraries except for mujs, which is
 | |
|             ;; developed by the same team as mupdf and has no releases.
 | |
|             ;; TODO Package mujs and don't use the bundled copy.
 | |
|             '(for-each delete-file-recursively
 | |
|                        '("thirdparty/curl"
 | |
|                          "thirdparty/freetype"
 | |
|                          "thirdparty/glfw"
 | |
|                          "thirdparty/harfbuzz"
 | |
|                          "thirdparty/jbig2dec"
 | |
|                          "thirdparty/libjpeg"
 | |
|                          "thirdparty/openjpeg"
 | |
|                          "thirdparty/zlib")))))
 | |
|     (build-system gnu-build-system)
 | |
|     (inputs
 | |
|       `(("curl" ,curl)
 | |
|         ("freetype" ,freetype)
 | |
|         ("harfbuzz" ,harfbuzz)
 | |
|         ("jbig2dec" ,jbig2dec)
 | |
|         ("libjpeg" ,libjpeg)
 | |
|         ("libx11" ,libx11)
 | |
|         ("libxext" ,libxext)
 | |
|         ("openjpeg" ,openjpeg)
 | |
|         ("openssl" ,openssl)
 | |
|         ("zlib" ,zlib)))
 | |
|     (native-inputs
 | |
|       `(("pkg-config" ,pkg-config)))
 | |
|     (arguments
 | |
|       '(#:tests? #f ; no check target
 | |
|         #:make-flags (list "CC=gcc"
 | |
|                            "XCFLAGS=-fpic"
 | |
|                            (string-append "prefix=" (assoc-ref %outputs "out")))
 | |
|         #:phases (modify-phases %standard-phases
 | |
|                   (delete 'configure))))
 | |
|     (home-page "http://mupdf.com")
 | |
|     (synopsis "Lightweight PDF viewer and toolkit")
 | |
|     (description
 | |
|       "MuPDF is a C library that implements a PDF and XPS parsing and
 | |
| rendering engine.  It is used primarily to render pages into bitmaps,
 | |
| but also provides support for other operations such as searching and
 | |
| listing the table of contents and hyperlinks.
 | |
| 
 | |
| The library ships with a rudimentary X11 viewer, and a set of command
 | |
| line tools for batch rendering (pdfdraw), rewriting files (pdfclean),
 | |
| and examining the file structure (pdfshow).")
 | |
|     (license license:agpl3+)))
 | |
| 
 | |
| (define-public qpdf
 | |
|   (package
 | |
|    (name "qpdf")
 | |
|    (version "6.0.0")
 | |
|    (source (origin
 | |
|             (method url-fetch)
 | |
|             (uri (string-append "mirror://sourceforge/qpdf/qpdf/" version
 | |
|                                 "/qpdf-" version ".tar.gz"))
 | |
|             (sha256
 | |
|              (base32
 | |
|               "0csj2p2gkxrc0rk8ykymlsdgfas96vzf1dip3y1x7z1q9plwgzd9"))
 | |
|             (modules '((guix build utils)))
 | |
|             (snippet
 | |
|              ;; Replace shebang with the bi-lingual shell/Perl trick to remove
 | |
|              ;; dependency on Perl.
 | |
|              '(substitute* "qpdf/fix-qdf"
 | |
|                 (("#!/usr/bin/env perl")
 | |
|                  "\
 | |
| eval '(exit $?0)' && eval 'exec perl -wS \"$0\" ${1+\"$@\"}'
 | |
|   & eval 'exec perl -wS \"$0\" $argv:q'
 | |
|     if 0;\n")))))
 | |
|    (build-system gnu-build-system)
 | |
|    (arguments
 | |
|     `(#:disallowed-references (,perl)
 | |
|       #:phases
 | |
|       (modify-phases %standard-phases
 | |
|         (add-before 'configure 'patch-paths
 | |
|           (lambda _
 | |
|             (substitute* "make/libtool.mk"
 | |
|               (("SHELL=/bin/bash")
 | |
|                (string-append "SHELL=" (which "bash"))))
 | |
|             (substitute* (append
 | |
|                           '("qtest/bin/qtest-driver")
 | |
|                           (find-files "." "\\.test"))
 | |
|               (("/usr/bin/env") (which "env"))))))))
 | |
|    (native-inputs
 | |
|     `(("pkg-config" ,pkg-config)
 | |
|       ("perl" ,perl)))
 | |
|    (propagated-inputs
 | |
|     `(("pcre" ,pcre)))
 | |
|    (inputs
 | |
|     `(("zlib" ,zlib)))
 | |
|    (synopsis "Command-line tools and library for transforming PDF files")
 | |
|    (description
 | |
|     "QPDF is a command-line program that does structural, content-preserving
 | |
| transformations on PDF files.  It could have been called something like
 | |
| pdf-to-pdf.  It includes support for merging and splitting PDFs and to
 | |
| manipulate the list of pages in a PDF file.  It is not a PDF viewer or a
 | |
| program capable of converting PDF into other formats.")
 | |
|    (license license:clarified-artistic)
 | |
|    (home-page "http://qpdf.sourceforge.net/")))
 | |
| 
 | |
| (define-public xournal
 | |
|   (package
 | |
|     (name "xournal")
 | |
|     (version "0.4.8")
 | |
|     (source
 | |
|      (origin
 | |
|        (method url-fetch)
 | |
|        (uri (string-append "mirror://sourceforge/xournal/xournal/" version
 | |
|                            "/xournal-" version ".tar.gz"))
 | |
|        (sha256
 | |
|         (base32
 | |
|          "0c7gjcqhygiyp0ypaipdaxgkbivg6q45vhsj8v5jsi9nh6iqff13"))))
 | |
|     (build-system gnu-build-system)
 | |
|     (inputs
 | |
|      `(("gtk" ,gtk+-2)
 | |
|        ("pango" ,pango)
 | |
|        ("poppler" ,poppler)
 | |
|        ("glib" ,glib)
 | |
|        ("libgnomecanvas" ,libgnomecanvas)))
 | |
|     (native-inputs
 | |
|      `(("pkg-config" ,pkg-config)))
 | |
|     (home-page "http://xournal.sourceforge.net/")
 | |
|     (synopsis "Notetaking using a stylus")
 | |
|     (description
 | |
|      "Xournal is an application for notetaking, sketching, keeping a journal
 | |
| using a stylus.")
 | |
|     (license license:gpl2+)))
 | |
| 
 | |
| (define-public python-reportlab
 | |
|   (package
 | |
|     (name "python-reportlab")
 | |
|     (version "3.3.0")
 | |
|     (source (origin
 | |
|               (method url-fetch)
 | |
|               (uri (pypi-uri "reportlab" version))
 | |
|               (sha256
 | |
|                (base32
 | |
|                 "0rz2pg04wnzjjm2f5a8ik9v8s54mv4xrjhv5liqjijqv6awh12gl"))))
 | |
|     (build-system python-build-system)
 | |
|     (arguments
 | |
|      '(;; FIXME: There is one test failure, but it does not cause the
 | |
|        ;; build to fail. No time to investigate right now.
 | |
|        #:test-target "tests"))
 | |
|     (propagated-inputs
 | |
|      `(("python-pillow" ,python-pillow)))
 | |
|     (home-page "http://www.reportlab.com")
 | |
|     (synopsis "Python library for generating PDFs and graphics")
 | |
|     (description "This is the ReportLab PDF Toolkit.  It allows rapid creation
 | |
| of rich PDF documents, and also creation of charts in a variety of bitmap and
 | |
| vector formats.")
 | |
|     (license license:bsd-3)))
 | |
| 
 | |
| (define-public python2-reportlab
 | |
|   (package-with-python2 python-reportlab))
 | |
| 
 | |
| (define-public impressive
 | |
|   (package
 | |
|     (name "impressive")
 | |
|     (version "0.11.1")
 | |
|     (source (origin
 | |
|               (method url-fetch)
 | |
|               (uri (string-append
 | |
|                     "mirror://sourceforge/impressive/Impressive/"
 | |
|                     version "/Impressive-" version ".tar.gz"))
 | |
|               (sha256
 | |
|                (base32
 | |
|                 "0b3rmy6acp2vmf5nill3aknxvr9a5aawk1vnphkah61anxp62gsr"))))
 | |
|     (build-system python-build-system)
 | |
| 
 | |
|     ;; TODO: Add dependency on pdftk.
 | |
|     (inputs `(("python-pygame" ,python-pygame)
 | |
|               ("python2-pillow" ,python2-pillow)
 | |
|               ("sdl" ,sdl)
 | |
|               ("xpdf" ,xpdf)))
 | |
| 
 | |
|     (arguments
 | |
|      `(#:python ,python-2
 | |
|        #:phases (modify-phases %standard-phases
 | |
|                   (delete 'build)
 | |
|                   (delete 'configure)
 | |
|                   (delete 'check)
 | |
|                   (replace 'install
 | |
|                     (lambda* (#:key inputs outputs #:allow-other-keys)
 | |
|                       ;; There's no 'setup.py' so install things manually.
 | |
|                       (let* ((out  (assoc-ref outputs "out"))
 | |
|                              (bin  (string-append out "/bin"))
 | |
|                              (man1 (string-append out "/share/man/man1"))
 | |
|                              (sdl  (assoc-ref inputs "sdl"))
 | |
|                              (xpdf (assoc-ref inputs "xpdf")))
 | |
|                         (mkdir-p bin)
 | |
|                         (copy-file "impressive.py"
 | |
|                                    (string-append bin "/impressive"))
 | |
|                         (wrap-program (string-append bin "/impressive")
 | |
|                           `("LIBRARY_PATH" ":" prefix ;for ctypes
 | |
|                             (,(string-append sdl "/lib")))
 | |
|                           `("PATH" ":" prefix     ;for pdftoppm
 | |
|                             (,(string-append xpdf "/bin"))))
 | |
|                         (install-file "impressive.1" man1)
 | |
|                         #t))))))
 | |
|     (home-page "http://impressive.sourceforge.net")
 | |
|     (synopsis "PDF presentation tool with visual effects")
 | |
|     (description
 | |
|      "Impressive is a tool to display PDF files that provides visual effects
 | |
| such as smooth alpha-blended slide transitions.  It provides additional tools
 | |
| such as zooming, highlighting an area of the screen, and a tool to navigate
 | |
| the PDF pages.")
 | |
|     (license license:gpl2)))
 | |
| 
 | |
| (define-public fbida
 | |
|   (package
 | |
|     (name "fbida")
 | |
|     (version "2.12")
 | |
|     (home-page "https://www.kraxel.org/blog/linux/fbida/")
 | |
|     (source (origin
 | |
|               (method url-fetch)
 | |
|               (uri (string-append "https://www.kraxel.org/releases/fbida/"
 | |
|                                   name "-" version ".tar.gz"))
 | |
|               (sha256
 | |
|                (base32
 | |
|                 "0bw224vb7jh0lrqaf4jgxk48xglvxs674qcpj5y0axyfbh896cfk"))))
 | |
|     (build-system gnu-build-system)
 | |
|     (arguments
 | |
|       '(#:phases (alist-cons-after
 | |
|                   'unpack 'patch-ldconfig
 | |
|                   (lambda _
 | |
|                    (substitute* "mk/Autoconf.mk"
 | |
|                     (("/sbin/ldconfig -p") "echo lib")) #t)
 | |
|                   (alist-delete 'configure %standard-phases))
 | |
|         #:tests? #f
 | |
|         #:make-flags (list "CC=gcc"
 | |
|                            (string-append "prefix=" (assoc-ref %outputs "out")))))
 | |
|     (inputs `(("libjpeg" ,libjpeg)
 | |
|               ("curl" ,curl)
 | |
|               ("libtiff" ,libtiff)
 | |
|               ("libudev" ,eudev)
 | |
|               ("libwebp" ,libwebp)
 | |
|               ("libdrm" ,libdrm)
 | |
|               ("imagemagick" ,imagemagick)
 | |
|               ("giflib" ,giflib)
 | |
|               ("glib" ,glib)
 | |
|               ("cairo-xcb" ,cairo-xcb)
 | |
|               ("freetype" ,freetype)
 | |
|               ("fontconfig" ,fontconfig)
 | |
|               ("libexif" ,libexif)
 | |
|               ("mesa" ,mesa)
 | |
|               ("libepoxy" ,libepoxy)
 | |
|               ("libpng" ,libpng)
 | |
|               ("poppler" ,poppler)))
 | |
|     (native-inputs `(("pkg-config" ,pkg-config)))
 | |
|     (synopsis "Framebuffer and drm-based image viewer")
 | |
|     (description
 | |
|       "fbida contains a few applications for viewing and editing images on
 | |
| the framebuffer.")
 | |
| 
 | |
|     (license license:gpl2+)))
 | |
| 
 | |
| (define-public pdf2svg
 | |
|   (package
 | |
|     (name "pdf2svg")
 | |
|     (version "0.2.3")
 | |
|     (source (origin
 | |
|               (method url-fetch)
 | |
|               (uri (string-append
 | |
|                     "https://github.com/dawbarton/pdf2svg/archive/v"
 | |
|                     version ".tar.gz"))
 | |
|               (file-name (string-append name "-" version ".tar.gz"))
 | |
|               (sha256
 | |
|                (base32
 | |
|                 "12pa1pajirnlrkz2il3h4l30lc2prryk1qr132jk6z9y1c3qdcag"))))
 | |
|     (build-system gnu-build-system)
 | |
|     (inputs
 | |
|      `(("cairo" ,cairo)
 | |
|        ("poppler" ,poppler)))
 | |
|     (native-inputs
 | |
|      `(("pkg-config" ,pkg-config)))
 | |
|     (home-page "http://www.cityinthesky.co.uk/opensource/pdf2svg/")
 | |
|     (synopsis "PDF to SVG converter")
 | |
|     (description "@command{pdf2svg} is a simple command-line PDF to SVG
 | |
| converter using the Poppler and Cairo libraries.")
 | |
|     (license license:gpl2+)))
 | |
| 
 | |
| (define-public python-pypdf2
 | |
|   (package
 | |
|     (name "python-pypdf2")
 | |
|     (version "1.26.0")
 | |
|     (source (origin
 | |
|               (method url-fetch)
 | |
|               (uri (pypi-uri "PyPDF2" version))
 | |
|               (sha256
 | |
|                (base32
 | |
|                 "11a3aqljg4sawjijkvzhs3irpw0y67zivqpbjpm065ha5wpr13z2"))))
 | |
|     (build-system python-build-system)
 | |
|     (arguments
 | |
|      `(#:phases
 | |
|        (modify-phases %standard-phases
 | |
|          (add-after
 | |
|           'unpack 'patch-test-suite
 | |
|           (lambda _
 | |
|             ;; The text-file needs to be opened in binary mode for Python 3,
 | |
|             ;; so patch in the "b"
 | |
|             (substitute* "Tests/tests.py"
 | |
|               (("pdftext_file = open\\(.* 'crazyones.txt'\\), 'r" line)
 | |
|                (string-append line "b")))
 | |
|             #t))
 | |
|          (replace 'check
 | |
|            (lambda _
 | |
|              (zero? (system* "python" "-m" "unittest" "Tests.tests")))))))
 | |
|     (home-page "http://mstamy2.github.com/PyPDF2")
 | |
|     (synopsis "Pure Python PDF toolkit")
 | |
|     (description "PyPDF2 is a pure Python PDF library capable of:
 | |
| 
 | |
| @enumerate
 | |
| @item extracting document information (title, author, …)
 | |
| @item splitting documents page by page
 | |
| @item merging documents page by page
 | |
| @item cropping pages
 | |
| @item merging multiple pages into a single page
 | |
| @item encrypting and decrypting PDF files
 | |
| @end enumerate
 | |
| 
 | |
| By being pure Python, it should run on any Python platform without any
 | |
| dependencies on external libraries.  It can also work entirely on
 | |
| @code{StringIO} objects rather than file streams, allowing for PDF
 | |
| manipulation in memory.  It is therefore a useful tool for websites that
 | |
| manage or manipulate PDFs.")
 | |
|     (license license:bsd-3)))
 | |
| 
 | |
| (define-public python2-pypdf2
 | |
|   (package-with-python2 python-pypdf2))
 | |
| 
 | |
| (define-public python2-pypdf
 | |
|   (package
 | |
|     (name "python2-pypdf")
 | |
|     (version "1.13")
 | |
|     (source (origin
 | |
|               (method url-fetch)
 | |
|               (uri (pypi-uri "pyPdf" version))
 | |
|               (sha256
 | |
|                (base32
 | |
|                 "0fqfvamir7k41w84c73rghzkiv891gdr17q5iz4hgbf6r71y9v9s"))))
 | |
|     (build-system python-build-system)
 | |
|     (arguments
 | |
|      `(#:tests? #f  ; no tests
 | |
|        #:python ,python-2))
 | |
|     (home-page "http://pybrary.net/pyPdf/")
 | |
|     (synopsis "Pure Python PDF toolkit")
 | |
|     (description "PyPDF2 is a pure Python PDF toolkit.
 | |
| 
 | |
| Note: This module isn't maintained anymore.  For new projects please use
 | |
| python-pypdf2 instead.")
 | |
|     (license license:bsd-3)))
 | |
| 
 | |
| (define-public pdfposter
 | |
|   (package
 | |
|     (name "pdfposter")
 | |
|     (version "0.6.0")
 | |
|     (source (origin
 | |
|               (method url-fetch)
 | |
|               (uri (pypi-uri "pdftools.pdfposter" version ".tar.bz2"))
 | |
|               (sha256
 | |
|                (base32
 | |
|                 "1i9jqawf279va089ykicglcq4zlsnwgcnsdzaa8vnm836lqhywma"))))
 | |
|     (build-system python-build-system)
 | |
|     (arguments
 | |
|      `(#:tests? #f  ; no test suite, only for visual control
 | |
|        #:python ,python-2))
 | |
|     (inputs
 | |
|      ;; pdfposter 0.6.0 still uses the old pyPdf
 | |
|      `(("python2-pypdf" ,python2-pypdf)))
 | |
|     (home-page "https://pythonhosted.org/pdftools.pdfposter/")
 | |
|     (synopsis "Scale and tile PDF images/pages to print on multiple pages")
 | |
|     (description "@command{pdfposter} can be used to create a large poster by
 | |
| building it from multple pages and/or printing it on large media.  It expects
 | |
| as input a PDF file, normally printing on a single page.  The output is again
 | |
| a PDF file, maybe containing multiple pages together building the poster.  The
 | |
| input page will be scaled to obtain the desired size.
 | |
| 
 | |
| This is much like @command{poster} does for Postscript files, but working with
 | |
| PDF.  Since sometimes @command{poster} does not like your files converted from
 | |
| PDF.  Indeed @command{pdfposter} was inspired by @command{poster}.")
 | |
|     (license license:gpl3+)))
 | |
| 
 | |
| (define-public pdfgrep
 | |
|   (package
 | |
|     (name "pdfgrep")
 | |
|     (version "2.0.1")
 | |
|     (source
 | |
|      (origin
 | |
|        (method url-fetch)
 | |
|        (uri (string-append "https://pdfgrep.org/download/"
 | |
|                            name "-" version ".tar.gz"))
 | |
|        (sha256
 | |
|         (base32
 | |
|          "07llkrkcfjwd3ybai9ad10ybhr0biffcplmy7lw4fb87nd2dfw03"))))
 | |
|     (build-system gnu-build-system)
 | |
|     (native-inputs
 | |
|      `(("pkg-config" ,pkg-config)))
 | |
|     (inputs
 | |
|      `(("libgcrypt" ,libgcrypt)
 | |
|        ("pcre" ,pcre)
 | |
|        ("poppler" ,poppler)))
 | |
|     (home-page "https://pdfgrep.org")
 | |
|     (synopsis "Command-line utility to search text in PDF files")
 | |
|     (description
 | |
|      "Pdfgrep searches in pdf files for strings matching a regular expression.
 | |
| Support some GNU grep options as file name output, page number output,
 | |
| optional case insensitivity, count occurrences, color highlights and search in
 | |
| multiple files.")
 | |
|     (license license:gpl2+)))
 |