Help with hplip-qt5

[ng0 <ng0@pragmatique.xyz>]

[-- Attachment #1.1: Type: text/plain, Size: 2279 bytes --]

Adjusting priorities is a nice thing to do. This package
is a border case… It fits into the scope of my system work
and can not be ignored or handed off.

I don't find the previous conversations on this, it must
have been with a different thread subject.

My intention is to add the qt UI of hplip.

This touches some use of package definitions which aren't
commonly used so much and I haven't used myself.

What you get with the 'hplip-qt5' patch is this:

Backtrace:
In ice-9/eval.scm:
   177:49 19 (lp (#<procedure 80d8b60 at ice-9/eval.scm:126:12 (e…> …))
   177:49 18 (lp (#<procedure 80d8b40 at ice-9/eval.scm:282:4 (en…> …))
   177:49 17 (lp (#<procedure 80d8b20 at ice-9/eval.scm:126:12 (e…> …))
   177:49 16 (lp (#<procedure 80d8b00 at ice-9/eval.scm:282:4 (en…> …))
   177:49 15 (lp (#<procedure 80d8ae0 at ice-9/eval.scm:126:12 (e…> …))
   177:49 14 (lp (#<procedure 80d8ac0 at ice-9/eval.scm:282:4 (en…> …))
   177:49 13 (lp (#<procedure 80d8aa0 at ice-9/eval.scm:182:7 (en…> …))
   177:49 12 (lp (#<procedure 80d8a80 at ice-9/eval.scm:282:4 (en…> …))
   177:49 11 (lp (#<procedure 80d8a60 at ice-9/eval.scm:123:11 (e…> …))
   177:49 10 (lp (#<procedure 80d8a40 at ice-9/eval.scm:282:4 (en…> …))
   177:49  9 (lp (#<procedure 80d8a20 at ice-9/eval.scm:182:7 (en…> …))
   177:49  8 (lp (#<procedure 80d8a00 at ice-9/eval.scm:282:4 (en…> …))
   177:32  7 (lp (#<procedure 80d89c0 at ice-9/eval.scm:187:12 (env)>))
   196:43  6 (_ #(#(#(#(#(#(#(#(#<directory …> …) …) …) …) …) …) …) …))
    163:9  5 (_ #(#(#(#(#(#(#(#(#<directory …> …) …) …) …) …) …) …) …))
   173:47  4 (_ #(#(#(#(#(#(#(#(#<directory …> …) …) …) …) …) …) …) …))
    159:9  3 (_ #(#(#(#(#(#(#(#(#<directory …> …) …) …) …) …) …) …) …))
    159:9  2 (_ #(#(#(#(#(#(#(#(#<directory …> …) …) …) …) …) …) …) …))
   223:20  1 (proc #(#(#(#(#(#(#(#(#<directo…> …) …) …) …) …) …) …) …))
In unknown file:
           0 (%resolve-variable (7 . %outputs) #<directory (gnu pack…>)

ERROR: In procedure %resolve-variable:
ERROR: Unbound variable: %outputs
-- 
ng0
OpenPG: A88C8ADD129828D7EAC02E52E22F9BBFEE348588

[-- Attachment #1.2: 0001-gnu-Add-hplip-qt5.patch --]
[-- Type: text/plain, Size: 3297 bytes --]

From 421a9e9d782804f9390c8a1f133800610e921f5f Mon Sep 17 00:00:00 2001
From: ng0 <ng0@libertad.pw>
Date: Thu, 29 Dec 2016 11:42:43 +0000
Subject: [PATCH 1/2] gnu: Add hplip-qt5.

* gnu/packages/cups.scm (hplip-qt5): New variable.
---
 gnu/packages/cups.scm | 40 +++++++++++++++++++++++++++++++++++++++-
 1 file changed, 39 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/cups.scm b/gnu/packages/cups.scm
index accfe410b..608eda39b 100644
--- a/gnu/packages/cups.scm
+++ b/gnu/packages/cups.scm
@@ -5,6 +5,7 @@
 ;;; Copyright © 2016 Danny Milosavljevic <dannym@scratchpost.org>
 ;;; Copyright © 2017 Leo Famulari <leo@famulari.name>
 ;;; Copyright © 2017 Mark H Weaver <mhw@netris.org>
+;;; Copyright © 2017 ng0 <contact.ng0@cryptolab.net>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -25,6 +26,7 @@
   #:use-module ((guix licenses) #:prefix license:)
   #:use-module (guix packages)
   #:use-module (guix download)
+  #:use-module (guix utils)
   #:use-module (guix build-system gnu)
   #:use-module (gnu packages)
   #:use-module (gnu packages avahi)
@@ -40,7 +42,8 @@
   #:use-module (gnu packages glib)
   #:use-module (gnu packages pdf)
   #:use-module (gnu packages pkg-config)
-  #:use-module (gnu packages tls))
+  #:use-module (gnu packages tls)
+  #:use-module (gnu packages qt))
 
 ;; Delay to avoid module circularity problems.
 (define ghostscript/cups
@@ -445,3 +448,38 @@ device-specific programs to convert and print many types of files.")
               ;; TODO: Make hp-setup find python-dbus.
               ("python-dbus" ,python-dbus)))
     (native-inputs `(("pkg-config" ,pkg-config)))))
+
+(define-public hplip-qt5
+  (package
+    (inherit hplip)
+    (name "hplip-qt5")
+    (arguments
+     `(,@(substitute-keyword-arguments (package-arguments hplip)
+           ((#:configure-flags flags ''())
+            `("--disable-network-build"
+              ,(string-append "--prefix=" (assoc-ref %outputs "out"))
+              ,(string-append "--sysconfdir=" (assoc-ref %outputs "out") "/etc")
+              ;; Disable until mime.types merging works (FIXME).
+              "--disable-fax-build"
+              "--enable-hpcups-install"
+              "--enable-new-hpcups"
+              "--enable-cups_ppd_install"
+              "--enable-cups_drv_install"
+              "--enable-gui-build"
+              "--disable-qt4"
+              "--enable-qt5"
+              ;; TODO add foomatic drv install eventually.
+              ;; TODO --enable-policykit eventually.
+              ,(string-append "--with-cupsfilterdir="
+                              (assoc-ref %outputs "out") "/lib/cups/filter")
+              ,(string-append "--with-cupsbackenddir="
+                              (assoc-ref %outputs "out") "/lib/cups/backend")
+              ,(string-append "--with-icondir="
+                              (assoc-ref %outputs "out") "/share/applications")
+              ,(string-append "--with-systraydir="
+                              (assoc-ref %outputs "out") "/etc/xdg"))))))
+    (inputs
+     `(("python-pyqt" ,python-pyqt)
+       ("python-pygobject" ,python-pygobject)
+       ("python-sip" ,python-sip)
+       ,@(package-inputs hplip)))))
-- 
2.13.0


[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 833 bytes --]