Re: ESC/P-R package

[Diego Nicola Barbato <dnbarbato@posteo.de>]

[-- Attachment #1: Type: text/plain, Size: 104 bytes --]

Hello Guix,

I have sent the following patch to the guix-patches mailing list
(29096@debbugs.gnu.org):


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: escpr patch --]
[-- Type: text/x-patch, Size: 2247 bytes --]

From 5d6449cc3cfc4154fff24abcdd54c05b44b9e471 Mon Sep 17 00:00:00 2001
From: Diego Nicola Barbato <dnbarbato@posteo.de>
Date: Wed, 1 Nov 2017 02:48:14 +0100
Subject: gnu: Add Epson escpr printer driver.

* gnu/packages/cups.scm (escpr): New variable.
---
 gnu/packages/cups.scm | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)

diff --git a/gnu/packages/cups.scm b/gnu/packages/cups.scm
index 491668e52..54a93fe49 100644
--- a/gnu/packages/cups.scm
+++ b/gnu/packages/cups.scm
@@ -599,3 +599,35 @@ printer/driver specific, but spooler-independent PPD file.")
 protocols, which cover printers made by Konica, HP (LaserJet), Oki, Samsung,
 and more.  See @file{README} for details.")
     (license license:gpl2+)))
+
+(define-public escpr
+  (package
+    (name "escpr")
+    (version "1.6.17")
+    ;; This currently works.  But it will break as soon as a newer
+    ;; version is available since the URLs for older versions are not
+    ;; preserved.  An alternative source will be added as soon as
+    ;; available.
+    (source (origin
+              (method url-fetch)
+              ;; The uri has to be chopped up in order to satisfy guix lint.
+              (uri (string-append "https://download3.ebz.epson.net/dsc/f/03/00/06/66/09/"
+                                  "4ac2bf69bb1ddf4a9ad525596615cbb40fe4dad5/"
+                                  "epson-inkjet-printer-escpr-1.6.17-1lsb3.2.tar.gz"))
+              (sha256
+               (base32
+                "0m6v1wdavw4r25jfywqchsx0v9ss1l5fr8vq9d0d8cmjnz8mqblv"))))
+    (build-system gnu-build-system)
+    (arguments
+     `(#:configure-flags
+       `(,(string-append "--prefix="
+                         (assoc-ref %outputs "out"))
+         ,(string-append "--with-cupsfilterdir="
+                         (assoc-ref %outputs "out") "/lib/cups/filter")
+         ,(string-append "--with-cupsppddir="
+                         (assoc-ref %outputs "out") "/share/ppd"))))
+    (inputs `(("cups" ,cups-minimal)))
+    (synopsis "ESC/P-R printer driver")
+    (description "ESC/P-R driver and PPDs supporting a multitude of Epson printers.")
+    (home-page "http://download.ebz.epson.net/dsc/search/01/search")
+    (license license:gpl2+)))
-- 
2.14.3


[-- Attachment #3: Type: text/plain, Size: 231 bytes --]


It appears to build reproducibly (at least on my system).  And I have
checked it with `guix lint'.  It passes all tests except `guix lint -c
source' which does not report an error but strangely crashes with the
following output:


[-- Attachment #4: guix lint error --]
[-- Type: text/plain, Size: 1247 bytes --]

~$ guix lint -c source escpr
Backtrace:scpr@1.6.17 [source]...
          13 (primitive-load "/gnu/store/19wpps1nmlg4j1530knl7kdhvgc…")
In guix/ui.scm:
  1384:12 12 (run-guix-command _ . _)
In srfi/srfi-1.scm:
    640:9 11 (for-each #<procedure 109e380 at guix/scripts/lint.scm…> …)
In guix/scripts/lint.scm:
   1062:4 10 (run-checkers #<package escpr@1.6.17 cups.scm:604 1b1a…> …)
In srfi/srfi-1.scm:
    640:9  9 (for-each #<procedure 23fac00 at guix/scripts/lint.scm…> …)
In guix/scripts/lint.scm:
    673:4  8 (check-source #<package escpr@1.6.17 cups.scm:604 1b1ad…>)
In guix/monads.scm:
    553:0  7 (_ _)
In guix/scripts/lint.scm:
   109:38  6 (_ ())
    543:7  5 (validate-uri _ #<package escpr@1.6.17 cups.scm:604 1b…> …)
    96:17  4 (emit-warning #<package escpr@1.6.17 cups.scm:604 1b1a…> …)
In ice-9/boot-9.scm:
    837:9  3 (catch system #<procedure 22c3660 at guix/packages.scm…> …)
In guix/packages.scm:
   355:11  2 (_)
In ice-9/ports.scm:
   439:11  1 (call-with-input-file #f #<procedure 22c3630 at guix/p…> …)
In unknown file:
           0 (open-file #f "r" #:encoding #f #:guess-encoding #f)

ERROR: In procedure open-file:
ERROR: Wrong type (expecting string): #f

[-- Attachment #5: Type: text/plain, Size: 310 bytes --]


I have not yet found an alternative source.  But the current one works
(except for the `guix lint' error).  I will try to send a patch as soon
as the URI changes or the source is made available on this Debian
repository:
http://http.debian.net/debian/pool/main/e/epson-inkjet-printer-escpr/

Greetings

Diego