diff --git a/gutenprint.scm b/gutenprint.scm new file mode 100644 index 0000000..311374e --- /dev/null +++ b/gutenprint.scm @@ -0,0 +1,77 @@ +(use-modules (guix packages) + (guix download) + (guix utils) + (gnu services mail) + (gnu services virtualization) + (guix profiles) + (nongnu packages linux) + (nongnu system linux-initrd) + (gnu packages python-xyz) + (gnu packages qt) + (gnu packages cups) + (gnu packages perl) + (gnu packages scanner) + (gnu packages time) + (gnu packages tls) + (guix build-system cmake) + (guix build-system gnu) + (gnu packages admin) + (gnu packages commencement) + (gnu packages mail) + (gnu packages terminals) + ((guix licenses) #:prefix license:) + (gnu services cups)) + +(define-public gutenprint + (package + (name "gutenprint") + (version "5.3.4") + (source + (origin + (method url-fetch) + (uri (string-append "mirror://sourceforge/gimp-print/" name "-" + (version-major+minor version) "/" version "/" + name "-" version ".tar.xz")) + (sha256 + (base32 "0fq2y9sx37d342fihp1ys9kf4sr2j5nc1kl33j9sirmqs80sfi6v")))) + (build-system gnu-build-system) + (arguments + `(#:test-target "check-parallel" + #:configure-flags (list "--enable-cups-level3-ppds" + "--enable-globalized-cups-ppds" + "--enable-cups-ppds" + "--enable-cups-1_2-enhancements") + #:phases + (modify-phases %standard-phases + (add-before 'configure 'fix-paths + (lambda* (#:key outputs native-inputs #:allow-other-keys) + (substitute* "Makefile.in" + (("/usr/bin/time") "time")) + (let ((out (assoc-ref outputs "out"))) + (substitute* (find-files "." "^(Makefile|Makefile\\.in|configure)$") + (("^(\\s*)cups_conf_serverbin(\\s*)=(.+)$") + (string-append "cups_conf_serverbin=" out "/lib/cups\n")) + (("^(\\s*)cups_conf_serverroot(\\s*)=(.+)$") + (string-append "cups_conf_serverroot=" out "/etc/cups\n")) + (("^(\\s*)cups_conf_datadir(\\s*)=(.+)$") + (string-append "cups_conf_datadir=" out "/share/cups\n"))) + (substitute* "src/cups/Makefile.in" + (("^(\\s*)bindir(\\s*)=(.+)$") + (string-append "bindir = " out "/bin\n")) + (("^(\\s*)sbindir(\\s*)=(.+)$") + (string-append "sbindir = " out "/sbin\n"))) + #t)))))) + (native-inputs + (list perl + time)) + (inputs + (list cups-minimal)) + (synopsis "Printer drivers for CUPS") + (description "This package provides printer drivers for CUPS. +This project also maintains an enhanced Print plug-in for GIMP 2.x from +the same code base. This driver supports widespread inkjet printers by major vendors, + including Canon, Epson, Fujitsu, SONY, @dots{}") + (home-page "http://gimp-print.sourceforge.net/") + (license license:gpl2+))) + +gutenprint