1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
| | ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2018 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2021 Vinicius Monego <monego@posteo.net>
;;;
;;; 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 git-download)
#:use-module (guix build-system gnu)
#:use-module (guix build-system python)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (gnu packages libusb)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages qt)
#:use-module (gnu packages python-web))
;; This is a module for packages related to printer-like devices, but not
;; related to CUPS.
(define-public octoprint-pisupport
(package
(name "octoprint-pisupport")
(version "2021.10.28")
(source
(origin
(method url-fetch)
(uri (pypi-uri "OctoPrint-PiSupport" version))
(sha256
(base32 "05g79hb0x8bpk4qk9h6dibl0pnlsvbnmn8jx64z4dx8hdfad3rwf"))))
(build-system python-build-system)
(arguments
;; No tests in PyPI release, and circular dependency on Octoprint.
`(#:tests? #f
#:phases
(modify-phases %standard-phases
(delete 'sanity-check)))) ; checks for Octoprint
(propagated-inputs
(list python-flask))
(home-page "https://github.com/OctoPrint/OctoPrint-PiSupport")
(synopsis "Plugin to provide additional information about your Pi")
(description "The Pi Support plugin provides additional information about
your Pi in the UI and also alerts you about undervoltage or overheating issues
observed on your Pi or if your Pi is unsupported.")
(license license:agpl3)))
(define-public octoprint-firmwarecheck
(package
(name "octoprint-firmwarecheck")
(version "2021.10.11")
(source
(origin
(method url-fetch)
(uri (pypi-uri "OctoPrint-FirmwareCheck" version))
(sha256
(base32 "17prs0rmzglw75gkf6j7qypxisjvcfk2mbsyfqrjdbwg99i62s2h"))))
(build-system python-build-system)
(arguments
`(#:tests? #f ; no tests
#:phases
(modify-phases %standard-phases
(delete 'sanity-check)))) ; checks for Octoprint
(propagated-inputs
(list python-flask))
(home-page "https://github.com/OctoPrint/OctoPrint-FirmwareCheck")
(synopsis "Plugin to check for unsafe or broken printer firmwares")
(description "The Firmware Check plugin tries to identify printers
or rather printer firmware with known safety issues, such as disabled
thermal runaway protection, or other kinds of severe issues, like known
communication crippling bugs, and displays a warning box to logged in users
on identification of such a firmware.")
(license license:agpl3)))
(define-public robocut
(package
(name "robocut")
(version "1.0.11")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/Timmmm/robocut")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0dp9cssyik63yvkk35s51v94a873x751iqg93qzd8dpqkmz5z8gn"))))
(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-5)
("qtsvg" ,qtsvg)))
(native-inputs
`(("pkg-config" ,pkg-config)
("qmake" ,qtbase-5)))
(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+)))
|