Merge branch 'epson' into 'master'

nongnu: Add epson-201401w.

See merge request nonguix/nonguix!292

nongnu/packages/printers.scm

@@ -2,16 +2,23 @@
 ;;; Copyright © 2021 Petr Hodina <phodina@protonmail.com>
 ;;; Copyright © 2021 Kahka F
 ;;; Copyright © 2021 Jonathan Brielmaier <jonathan.brielmaier@web.de>
+;;; Copyright © 2023 EuAndreh <eu@euandre.org>
 
 (define-module (nongnu packages printers)
   #:use-module (gnu packages)
+  #:use-module (gnu packages cpio)
   #:use-module (gnu packages cups)
+  #:use-module (gnu packages image)
+  #:use-module (gnu packages package-management)
   #:use-module (guix gexp)
   #:use-module (guix packages)
   #:use-module (guix utils)
   #:use-module (srfi srfi-1)
   #:use-module (guix download)
-  #:use-module (guix build utils))
+  #:use-module (guix build utils)
+  #:use-module (guix build-system gnu)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (nonguix licenses))
 
 (define-public hplip-plugin
   (package
@@ -159,3 +166,75 @@ version=~A
 
                  (substitute* (string-append out "/etc/hp/hplip.conf")
                    (("/usr") out)))))))))))
+
+(define-public epson-201401w
+  (package
+    (name "epson-201401w")
+    (version "1.0.0")
+    (source
+      (origin
+        (method url-fetch)
+        (uri
+          (string-append
+           "https://download3.ebz.epson.net/dsc/f/03/00/03/45/41/92e9c9254f0ee4230a069545ba27ec2858a2c457/epson-inkjet-printer-201401w-"
+           version
+           "-1lsb3.2.src.rpm"))
+        (sha256
+          (base32 "0c60m1sd59s4sda38dc5nniwa7dh1b0kv1maajr0x9d38gqlyk3x"))))
+    (build-system gnu-build-system)
+    (arguments
+      (list
+       #:phases
+       #~(modify-phases %standard-phases
+           (replace 'unpack
+             (lambda* (#:key outputs #:allow-other-keys)
+               (mkdir "source")
+               (chdir "source")
+               (system (string-append "rpm2cpio " #$source " | cpio -idv"))
+               (invoke "tar" "-xvf" (string-append "epson-inkjet-printer-201401w-" #$version ".tar.gz"))
+               (invoke "tar" "-xvf" (string-append "epson-inkjet-printer-filter-"  #$version ".tar.gz"))
+               (substitute* (find-files (string-append "epson-inkjet-printer-201401w-" #$version "/ppds/"))
+                 (("/opt/epson-inkjet-printer-201401w/cups/lib")
+                  (string-append (assoc-ref outputs "out")
+                                 "/lib/cups")))
+               (chdir (string-append "epson-inkjet-printer-filter-" #$version))))
+           (add-after 'install 'install-extra-files
+             (lambda* (#:key outputs #:allow-other-keys)
+               (let* ((out (assoc-ref outputs "out"))
+                      (model-dir (string-append out "/share/cups/model/epson-inkjet-printer-201401w")))
+                 (chdir (string-append "../epson-inkjet-printer-201401w-" #$version))
+                 (mkdir-p model-dir)
+                 (invoke "cp" "-a" "ppds" model-dir)
+                 (invoke "cp" "-a" "lib64" "resource" "watermark" out)))))))
+    (native-inputs
+      (list
+       cpio
+       cups-minimal
+       libjpeg-turbo
+       rpm))
+    (synopsis
+     "Epson printer driver for L series devices")
+    (description
+     "This software is a filter program used with the Common UNIX Printing
+System (CUPS) under Linux.  It supplies high quality printing with
+Seiko Epson Color Ink Jet Printers.
+
+Supported printers are:
+@itemize
+@item L456
+@item L455
+@item L366
+@item L365
+@item L362
+@item L360
+@item L312
+@item L310
+@item L222
+@item L220
+@item L132
+@item L130
+@end itemize")
+    (home-page "http://download.ebz.epson.net/dsc/du/02/DriverDownloadInfo.do?LG2=FR&CN2=&DSCMI=34541&DSCCHK=4aa5c50773bc3611620a9c42dd549a72c42693a2")
+    (license        ; SEIKO EPSON CORPORATION SOFTWARE LICENSE AGREEMENT
+      (list (nonfree "https://epson.com/SoftwareLicenseAgreement")
+            license:lgpl2.1))))