;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2018 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2022 Morgan Smith <Morgan.J.Smith@outlook.com>
;;; Copyright © 2024 Herman Rimm <herman@rimm.ee>
;;; Copyright © 2025 Sharlatan Hellseher <sharlatanus@gmail.com>
;;;
;;; 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 licenses) #:prefix license:)
#:use-module (guix build-system cmake)
#:use-module (guix build-system gnu)
#:use-module (guix build-system go)
#:use-module (guix build-system pyproject)
#:use-module (guix gexp)
#:use-module (guix git-download)
#:use-module (guix packages)
#:use-module (gnu packages avahi)
#:use-module (gnu packages gd)
#:use-module (gnu packages gettext)
#:use-module (gnu packages golang-xyz)
#:use-module (gnu packages libffi)
#:use-module (gnu packages libusb)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages python-build)
#:use-module (gnu packages python-graphics)
#:use-module (gnu packages python-xyz)
#:use-module (gnu packages qt)
#:use-module (gnu packages version-control)
#:use-module (gnu packages wxwidgets)
#:use-module (gnu packages xorg)
#:use-module (gnu packages xml))
;; This is a module for packages related to printer-like devices, but not
;; related to CUPS.
(define-public ipp-usb
(package
(name "ipp-usb")
(version "0.9.28")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/OpenPrinting/ipp-usb")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "068rfy8arjxhgwll46bfq0x3ypi05qjd6gv0zqynfrk2zcwn4f3y"))
(snippet
#~(begin (use-modules (guix build utils))
(delete-file-recursively "vendor")))))
(build-system go-build-system)
(arguments
(list
#:install-source? #f
#:import-path "github.com/OpenPrinting/ipp-usb"
#:phases
#~(modify-phases %standard-phases
(add-after 'install 'install-manual-page
(lambda* (#:key import-path #:allow-other-keys)
(with-directory-excursion (string-append "src/" import-path)
(let* ((man (string-append #$output "/share/man/man8")))
(mkdir-p man)
(invoke "go-md2man"
"-in" "ipp-usb.8.md"
"-out" (string-append man "/ipp-usb.8"))))))
(add-after 'install 'install-udev-rules
(lambda* (#:key import-path #:allow-other-keys)
(with-directory-excursion (string-append "src/" import-path)
(substitute* "systemd-udev/71-ipp-usb.rules"
(("systemd") "shephard")
((", ENV\\{SYSTEMD_WANTS\\}\\+=\"ipp-usb.service\"") ""))
(install-file "systemd-udev/71-ipp-usb.rules"
(string-append #$output "/lib/udev/rules.d"))))))))
(inputs
(list avahi libusb))
(native-inputs
(list go-github-com-openprinting-goipp
go-md2man
pkg-config))
(home-page "https://github.com/OpenPrinting/ipp-usb")
(synopsis "HTTP reverse proxy, backed by the IPP-over-USB connection")
(description
"ipp-usb implements an HTTP reverse proxy, backed by the IPP-over-USB
connection to the device. This is because IPP-over-USB implementations which
simply relay a TCP connection to USB do not work.")
(license license:bsd-2)))
(define-public ptouch-print
(package
(name "ptouch-print")
(version "1.6")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://git.familie-radermacher.ch/linux/ptouch-print.git")
(commit (string-append "v" version))))
(sha256
(base32 "1pxi30a74azhzsl1wni2va4rkhlfn97qxmz4kryrj9xkvf55jv88"))
(file-name (git-file-name name version))))
(build-system cmake-build-system)
(arguments
'(#:tests? #f ;no test target
#:phases (modify-phases %standard-phases
(add-before 'configure 'patch-cmakefile
(lambda _
(substitute* "CMakeLists.txt"
;; Remove the internal override of CMAKE_INSTALL_PREFIX
(("set\\(CMAKE_INSTALL_PREFIX /usr\\)")
"")
;; Remove hard coded udev install steps, installing it in the
;; install-udev-rules phase
(("if\\(EXISTS /etc/udev/rules.d\\)
[[:blank:]]+install\\(FILES udev/.*?\\.rules DESTINATION /etc/udev/rules.d\\)
[[:blank:]]+install\\(CODE \".*?\"\\)
endif\\(\\)
")
""))))
(add-after 'install 'install-udev-rules
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(rules (string-append out "/lib/udev/rules.d/")))
(install-file
"../source/udev/90-usb-ptouch-permissions.rules"
rules)))))))
(native-inputs (list gd git gettext-minimal libusb pkg-config))
(synopsis "CLI tool to print labels on Brother P-Touch printers")
(description
"This package provides the command line tool @command{ptouch-print} to
print labels on Brother P-Touch printers. It also contains udev rules for
non-root access for the known P-Touch printers. This does not require CUPS
to work as the printer is accessed directly via libusb.")
(home-page "https://dominic.familie-radermacher.ch/projekte/ptouch-print/")
(license license:gpl3)))
(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
(list
#:phases
#~(modify-phases %standard-phases
(replace 'configure
(lambda _
(substitute* "Robocut.pro"
(("/usr/") (string-append #$output "/")))
(invoke "qmake" (string-append "PREFIX=" #$output)))))))
(inputs
(list libusb qtbase-5 qtsvg-5))
(native-inputs
(list pkg-config 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+)))
(define-public printrun
(package
(name "printrun")
(version "2.2.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/kliment/Printrun")
(commit (string-append "printrun-" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0imnpyc4w3xzm353fjmwig4a2yfm2nhagl1bib4871m014c4vli0"))))
(build-system pyproject-build-system)
(arguments
(list
#:test-backend #~'unittest
#:test-flags #~(list "discover" "tests")
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-files
(lambda _
(delete-file "printrun/power/osx.py")
(delete-file "printrun/packer.py")
(substitute* "printrun/utils.py"
(("shared_pronterface_images_dir = .*")
(string-append
"shared_pronterface_images_dir = \""
#$output "/share/pronterface/images\"\n"))
(("shared_pixmaps_dir = .*")
(string-append "shared_pixmaps_dir = \""
#$output "/share/pixmaps\"\n"))
(("shared_pronterface_dir = .*")
(string-append "shared_pixmaps_dir = \""
#$output
"/share/pronterface\"\n")))))
(add-before 'check 'setup-display
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(system "Xvfb :1 &")
(setenv "DISPLAY" ":1")))))))
(native-inputs
(list python-cython
python-setuptools
xorg-server-for-tests))
(inputs
(list python-dbus-python
python-lxml
python-numpy
python-pillow
python-platformdirs
python-psutil
python-puremagic
python-pyglet-1
python-pyserial
python-wxpython))
(home-page "https://github.com/kliment/Printrun/")
(synopsis "Pronterface, Pronsole, and Printcore 3D printing host software")
(description
"Printrun consists of printcore, pronsole and pronterface, and a small
collection of helpful scripts.")
(license license:gpl3+)))