hplip package (work in progress)

[Danny Milosavljevic]

Hi,

I'm trying to create a package for hplip, and it manages to reach the install 
phase and then it fails trying to create /etc/cups . Should we put /etc/cups 
inside the hplip store directory or what should we do with it?

diff --git a/gnu/packages/cups.scm b/gnu/packages/cups.scm
index ff3d152..9373381 100644
--- a/gnu/packages/cups.scm
+++ b/gnu/packages/cups.scm
@@ -26,6 +26,10 @@
   #:use-module (gnu packages)
   #:use-module (gnu packages avahi)
   #:use-module (gnu packages compression)
+  #:use-module (gnu packages libusb)
+  #:use-module (gnu packages autotools)
+  #:use-module (gnu packages python)
+  #:use-module (gnu packages scanner)
   #:use-module (gnu packages image)
   #:use-module (gnu packages fonts) ;font-dejavu
   #:use-module (gnu packages fontutils)
@@ -297,3 +301,43 @@ device-specific programs to convert and print many types 
of files.")
        ("gnutls" ,gnutls)
        ("cups-filters" ,cups-filters)
        ("zlib"  ,zlib)))))
+
+(define-public hplip
+  (package
+    (name "hplip")
+    (version "3.16.2")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "mirror://sourceforge/hplip/"
+                                  "/hplip-" version ".tar.gz"))
+              (sha256
+               (base32
+                "1nflgrbyl0fz35djnkn7qsfr5g4sh8lixqna9jvs52wasjllbj7j"))))
+    (build-system gnu-build-system)
+    (home-page "http://hplipopensource.com/";)
+    (synopsis "HP Printer Drivers")
+    (description "HP Printer Drivers and PPDs. You can use the PPDs with CUPS 
as well.")
+    (license (list license:gpl2 license:bsd-3)) ; FIXME and which MIT
+    ; FIXME remove Binary plugin-ins, hp-plugin
+    ; FIXME PPDs use .../lib/cups/filter/hpcups
+    (arguments `(#:configure-flags '("--disable-network-build")
+                 #:phases (alist-cons-after
+                           'fix-libusb 'autoreconf
+                           (lambda _
+                             (setenv "AUTOMAKE" "automake --foreign")
+                             (zero? (system* "autoreconf" "-fi")))
+                           (alist-cons-after 'unpack 'fix-libusb
+                            (lambda* (#:key inputs #:allow-other-keys)
+                             (substitute* "Makefile.am" 
(("/usr/include/libusb-1.0") (string-append (assoc-ref inputs "libusb") 
"/include/libusb-1.0"))))
+                            %standard-phases))))
+;FIXME fix "cannot create directory ‘/etc/cups/’: Permission denied"
+    (inputs `(("libjpeg" ,libjpeg)
+              ("cups-minimal" ,cups-minimal)
+              ("libusb" ,libusb)
+              ("python" ,python) ; FIXME propagated-inputs ??
+              ("sane-backends" ,sane-backends)
+              ("dbus" ,dbus)))
+    (native-inputs `(("pkg-config" ,pkg-config)
+                     ("automake" ,automake)
+                     ("autoconf" ,autoconf)
+                     ("libtool" ,libtool)))))