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
From 421a9e9d782804f9390c8a1f133800610e921f5f Mon Sep 17 00:00:00 2001 From: ng0 <[email protected]> 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 <[email protected]> ;;; Copyright © 2017 Leo Famulari <[email protected]> ;;; Copyright © 2017 Mark H Weaver <[email protected]> +;;; Copyright © 2017 ng0 <[email protected]> ;;; ;;; 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
signature.asc
Description: PGP signature
