;;; 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 check)
  #:use-module (gnu packages libusb)
  #:use-module (gnu packages pkg-config)
  #:use-module (gnu packages python)
  #:use-module (gnu packages python-check)
  #:use-module (gnu packages python-web)
  #:use-module (gnu packages python-xyz)
  #:use-module (gnu packages qt)
  #:use-module (gnu packages 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 octoprint-filecheck
  (package
    (name "octoprint-filecheck")
    (version "2021.2.23")
    (source
     (origin
       (method url-fetch)
       (uri (pypi-uri "OctoPrint-FileCheck" version))
       (sha256
        (base32 "0bgvv6hvxa9qv0fs5dfr9wlbbjawxik8f2cid3h3czdhdhw46aqv"))))
    (build-system python-build-system)
    (arguments
     `(#:tests? #f                      ; no tests
       #:phases
       (modify-phases %standard-phases
         (delete 'sanity-check))))      ; checks for Octoprint
    (home-page "https://github.com/OctoPrint/OctoPrint-FileCheck")
    (synopsis "Plugin to check for common issues in uploaded files")
    (description "The File Check plugin tries to detect common issues in
uploaded files that are known to cause issues while printing and which in
the past have caused support requests on OctoPrint's Community Forums.")
    (license license:agpl3)))

(define-public octoprint
  (package
    (name "octoprint")
    (version "1.7.2")
    (source
     (origin
       (method git-fetch) ; no tests in the PyPI tarball.
       (uri (git-reference
             (url "https://github.com/OctoPrint/OctoPrint")
             (commit version)))
       (file-name (git-file-name name version))
       (sha256
        (base32 "0zvjnbcmszifvr02rsmfzb5v24f1ss8klrnkd9fcg2351nkpqbbd"))
       (modules '((guix build utils)))
       (snippet
        '(begin
           ;; Remove bundled font-awesome.
           (delete-file-recursively "src/octoprint/static/vendor") #t))))
    (build-system python-build-system)
    (arguments
     `(#:phases
       (modify-phases %standard-phases
         (add-after 'unpack 'relax-version-requirements
           ;; Octoprint maintains strict version requirements for Python2
           ;; compatibility.  We're not packaging with Python2, so modify
           ;; setup.py to relax those versions.  Octoprint will drop Python2
           ;; support in version 2.0 so we won't need this change after it.
           (lambda _
             (substitute* "setup.py"
               (("cachelib>=0.1,<0.2") "cachelib>=0.1")
               (("colorlog>=5.0.1,<6") "colorlog>=5.0.1")
               (("flask>=1.1.4,<2") "flask>=1.1.4")
               (("itsdangerous>=1.1.0,<2") "itsdangerous>=1.1.0")
               (("Jinja2>=2.11.3,<3") "Jinja2>=2.11.3")
               (("markdown>=3.1,<3.2") "markdown>=3.1,<4")
               (("markupsafe>=1.1,<2.0") "markupsafe>=1.1")
               (("sarge==0.1.6") "sarge>=0.1.6")
               (("watchdog==0.10.4") "watchdog>=0.10.4")
               (("werkzeug>=1.0.1,<2") "werkzeug>=1.0.1")
               (("wrapt>=1.12.1,<1.13") "wrapt>=1.12.1")
               (("zeroconf>=0.33,<0.34") "zeroconf>=0.33"))))
         (add-before 'check 'set-home
           (lambda _
             (setenv "HOME" (getcwd)))) ; some tests need a writable home
         (replace 'check
           (lambda* (#:key inputs outputs tests? #:allow-other-keys)
             (when tests?
               (add-installed-pythonpath inputs outputs)
               (invoke "python" "-m" "pytest" "tests" "-k"
                       (string-append
                        ;; These tests try to write to the source tree and
                        ;; fail with PermissionError.
                        "not test_add_file_overwrite"
                        " and not test_set_external_modification"))))))))
    (native-inputs
     (list python-ddt python-mock python-pytest python-pytest-doctest-custom))
    (inputs
     (list octoprint-filecheck
           octoprint-firmwarecheck
           octoprint-pisupport
           python-appdirs
           python-blinker
           python-cachelib
           python-click
           python-colorlog
           python-emoji
           python-feedparser
           python-filetype
           python-flask
           python-flask-assets
           python-flask-babel
           python-flask-login
           python-future
           python-immutabledict
           python-itsdangerous
           python-jinja2
           python-markdown
           python-markupsafe
           python-netaddr
           python-netifaces
           python-pathvalidate
           python-pkginfo
           python-psutil
           python-pylru
           python-pyserial
           python-pyyaml
           python-regex
           python-requests
           python-sarge
           python-semantic-version
           python-sentry-sdk
           python-tornado-6
           python-unidecode
           python-watchdog
           python-websocket-client
           python-werkzeug
           python-wrapt
           python-zeroconf
           python-zipstream-new))
    (home-page "https://octoprint.org")
    (synopsis "Web interface for 3D printers")
    (description "OctoPrint provides a snappy web interface for controlling
consumer 3D printers.")
    ;; The web interface contains many third party JavaScript libraries under
    ;; different licenses.  Check THIRDPARTYLICENSES.md.
    (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+)))