Subject: [bug#74315] [PATCH v2] gnu: Add ptouch-print.

From: Fredrik Salomonsson <[email-masked]>
Date: Tue, 8 Apr 2025 22:04:46 +0000

* gnu/packages/printers.scm (ptouch-print): New variable.

Change-Id: I2ab2a80b80932af8566f6c5879e63e7b0bced747
---
 gnu/packages/printers.scm | 51 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 51 insertions(+)

diff --git a/gnu/packages/printers.scm b/gnu/packages/printers.scm
index 0069494b4d..8a78adbfd7 100644
--- a/gnu/packages/printers.scm
+++ b/gnu/packages/printers.scm
@@ -22,14 +22,18 @@ (define-module (gnu packages printers)
   #:use-module (guix gexp)
   #:use-module (guix packages)
   #:use-module (guix git-download)
+  #:use-module (guix build-system cmake)
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system go)
   #:use-module ((guix licenses) #:prefix license:)
   #: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 libusb)
   #:use-module (gnu packages man)
   #:use-module (gnu packages pkg-config)
+  #:use-module (gnu packages version-control)
   #:use-module (gnu packages qt))
 
 ;; This is a module for packages related to printer-like devices, but not
@@ -69,6 +73,53 @@ (define-public ipp-usb
 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\\)
+	install\\(FILES udev/90-usb-ptouch-permissions.rules DESTINATION /etc/udev/rules.d\\)
+	install\\(CODE \"execute_process(COMMAND udevadm control --reload-rules)\"\\)
+endif\\(\\)
+")
+                         "")) #t))
+                  (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
+     "A command line tool to print labels on Brother P-Touch
+printers on Linux.  Note that there is no need to install the printer via CUPS, 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")

base-commit: c9dfe2aceb69e121b03349b6610d51d9374b4570
-- 
2.49.0