[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#25101: [PATCH 1/2] gnu: Add hpaio-enabled sane-backends variant.
From: |
Andy Patterson |
Subject: |
bug#25101: [PATCH 1/2] gnu: Add hpaio-enabled sane-backends variant. |
Date: |
Sat, 3 Dec 2016 23:00:36 -0500 |
* gnu/packages/scanner.scm (sane-backends+hpaio): New variable.
---
gnu/packages/scanner.scm | 30 ++++++++++++++++++++++++++++++
1 file changed, 30 insertions(+)
diff --git a/gnu/packages/scanner.scm b/gnu/packages/scanner.scm
index 76817b3..f918291 100644
--- a/gnu/packages/scanner.scm
+++ b/gnu/packages/scanner.scm
@@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014 John Darrington <address@hidden>
;;; Copyright © 2015 Andy Wingo <address@hidden>
+;;; Copyright © 2016 Andy Patterson <address@hidden>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -20,6 +21,7 @@
(define-module (gnu packages scanner)
#:use-module (guix packages)
#:use-module (guix download)
+ #:use-module (guix utils)
#:use-module (guix build-system gnu)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages libusb)
@@ -73,3 +75,31 @@ proving access to any raster image scanner hardware (flatbed
scanner,
hand-held scanner, video- and still-cameras, frame-grabbers, etc.). The
package contains the library and drivers.")
(license licence:gpl2+))) ; plus linking exception
+
+(define-public sane-backends+hpaio
+ (package
+ (inherit sane-backends)
+ (name "sane-backends+hpaio")
+ (inputs
+ `(("hplip" ,(@ (gnu packages cups) hplip))
+ ,@(package-inputs sane-backends)))
+ (arguments
+ (substitute-keyword-arguments (package-arguments sane-backends)
+ ((#:phases phases)
+ `(modify-phases ,phases
+ (add-after 'unpack 'add-backends
+ (lambda _
+ (substitute* "backend/dll.conf.in"
+ (("hp5590" all) (format #f "~a~%~a" all "hpaio")))
+ #t))
+ (add-after 'install 'install-hpaio
+ (lambda* (#:key inputs outputs #:allow-other-keys)
+ (define hplip (string-append (assoc-ref inputs "hplip")
+ "/lib/sane"))
+ (define out (string-append (assoc-ref outputs "out")
+ "/lib/sane"))
+ (for-each
+ (lambda (file)
+ (symlink file (string-append out "/" (basename file))))
+ (find-files hplip))
+ #t))))))))
--
2.10.2
- bug#25101: simple-scan can't use hpaio, Danny Milosavljevic, 2016/12/03
- bug#25101: simple-scan can't use hpaio, Andy Patterson, 2016/12/03
- bug#25101: [PATCH 1/2] gnu: Add hpaio-enabled sane-backends variant.,
Andy Patterson <=
- bug#25101: [PATCH 1/2] gnu: Add hpaio-enabled sane-backends variant., Ludovic Courtès, 2016/12/05
- bug#25101: [PATCH 1/2] gnu: Add hpaio-enabled sane-backends variant., Andy Patterson, 2016/12/05
- bug#25101: [PATCH 1/2] gnu: Add hpaio-enabled sane-backends variant., Ludovic Courtès, 2016/12/06
- bug#25101: [PATCH 1/2] gnu: Add hpaio-enabled sane-backends variant., Andy Patterson, 2016/12/12
- bug#25101: [PATCH 1/2] gnu: Add hpaio-enabled sane-backends variant., Ludovic Courtès, 2016/12/12
- bug#25101: [PATCH 1/2] gnu: Add hpaio-enabled sane-backends variant., Andy Patterson, 2016/12/14
- bug#25101: [PATCH 1/3] gnu: sane-backends: Disable backend generation., Andy Patterson, 2016/12/14
- bug#25101: [PATCH 3/3] gnu: Add and use sane-backends., Andy Patterson, 2016/12/14
- bug#25101: [PATCH 2/3] gnu: Add and use sane-backends-minimal., Andy Patterson, 2016/12/14
- bug#25101: [PATCH 1/2] gnu: Add hpaio-enabled sane-backends variant., Ludovic Courtès, 2016/12/17