[jackhill/guix/guix.git] / gnu / packages / printers.scm

;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2018 Ludovic Courtès <ludo@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gnu packages printers)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix build-system gnu)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (gnu packages libusb)
  #:use-module (gnu packages pkg-config)
  #:use-module (gnu packages qt))

;; This is a module for packages related to printer-like devices, but not
;; related to CUPS.

(define-public robocut
  (package
    (name "robocut")
    (version "1.0.11")
    (source (origin
              (method url-fetch)
              (uri (string-append
                    "https://github.com/Timmmm/robocut/archive/v"
                    version ".tar.gz"))
              (sha256
               (base32
                "0nmr1plq1f6sarxwqwy4vzbxkljlx8y4xalm7r05vx4lrdai5pad"))
              (file-name (string-append name "-" version ".tar.gz"))))
    (build-system gnu-build-system)
    (arguments
     '(#:phases (modify-phases %standard-phases
                  (replace 'configure
                    (lambda* (#:key outputs #:allow-other-keys)
                      (let ((out (assoc-ref outputs "out")))
                        (substitute* "Robocut.pro"
                          (("/usr/")
                           (string-append out "/")))

                        (invoke "qmake"
                                (string-append "PREFIX=" out))
                        #t))))))
    (inputs
     `(("libusb" ,libusb)
       ("qt" ,qtbase)
       ("qtsvg" ,qtsvg)))
    (native-inputs
     `(("pkg-config" ,pkg-config)
       ("qmake" ,qttools)))
    (synopsis "Graphical program to drive plotting cutters")
    (description
     "Robocut is a simple graphical program that allows you to cut graphics
with Graphtec and Sihouette plotting cutters using an SVG file as its input.")
    (home-page "http://robocut.org")
    (license license:gpl3+)))
Commit	Line	Data
d801cd05 LC	1	;;; GNU Guix --- Functional package management for GNU
	2	;;; Copyright © 2018 Ludovic Courtès <ludo@gnu.org>
	3	;;;
	4	;;; This file is part of GNU Guix.
	5	;;;
	6	;;; GNU Guix is free software; you can redistribute it and/or modify it
	7	;;; under the terms of the GNU General Public License as published by
	8	;;; the Free Software Foundation; either version 3 of the License, or (at
	9	;;; your option) any later version.
	10	;;;
	11	;;; GNU Guix is distributed in the hope that it will be useful, but
	12	;;; WITHOUT ANY WARRANTY; without even the implied warranty of
	13	;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	14	;;; GNU General Public License for more details.
	15	;;;
	16	;;; You should have received a copy of the GNU General Public License
	17	;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
	18
	19	(define-module (gnu packages printers)
	20	#:use-module (guix packages)
	21	#:use-module (guix download)
	22	#:use-module (guix build-system gnu)
	23	#:use-module ((guix licenses) #:prefix license:)
	24	#:use-module (gnu packages libusb)
	25	#:use-module (gnu packages pkg-config)
	26	#:use-module (gnu packages qt))
	27
	28	;; This is a module for packages related to printer-like devices, but not
	29	;; related to CUPS.
	30
	31	(define-public robocut
	32	(package
	33	(name "robocut")
	34	(version "1.0.11")
	35	(source (origin
	36	(method url-fetch)
	37	(uri (string-append
	38	"https://github.com/Timmmm/robocut/archive/v"
	39	version ".tar.gz"))
	40	(sha256
	41	(base32
	42	"0nmr1plq1f6sarxwqwy4vzbxkljlx8y4xalm7r05vx4lrdai5pad"))
	43	(file-name (string-append name "-" version ".tar.gz"))))
	44	(build-system gnu-build-system)
	45	(arguments
	46	'(#:phases (modify-phases %standard-phases
	47	(replace 'configure
	48	(lambda* (#:key outputs #:allow-other-keys)
	49	(let ((out (assoc-ref outputs "out")))
	50	(substitute* "Robocut.pro"
	51	(("/usr/")
	52	(string-append out "/")))
	53
	54	(invoke "qmake"
	55	(string-append "PREFIX=" out))
	56	#t))))))
	57	(inputs
	58	`(("libusb" ,libusb)
	59	("qt" ,qtbase)
	60	("qtsvg" ,qtsvg)))
	61	(native-inputs
	62	`(("pkg-config" ,pkg-config)
	63	("qmake" ,qttools)))
	64	(synopsis "Graphical program to drive plotting cutters")
65	(description
66	"Robocut is a simple graphical program that allows you to cut graphics
67	with Graphtec and Sihouette plotting cutters using an SVG file as its input.")
68	(home-page "http://robocut.org")
69	(license license:gpl3+)))