gnu/packages/cups.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2015 Ricardo Wurmus <rekado@elephly.net>
   3 ;;; Copyright © 2015, 2016, 2017, 2019 Ludovic Courtès <ludo@gnu.org>
   4 ;;; Copyright © 2015, 2016, 2017, 2018 Efraim Flashner <efraim@flashner.co.il>
   5 ;;; Copyright © 2016 Danny Milosavljevic <dannym@scratchpost.org>
   6 ;;; Copyright © 2017 Leo Famulari <leo@famulari.name>
   7 ;;; Copyright © 2017 Mark H Weaver <mhw@netris.org>
   8 ;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
   9 ;;;
  10 ;;; This file is part of GNU Guix.
  11 ;;;
  12 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  13 ;;; under the terms of the GNU General Public License as published by
  14 ;;; the Free Software Foundation; either version 3 of the License, or (at
  15 ;;; your option) any later version.
  16 ;;;
  17 ;;; GNU Guix is distributed in the hope that it will be useful, but
  18 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  19 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20 ;;; GNU General Public License for more details.
  21 ;;;
  22 ;;; You should have received a copy of the GNU General Public License
  23 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  24
  25 (define-module (gnu packages cups)
  26   #:use-module (gnu packages)
  27   #:use-module (gnu packages algebra)
  28   #:use-module (gnu packages autotools)
  29   #:use-module (gnu packages avahi)
  30   #:use-module (gnu packages compression)
  31   #:use-module (gnu packages fonts)     ; font-dejavu
  32   #:use-module (gnu packages fontutils)
  33   #:use-module (gnu packages ghostscript)
  34   #:use-module (gnu packages glib)
  35   #:use-module (gnu packages groff)
  36   #:use-module (gnu packages image)
  37   #:use-module (gnu packages libusb)
  38   #:use-module (gnu packages pdf)
  39   #:use-module (gnu packages perl)
  40   #:use-module (gnu packages pkg-config)
  41   #:use-module (gnu packages polkit)
  42   #:use-module (gnu packages pretty-print)
  43   #:use-module (gnu packages python)
  44   #:use-module (gnu packages python-xyz)
  45   #:use-module (gnu packages qt)
  46   #:use-module (gnu packages scanner)
  47   #:use-module (gnu packages tls)
  48   #:use-module (guix build-system gnu)
  49   #:use-module (guix build-system python)
  50   #:use-module (guix download)
  51   #:use-module (guix svn-download)
  52   #:use-module ((guix licenses) #:prefix license:)
  53   #:use-module (guix packages)
  54   #:use-module (guix utils)
  55   #:use-module (srfi srfi-1)
  56   #:use-module (ice-9 match))
  57
  58 (define-public cups-filters
  59   (package
  60     (name "cups-filters")
  61     (version "1.25.7")
  62     (source(origin
  63               (method url-fetch)
  64               (uri
  65                (string-append "https://openprinting.org/download/cups-filters/"
  66                               "cups-filters-" version ".tar.xz"))
  67               (sha256
  68                (base32
  69                 "015lb60744win3hw84s1m1gyyb6n3vj4rw12yvm1fai8gf2zi4k9"))
  70               (modules '((guix build utils)))
  71               (snippet
  72                ;; install backends, banners and filters to cups-filters output
  73                ;; directory, not the cups server directory
  74                '(begin
  75                   (substitute* "Makefile.in"
  76                     (("CUPS_DATADIR = @CUPS_DATADIR@")
  77                      "CUPS_DATADIR = $(PREFIX)/share/cups")
  78                     (("pkgcupsserverrootdir = \\$\\(CUPS_SERVERROOT\\)")
  79                      "pkgcupsserverrootdir = $(PREFIX)")
  80                     ;; Choose standard directories notably so that binaries are
  81                     ;; stripped.
  82                     (("pkgbackenddir = \\$\\(CUPS_SERVERBIN\\)/backend")
  83                      "pkgbackenddir = $(PREFIX)/lib/cups/backend")
  84                     (("pkgfilterdir = \\$\\(CUPS_SERVERBIN\\)/filter")
  85                      "pkgfilterdir = $(PREFIX)/lib/cups/filter"))
  86                   ;; Find bannertopdf data such as the print test page in our
  87                   ;; output directory, not CUPS's prefix.
  88                   (substitute* "configure"
  89                     (("\\{CUPS_DATADIR\\}/data")
  90                      "{prefix}/share/cups/data"))
  91                   #t))))
  92     (build-system gnu-build-system)
  93     (arguments
  94      `(#:make-flags (list (string-append "PREFIX=" %output))
  95        #:configure-flags
  96        `("--disable-driverless" ; TODO: enable this
  97          "--disable-mutool"     ; depends on yet another PDF library (mupdf)
  98
  99          ;; Look for the "domain socket of CUPS" in /var/run/cups.
 100          "--localstatedir=/var"
 101
 102          ;; Free software for the win.
 103          "--with-acroread-path=evince"
 104
 105          ,(string-append "--with-test-font-path="
 106                          (assoc-ref %build-inputs "font-dejavu")
 107                          "/share/fonts/truetype/DejaVuSans.ttf")
 108          ,(string-append "--with-gs-path="
 109                          (assoc-ref %build-inputs "ghostscript")
 110                          "/bin/gsc")
 111          ,(string-append "--with-shell="
 112                          (assoc-ref %build-inputs "bash")
 113                          "/bin/bash")
 114          ,(string-append "--with-rcdir="
 115                          (assoc-ref %outputs "out") "/etc/rc.d"))
 116
 117        #:phases (modify-phases %standard-phases
 118                   (add-after 'unpack 'patch-foomatic-hardcoded-file-names
 119                     (lambda* (#:key inputs outputs #:allow-other-keys)
 120                       ;; Foomatic has hardcoded file names we need to fix.
 121                       (let ((out (assoc-ref outputs "out"))
 122                             (gs  (assoc-ref inputs "ghostscript")))
 123                         (substitute* "filter/foomatic-rip/foomaticrip.c"
 124                           (("/usr/local/lib/cups/filter")
 125                            (string-append out "/lib/cups/filter")))
 126                         #t)))
 127                   (add-after 'unpack 'patch-for-poppler
 128                     (lambda _
 129                       (substitute* "filter/pdf.cxx"
 130                         (("GooString \\*field_name;" m)
 131                          (string-append "const " m)))
 132                       #t))
 133                   (add-after 'install 'wrap-filters
 134                     (lambda* (#:key inputs outputs #:allow-other-keys)
 135                       ;; Some filters expect to find 'gs' in $PATH.  We cannot
 136                       ;; just hard-code its absolute file name in the source
 137                       ;; because foomatic-rip, for example, has tests like
 138                       ;; 'startswith(cmd, "gs")'.
 139                       (let ((out         (assoc-ref outputs "out"))
 140                             (ghostscript (assoc-ref inputs "ghostscript")))
 141                         (for-each (lambda (file)
 142                                     (wrap-program file
 143                                       `("PATH" ":" prefix
 144                                         (,(string-append ghostscript
 145                                                          "/bin")))))
 146                                   (find-files (string-append
 147                                                out "/lib/cups/filter")))
 148                         #t))))))
 149     (native-inputs
 150      `(("glib" ,glib "bin") ; for gdbus-codegen
 151        ("pkg-config" ,pkg-config)))
 152     (inputs
 153      `(("avahi"        ,avahi)
 154        ("fontconfig"   ,fontconfig)
 155        ("freetype"     ,freetype)
 156        ("font-dejavu"  ,font-dejavu) ; also needed by test suite
 157        ("ghostscript"  ,ghostscript/cups)
 158        ("ijs"          ,ijs)
 159        ("dbus"         ,dbus)
 160        ("lcms"         ,lcms)
 161        ("libjpeg"      ,libjpeg)
 162        ("libpng"       ,libpng)
 163        ("libtiff"      ,libtiff)
 164        ("glib"         ,glib)
 165        ("qpdf"         ,qpdf)
 166        ("poppler"      ,poppler)
 167        ("cups-minimal" ,cups-minimal)))
 168     (home-page "https://wiki.linuxfoundation.org/openprinting/cups-filters")
 169     (synopsis "OpenPrinting CUPS filters and backends")
 170     (description
 171      "Contains backends, filters, and other software that was once part of the
 172 core CUPS distribution but is no longer maintained by Apple Inc.  In addition
 173 it contains additional filters developed independently of Apple, especially
 174 filters for the PDF-centric printing workflow introduced by OpenPrinting.")
 175     ;; Different filters and backends have different licenses; see COPYING for
 176     ;; details
 177     (license (list license:gpl2
 178                    license:gpl2+
 179                    license:gpl3
 180                    license:gpl3+
 181                    license:lgpl2.0+
 182                    license:expat))))
 183
 184 ;; CUPS on non-MacOS systems requires cups-filters.  Since cups-filters also
 185 ;; depends on CUPS libraries and binaries, cups-minimal has been added to
 186 ;; satisfy this dependency.
 187 (define-public cups-minimal
 188   (package
 189     (name "cups-minimal")
 190     (version "2.3.0")
 191     (source
 192      (origin
 193        (method url-fetch)
 194        (uri (string-append "https://github.com/apple/cups/releases/download/v"
 195                            version "/cups-" version "-source.tar.gz"))
 196        (sha256
 197         (base32
 198          "19d1jpdpxy0fclq37pchi7ldnw9dssxx3zskcgqai3h0rwlh5bxc"))))
 199     (build-system gnu-build-system)
 200     (arguments
 201      `(#:configure-flags
 202        '("--disable-launchd"
 203          "--disable-systemd"
 204          "--disable-avahi"
 205          "--disable-dnssd")
 206        ;; Seven tests fail, mostly because of files that are provided by the
 207        ;; cups-filters package.
 208        #:tests? #f
 209        #:phases
 210        (modify-phases %standard-phases
 211          (add-before 'configure 'patch-makedefs
 212            (lambda _
 213              (substitute* "Makedefs.in"
 214                (("INITDIR.*=.*@INITDIR@") "INITDIR = @prefix@/@INITDIR@")
 215                (("/bin/sh") (which "sh")))
 216              #t))
 217          ;; Make the compressed manpages writable so that the
 218          ;; reset-gzip-timestamps phase does not error out.
 219          (add-before 'reset-gzip-timestamps 'make-manpages-writable
 220            (lambda* (#:key outputs #:allow-other-keys)
 221              (let* ((out (assoc-ref outputs "out"))
 222                     (man (string-append out "/share/man")))
 223                (for-each (lambda (file) (chmod file #o644))
 224                          (find-files man "\\.gz"))
 225                #t)))
 226          (add-before 'build 'patch-tests
 227            (lambda _
 228              (substitute* "tools/ippeveprinter.c"
 229                (("#  else /\\* HAVE_AVAHI \\*/")
 230                 "#elif defined(HAVE_AVAHI)"))
 231              #t)))))
 232     (native-inputs
 233      `(("pkg-config" ,pkg-config)))
 234     (inputs
 235      `(("zlib"  ,zlib)
 236        ("gnutls" ,gnutls)))
 237     (home-page "https://www.cups.org")
 238     (synopsis "The Common Unix Printing System")
 239     (description
 240      "CUPS is a printing system that uses the Internet Printing Protocol
 241 (@dfn{IPP}).  It provides System V and BSD command-line interfaces, as well
 242 as a Web interface and a C programming interface to manage printers and print
 243 jobs.  It supports printing to both local (parallel, serial, USB) and
 244 networked printers, and printers can be shared from one computer to another.
 245 Internally, CUPS uses PostScript Printer Description (@dfn{PPD}) files to
 246 describe printer capabilities and features, and a wide variety of generic and
 247 device-specific programs to convert and print many types of files.")
 248     ;; CUPS is Apache 2.0 with exceptions, see the NOTICE file.
 249     (license license:asl2.0)))
 250
 251 (define-public cups
 252   (package (inherit cups-minimal)
 253     (name "cups")
 254     (arguments
 255      `(;; Three tests fail:
 256        ;; * two tests in ipp-1.1.test related to "RFC 2911 section 3.2.6:
 257        ;;   Get-Jobs Operation"
 258        ;; * test of number of error/warning messages, probably related to a
 259        ;;   missing font.
 260        #:tests? #f
 261        #:configure-flags
 262        '("--disable-launchd"
 263          "--disable-systemd")
 264        #:phases
 265        (modify-phases %standard-phases
 266          (add-before 'configure 'patch-makedefs
 267            (lambda _
 268              (substitute* "Makedefs.in"
 269                (("INITDIR.*=.*@INITDIR@") "INITDIR = @prefix@/@INITDIR@")
 270                (("/bin/sh") (which "sh")))
 271              #t))
 272          (add-before 'check 'patch-tests
 273            (lambda _
 274              (let ((filters (assoc-ref %build-inputs "cups-filters"))
 275                    (catpath (string-append
 276                              (assoc-ref %build-inputs "coreutils") "/bin/"))
 277                    (testdir (string-append (getcwd) "/tmp/")))
 278                (mkdir testdir)
 279                (substitute* "test/run-stp-tests.sh"
 280                  ((" *BASE=/tmp/") (string-append "BASE=" testdir))
 281
 282                  ;; allow installation of filters from output dir and from
 283                  ;; cups-filters
 284                  (("for dir in /usr/libexec/cups/filter /usr/lib/cups/filter")
 285                   (string-append
 286                    "for dir in "
 287                    (assoc-ref %outputs "out") "/lib/cups/filter "
 288                    filters "/lib/cups/filter"))
 289
 290                  ;; check for charsets in cups-filters output
 291                  (("/usr/share/cups/charsets")
 292                   (string-append filters "/share/cups/charsets"))
 293
 294                  ;; install additional required filters
 295                  (("instfilter texttopdf texttopdf pdf")
 296                   (string-append
 297                    "instfilter texttopdf texttopdf pdf;"
 298                    "instfilter imagetoraster imagetoraster raster;"
 299                    "instfilter gstoraster gstoraster raster;"
 300                    "instfilter urftopdf urftopdf pdf;"
 301                    "instfilter rastertopdf rastertopdf pdf;"
 302                    "instfilter pstopdf pstopdf pdf"))
 303
 304                  ;; specify location of lpstat binary
 305                  (("description=\"`lpstat -l")
 306                   "description=\"`../systemv/lpstat -l")
 307
 308                  ;; patch shebangs of embedded scripts
 309                  (("#!/bin/sh") (string-append "#!" (which "sh")))
 310
 311                  ;; also link mime definitions from cups-filters
 312                  ;; to enable the additional filters for the test suite
 313                  (("ln -s \\$root/conf/mime\\.types")
 314                   (string-append
 315                    "ln -s " filters
 316                    "/share/cups/mime/cupsfilters.types $BASE/share/mime; "
 317                    "ln -s $root/conf/mime.types"))
 318                  (("ln -s \\$root/conf/mime\\.convs")
 319                   (string-append
 320                    "ln -s " filters
 321                    "/share/cups/mime/cupsfilters.convs $BASE/share/mime; "
 322                    "ln -s $root/conf/mime.convs")))
 323
 324                ;; fix search path for "cat"
 325                (substitute* "cups/testfile.c"
 326                  (("cupsFileFind\\(\"cat\", \"/bin\"")
 327                   (string-append "cupsFileFind(\"cat\", \"" catpath "\""))
 328                  (("cupsFileFind\\(\"cat\", \"/bin:/usr/bin\"")
 329                   (string-append "cupsFileFind(\"cat\", \"" catpath "\"")))
 330                #t)))
 331          ;; Make the compressed manpages writable so that the
 332          ;; reset-gzip-timestamps phase does not error out.
 333          (add-before 'reset-gzip-timestamps 'make-manpages-writable
 334            (lambda* (#:key outputs #:allow-other-keys)
 335              (let* ((out (assoc-ref outputs "out"))
 336                     (man (string-append out "/share/man")))
 337                (for-each (lambda (file) (chmod file #o644))
 338                          (find-files man "\\.gz"))
 339                #t)))
 340          (add-after 'install 'install-cups-filters-symlinks
 341            (lambda* (#:key inputs outputs #:allow-other-keys)
 342              (let ((out (assoc-ref outputs "out"))
 343                    (cups-filters (assoc-ref inputs "cups-filters")))
 344                ;; charsets
 345                (symlink
 346                 (string-append cups-filters "/share/cups/charsets")
 347                 (string-append out "/share/charsets"))
 348
 349                ;; mime types, driver file, ppds
 350                (for-each
 351                 (lambda (f)
 352                   (symlink (string-append cups-filters f)
 353                            (string-append out f)))
 354                 '("/share/cups/mime/cupsfilters.types"
 355                   "/share/cups/mime/cupsfilters.convs"
 356                   "/share/cups/drv/cupsfilters.drv"
 357                   "/share/ppd"))
 358
 359                ;; filters
 360                (for-each
 361                 (lambda (f)
 362                   (symlink f
 363                            (string-append out "/lib/cups/filter" (basename f))))
 364                 (find-files (string-append cups-filters "/lib/cups/filter")))
 365
 366                ;; backends
 367                (for-each
 368                 (lambda (f)
 369                   (symlink (string-append cups-filters f)
 370                            (string-append out "/lib/cups/backend/"
 371                                           (basename f))))
 372                 '("/lib/cups/backend/parallel"
 373                   "/lib/cups/backend/serial"))
 374
 375                ;; banners
 376                (let ((banners "/share/cups/banners"))
 377                  (delete-file-recursively (string-append out banners))
 378                  (symlink (string-append cups-filters banners)
 379                           (string-append out banners)))
 380
 381                ;; assorted data
 382                (let ((data "/share/cups/data"))
 383                  (delete-file-recursively (string-append out data))
 384                  (symlink (string-append cups-filters data)
 385                           (string-append out data)))
 386
 387                #t))))))
 388     (inputs
 389      `(("avahi" ,avahi)
 390        ("gnutls" ,gnutls)
 391        ("cups-filters" ,cups-filters)
 392        ("zlib"  ,zlib)))))
 393
 394 (define-public cups-pk-helper
 395   (package
 396     (name "cups-pk-helper")
 397     (version "0.2.6")
 398     (source (origin
 399               (method url-fetch)
 400               (uri (string-append "https://freedesktop.org/software/"
 401                                   name "/releases/" name "-" version ".tar.xz"))
 402               (sha256
 403                (base32
 404                 "0a52jw6rm7lr5nbyksiia0rn7sasyb5cjqcb95z1wxm2yprgi6lm"))))
 405     (build-system gnu-build-system)
 406     (native-inputs
 407      `(("intltool" ,intltool)
 408        ("pkg-config" ,pkg-config)
 409        ("glib" ,glib)
 410        ("polkit" ,polkit)
 411        ("cups" ,cups)))
 412     (home-page "https://www.freedesktop.org/wiki/Software/cups-pk-helper/")
 413     (synopsis "PolicyKit helper to configure CUPS with fine-grained privileges")
 414     (description
 415      "This package provides the org.opensuse.CupsPkHelper.Mechanism DBus
 416 system service which uses @file{cups-pk-helper-mechanism}.  This package
 417 should only be used as part of the Guix cups-pk-helper service.")
 418     (license license:gpl2+)))
 419
 420 (define-public hplip
 421   (package
 422     (name "hplip")
 423     (version "3.19.8")
 424     (source (origin
 425               (method url-fetch)
 426               (uri (string-append "mirror://sourceforge/hplip/hplip/" version
 427                                   "/hplip-" version ".tar.gz"))
 428               (sha256
 429                (base32
 430                 "0cmshi5dkmc1n5yiahhp0cv5p94zg61018piiqa2sna10ahgx1d3"))
 431               (modules '((guix build utils)))
 432               (patches (search-patches "hplip-remove-imageprocessor.patch"))
 433               (snippet
 434                '(begin
 435                   ;; Delete non-free blobs: .so files, pre-compiled
 436                   ;; 'locatedriver' executable, etc.
 437                   (for-each delete-file
 438                             (find-files "."
 439                                         (lambda (file stat)
 440                                           (elf-file? file))))
 441                   (delete-file "prnt/hpcups/ImageProcessor.h")
 442
 443                   ;; Install binaries under libexec/hplip instead of
 444                   ;; share/hplip; that'll at least ensure they get stripped.
 445                   ;; It's not even clear that they're of any use though...
 446                   (substitute* "Makefile.in"
 447                     (("^dat2drvdir =.*")
 448                      "dat2drvdir = $(pkglibexecdir)\n")
 449                     (("^locatedriverdir =.*")
 450                      "locatedriverdir = $(pkglibexecdir)\n"))
 451                   #t))))
 452     (build-system gnu-build-system)
 453     (home-page "https://developers.hp.com/hp-linux-imaging-and-printing")
 454     (synopsis "HP printer drivers")
 455     (description
 456      "Hewlett-Packard printer drivers and PostScript Printer Descriptions
 457 (@dfn{PPD}s).")
 458
 459     ;; The 'COPYING' file lists directories where each of these 3 licenses
 460     ;; applies.
 461     (license (list license:gpl2+ license:bsd-3 license:expat))
 462
 463     ;; TODO install apparmor profile files eventually.
 464     (arguments
 465      `(#:configure-flags
 466        `("--disable-network-build"
 467          ,(string-append "--prefix=" (assoc-ref %outputs "out"))
 468          ,(string-append "--sysconfdir=" (assoc-ref %outputs "out") "/etc")
 469          ,(string-append "LDFLAGS=-Wl,-rpath="
 470                          (assoc-ref %outputs "out") "/lib")
 471          ;; Disable until mime.types merging works (FIXME).
 472          "--disable-fax-build"
 473          "--enable-hpcups-install"
 474          "--enable-new-hpcups"
 475          "--enable-cups_ppd_install"
 476          "--enable-cups_drv_install"
 477          ;; TODO add foomatic drv install eventually.
 478          ;; TODO --enable-policykit eventually.
 479          ,(string-append "--with-cupsfilterdir="
 480                          (assoc-ref %outputs "out") "/lib/cups/filter")
 481          ,(string-append "--with-cupsbackenddir="
 482                          (assoc-ref %outputs "out") "/lib/cups/backend")
 483          ,(string-append "--with-icondir="
 484                          (assoc-ref %outputs "out") "/share/applications")
 485          ,(string-append "--with-systraydir="
 486                          (assoc-ref %outputs "out") "/etc/xdg")
 487          "--enable-qt5" "--disable-qt4")
 488
 489        #:imported-modules ((guix build python-build-system)
 490                            ,@%gnu-build-system-modules)
 491        #:modules ((guix build gnu-build-system)
 492                   (guix build utils)
 493                   ((guix build python-build-system) #:prefix python:))
 494
 495        #:phases (modify-phases %standard-phases
 496                   (add-after 'unpack 'fix-hard-coded-file-names
 497                     (lambda* (#:key inputs outputs #:allow-other-keys)
 498                       (let ((out (assoc-ref outputs "out"))
 499                             ;; FIXME: use merged ppds (I think actually only
 500                             ;; drvs need to be merged).
 501                             (cupsdir (assoc-ref inputs "cups-minimal")))
 502                         (substitute* "base/g.py"
 503                           (("'/usr/share;[^']*'")
 504                            (string-append "'" cupsdir "/share'"))
 505                           (("'/etc/hp/hplip.conf'")
 506                            (string-append "'" out
 507                                           "/etc/hp/hplip.conf" "'")))
 508
 509                         (substitute* "Makefile.in"
 510                           (("[[:blank:]]check-plugin\\.py[[:blank:]]") " ")
 511                           ;; FIXME Use beginning-of-word in regexp.
 512                           (("[[:blank:]]plugin\\.py[[:blank:]]") " ")
 513                           (("/usr/include/libusb-1.0")
 514                            (string-append (assoc-ref inputs "libusb")
 515                                           "/include/libusb-1.0"))
 516                           (("hplip_statedir =.*$")
 517                            ;; Don't bail out while trying to create
 518                            ;; /var/lib/hplip.  We can safely change its value
 519                            ;; here because it's hard-coded in the code anyway.
 520                            "hplip_statedir = $(prefix)\n")
 521                           (("hplip_confdir = /etc/hp")
 522                            ;; This is only used for installing the default config.
 523                            (string-append "hplip_confdir = " out
 524                                           "/etc/hp"))
 525                           (("halpredir = /usr/share/hal/fdi/preprobe/10osvendor")
 526                            ;; We don't use hal.
 527                            (string-append "halpredir = " out
 528                                           "/share/hal/fdi/preprobe/10osvendor"))
 529                           (("rulesdir = /etc/udev/rules.d")
 530                            ;; udev rules will be merged by base service.
 531                            (string-append "rulesdir = " out
 532                                           "/lib/udev/rules.d"))
 533                           (("rulessystemdir = /usr/lib/systemd/system")
 534                            ;; We don't use systemd.
 535                            (string-append "rulessystemdir = " out
 536                                           "/lib/systemd/system"))
 537                           (("/etc/sane.d")
 538                            (string-append out "/etc/sane.d"))))))
 539
 540                   ;; Wrap bin/* so that the Python libraries are found.
 541                   (add-after 'install 'wrap-binaries
 542                     (assoc-ref python:%standard-phases 'wrap)))))
 543
 544     ;; Note that the error messages printed by the tools in the case of
 545     ;; missing dependencies are often downright misleading.
 546     ;; TODO: hp-toolbox still fails to start with:
 547     ;;   from dbus.mainloop.pyqt5 import DBusQtMainLoop
 548     ;;   ModuleNotFoundError: No module named 'dbus.mainloop.pyqt5'
 549     (inputs
 550      `(("cups-minimal" ,cups-minimal)
 551        ("dbus" ,dbus)
 552        ("libjpeg" ,libjpeg)
 553        ("libusb" ,libusb)
 554        ("python" ,python)
 555        ("python-dbus" ,python-dbus)
 556        ("python-pygobject" ,python-pygobject)
 557        ("python-pyqt" ,python-pyqt)
 558        ("python-wrapper" ,python-wrapper)
 559        ("sane-backends" ,sane-backends-minimal)
 560        ("zlib" ,zlib)))
 561     (native-inputs
 562      `(("perl" ,perl)
 563        ("pkg-config" ,pkg-config)))))
 564
 565 (define-public hplip-minimal
 566   (package
 567     (inherit hplip)
 568     (name "hplip-minimal")
 569     (arguments
 570       (substitute-keyword-arguments (package-arguments hplip)
 571         ((#:configure-flags cf)
 572          ;; Produce a "light build", meaning that only the printer (CUPS) and
 573          ;; scanner (SANE) support gets built, without all the 'hp-*'
 574          ;; command-line tools.
 575          `(cons "--enable-lite-build"
 576                 (delete "--enable-qt5" ,cf)))
 577         ((#:phases phases)
 578          ;; The 'wrap-binaries' is not needed here since the 'hp-*' programs
 579          ;; are not installed.
 580          `(alist-delete 'wrap-binaries ,phases))))
 581     (inputs (remove (match-lambda
 582                       ((label . _)
 583                        (string-prefix? "python" label)))
 584                     (package-inputs hplip)))
 585     (synopsis "GUI-less version of hplip")))
 586
 587 (define-public foomatic-filters
 588   (package
 589     (name "foomatic-filters")
 590     (version "4.0.17")
 591     (source (origin
 592               (method url-fetch)
 593               (uri (string-append
 594                     "http://www.openprinting.org/download/foomatic/"
 595                     "foomatic-filters-" version ".tar.gz"))
 596               (sha256
 597                (base32
 598                 "1qrkgbm5jay2r7sh9qbyf0aiyrsl1mdc844hxf7fhw95a0zfbqm2"))
 599               (patches
 600                (search-patches "foomatic-filters-CVE-2015-8327.patch"
 601                                "foomatic-filters-CVE-2015-8560.patch"))))
 602     (build-system gnu-build-system)
 603     (home-page
 604      "https://wiki.linuxfoundation.org/openprinting/database/foomatic")
 605     (native-inputs
 606      `(("perl" ,perl)
 607        ("pkg-config" ,pkg-config)))
 608     (inputs
 609      `(("dbus" ,dbus)
 610        ("a2ps" ,a2ps)))
 611     (arguments
 612      '( ;; Specify the installation directories.
 613        #:configure-flags (list (string-append "ac_cv_path_CUPS_BACKENDS="
 614                                               (assoc-ref %outputs "out")
 615                                               "/lib/cups/backend")
 616                                (string-append "ac_cv_path_CUPS_FILTERS="
 617                                               (assoc-ref %outputs "out")
 618                                               "/lib/cups/filter")
 619                                (string-append "ac_cv_path_PPR_INTERFACES="
 620                                               (assoc-ref %outputs "out")
 621                                               "/lib/ppr/interfaces")
 622                                (string-append "ac_cv_path_PPR_LIB="
 623                                               (assoc-ref %outputs "out")
 624                                               "/lib/ppr/lib")
 625
 626                                ;; For some reason these are misdiagnosed.
 627                                "ac_cv_func_malloc_0_nonnull=yes"
 628                                "ac_cv_func_realloc_0_nonnull=yes")
 629        #:test-target "tests"))
 630     (synopsis "Convert PostScript to the printer's native format")
 631     (description
 632      "This package contains filter scripts used by the printer spoolers to
 633 convert the incoming PostScript data into the printer's native format using a
 634 printer/driver specific, but spooler-independent PPD file.")
 635     (license license:gpl2+)))
 636
 637 (define-public foo2zjs
 638   (package
 639     (name "foo2zjs")
 640     (version "20190909")
 641     (source (origin
 642               (method url-fetch)
 643               ;; XXX: This is an unversioned URL!
 644               (uri "http://foo2zjs.rkkda.com/foo2zjs.tar.gz")
 645               (sha256
 646                (base32
 647                 "1nn84c045mbv6yzpjfggc6152bvgrmcxiyvgz9v2w3sws7ihshrm"))))
 648     (build-system gnu-build-system)
 649     (arguments
 650      '(#:phases (modify-phases %standard-phases
 651                   (replace 'configure
 652                     (lambda* (#:key outputs #:allow-other-keys)
 653                       (substitute* (find-files "." "^Makefile$")
 654                         ;; Set the installation directory.
 655                         (("^PREFIX[[:blank:]]*=.*$")
 656                          (string-append "PREFIX = "
 657                                         (assoc-ref outputs "out")
 658                                         "\n"))
 659                         (("^UDEVBIN[[:blank:]]*=.*$")
 660                          "UDEVBIN = $(PREFIX)/bin\n")
 661                         ;; Don't try to chown/chgrp the installed files.
 662                         (("-oroot")
 663                          "")
 664                         (("-glp")
 665                          "")
 666                         ;; Placate the dependency checks.
 667                         (("/usr/include/stdio.h")
 668                          "/etc/passwd")
 669                         (("/usr/")
 670                          "$(PREFIX)/")
 671                         ;; Ensure fixed timestamps in man pages.
 672                         (("^MODTIME[[:blank:]]*=.*$")
 673                          "MODTIME = echo Thu Jan 01 01:00:00 1970\n"))
 674                       #t))
 675                   (add-after 'install 'remove-pdf
 676                     (lambda* (#:key outputs #:allow-other-keys)
 677                       ;; Remove 'manual.pdf' which is (1) useless (it's a
 678                       ;; concatenation of man pages), and (2) not
 679                       ;; bit-reproducible due to <https://bugs.gnu.org/27593>.
 680                       (let ((out (assoc-ref outputs "out")))
 681                         (for-each delete-file
 682                                   (find-files out "^manual\\.pdf$"))
 683                         #t))))
 684        #:parallel-build? #f                       ;broken makefile
 685        #:tests? #f                                ;no tests
 686        #:make-flags '("CC=gcc")))
 687     (inputs
 688      `(("ghostscript" ,ghostscript)
 689        ("foomatic-filters" ,foomatic-filters)))   ;for 'foomatic-rip'
 690     (native-inputs
 691      `(("bc" ,bc)
 692        ("groff" ,groff)))
 693     (home-page "http://foo2zjs.rkkda.com/")
 694     (synopsis "Printer driver for ZjStream-based printers")
 695     (description
 696      "foo2zjs is a printer driver for printers that use the Zenographics
 697 ZjStream wire protocol for their print data, often erroneously referred to as
 698 winprinters or GDI printers.
 699
 700 It supports Minolta/QMS@tie{}Magicolor, Minolta@tie{}Color@tie{}PageWorks/Pro,
 701 HP@tie{}LaserJet, and possibly other printers.  See @file{README} for details.")
 702     (license (list license:expat        ; icc2ps/*.[ch]
 703                    license:gpl2+))))    ; everything else
 704
 705 (define-public escpr
 706   (package
 707     (name "escpr")
 708     (version "1.6.30")
 709     ;; XXX: This currently works.  But it will break as soon as a newer
 710     ;; version is available since the URLs for older versions are not
 711     ;; preserved.  An alternative source will be added as soon as
 712     ;; available.
 713     (source (origin
 714               (method url-fetch)
 715               ;; The uri has to be chopped up in order to satisfy guix lint.
 716               (uri (string-append "https://download3.ebz.epson.net/dsc/f/03/00/08/18/20/"
 717                                   "e94de600e28e510c1cfa158929d8b2c0aadc8aa0/"
 718                                   "epson-inkjet-printer-escpr-1.6.30-1lsb3.2.tar.gz"))
 719               (sha256
 720                (base32
 721                 "0m8pyfkixisp0vclwxj340isn15zzisal0v2xvv66kxfd68dzf12"))))
 722     (build-system gnu-build-system)
 723     (arguments
 724      `(#:configure-flags
 725        `(,(string-append "--prefix="
 726                          (assoc-ref %outputs "out"))
 727          ,(string-append "--with-cupsfilterdir="
 728                          (assoc-ref %outputs "out") "/lib/cups/filter")
 729          ,(string-append "--with-cupsppddir="
 730                          (assoc-ref %outputs "out") "/share/ppd"))))
 731     (inputs `(("cups" ,cups-minimal)))
 732     (synopsis "ESC/P-R printer driver")
 733     (description
 734      "This package provides a filter for the Common UNIX Printing
 735 System (CUPS).  It offers high-quality printing with Seiko Epson color ink jet
 736 printers.  It can only be used with printers that support the Epson ESC/P-R
 737 language.")
 738     (home-page "http://download.ebz.epson.net/dsc/search/01/search")
 739     (license license:gpl2+)))
 740
 741 (define-public splix
 742   ;; The last release was in 2009.  The SVN repository contains 5 years of
 743   ;; unreleased bug fixes and support for newer printer models.
 744   (let ((revision 315))
 745     (package
 746       (name "splix")
 747       (version (string-append "2.0.0-" (number->string revision)))
 748       (source
 749        (origin
 750          (method svn-fetch)
 751          (uri (svn-reference
 752                (url "https://svn.code.sf.net/p/splix/code/splix/")
 753                (revision revision)))
 754          (file-name (string-append name "-" version "-checkout"))
 755          (sha256
 756           (base32 "16wbm4xnz35ca3mw2iggf5f4jaxpyna718ia190ka6y4ah932jxl"))))
 757       (build-system gnu-build-system)
 758       ;; 90% (3.8 MiB) of output are .ppd files.  Don't install them by default:
 759       ;; CUPS has been able to read the .drv sources directly since version 1.2.
 760       (outputs (list "out" "ppd"))
 761       (arguments
 762        '(#:make-flags
 763          (list (string-append "CUPSDRV="
 764                               (assoc-ref %outputs "out") "/share/cups/drv")
 765                (string-append "CUPSFILTER="
 766                               (assoc-ref %outputs "out") "/lib/cups/filter")
 767                (string-append "CUPSPPD="
 768                               (assoc-ref %outputs "ppd") "/share/cups/model")
 769                "CACHESIZE=100"          ; pages in RAM, ±300 KiB each
 770                "THREADS=4")             ; compress and print faster
 771          #:phases
 772          (modify-phases %standard-phases
 773            (delete 'configure)          ; no configure script
 774            (add-before 'build 'build-.drv-files
 775              (lambda* (#:key make-flags #:allow-other-keys)
 776                (apply invoke "make" "drv" make-flags)))
 777            (add-after 'install 'install-.drv-files
 778              (lambda* (#:key make-flags #:allow-other-keys)
 779                (apply invoke "make" "install" "DRV_ONLY=1" make-flags))))
 780          #:tests? #f))                  ; no test suite
 781       (inputs
 782        `(("cups" ,cups-minimal)
 783          ("zlib" ,zlib)
 784
 785          ;; This dependency can be dropped by setting DISABLE_JBIG=1, but the
 786          ;; result will not support some printers like the Samsung CLP-600.
 787          ("jbigkit" ,jbigkit)))
 788       (synopsis "QPDL (SPL2) printer driver")
 789       (description
 790        "SpliX is a set of CUPS drivers for printers that speak @acronym{QPDL,
 791 Quick Page Description Language}, also called @acronym{SPL2, Samsung Printer
 792 Language version 2}.  These include many laser printers sold by Samsung,
 793 Xerox, Lexmark, Toshiba, and Dell.
 794
 795 Colour printers need colour profile files to get better results.  These
 796 @file{cms} files are provided by the printer's manufacturer and must be
 797 obtained and installed separately.")
 798       (home-page "http://splix.ap2c.org/")
 799       (license license:gpl2))))
 800
 801 (define-public python-pycups
 802   (package
 803     (name "python-pycups")
 804     (version "1.9.74")
 805     (source
 806      (origin
 807        (method url-fetch)
 808        (uri (pypi-uri "pycups" version ".tar.bz2"))
 809        (sha256
 810         (base32
 811          "1ffp7sswhdsfpy88zg0cc8kl04wygkjs01rlm9f0spbwk8jhy2c6"))))
 812     (build-system python-build-system)
 813     (arguments
 814      '(;; Tests require CUPS to be running
 815        #:tests? #f))
 816     (inputs
 817      `(("cups" ,cups)))
 818     (home-page "https://github.com/zdohnal/pycups")
 819     (synopsis "Python bindings for libcups")
 820     (description
 821      "This package provides Python bindings for libcups, wrapping the CUPS
 822 API.")
 823     (license license:gpl2+)))