;;; 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))
    (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
    (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
    (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")
               (("markdown>=3.1,<3.2") "markdown>=3.1,<4")
               (("watchdog==0.10.4") "watchdog>=0.10.4")
               (("wrapt>=1.12.1,<1.13") "wrapt>=1.12.1")
               (("zeroconf>=0.33,<0.34") "zeroconf>=0.33")
               ;; Relax core packages that are outdated in Guix.
               (("Jinja2>=2.11.3,<3") "Jinja2>=2.11.2,<3")
               (("requests>=2.26.0,<3") "requests>=2.25,<3"))))
         (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
     `(("python-ddt" ,python-ddt)
       ("python-mock" ,python-mock)
       ("python-pytest" ,python-pytest)
       ("python-pytest-doctest-custom"
        ,python-pytest-doctest-custom)))
    (inputs
     `(("octoprint-filecheck" ,octoprint-filecheck)
       ("octoprint-firmwarecheck" ,octoprint-firmwarecheck)
       ("octoprint-pisupport" ,octoprint-pisupport)
       ("python-appdirs" ,python-appdirs)
       ("python-blinker" ,python-blinker)
       ("python-cachelib" ,python-cachelib)
       ("python-click" ,python-click)
       ("python-colorlog" ,python-colorlog)
       ("python-emoji" ,python-emoji)
       ("python-feedparser" ,python-feedparser)
       ("python-filetype" ,python-filetype)
       ("python-flask" ,python-flask)
       ("python-flask-assets" ,python-flask-assets)
       ("python-flask-babel" ,python-flask-babel)
       ("python-flask-login" ,python-flask-login)
       ("python-future" ,python-future)
       ("python-immutabledict" ,python-immutabledict)
       ("python-itsdangerous" ,python-itsdangerous)
       ("python-jinja2" ,python-jinja2)
       ("python-markdown" ,python-markdown)
       ("python-markupsafe" ,python-markupsafe)
       ("python-netaddr" ,python-netaddr)
       ("python-netifaces" ,python-netifaces)
       ("python-pathvalidate" ,python-pathvalidate)
       ("python-pkginfo" ,python-pkginfo)
       ("python-psutil" ,python-psutil)
       ("python-pylru" ,python-pylru)
       ("python-pyserial" ,python-pyserial)
       ("python-pyyaml" ,python-pyyaml)
       ("python-regex" ,python-regex)
       ("python-requests" ,python-requests)
       ("python-sarge" ,python-sarge)
       ("python-semantic-version"
        ,python-semantic-version)
       ("python-sentry-sdk" ,python-sentry-sdk)
       ("python-tornado" ,python-tornado-6)
       ("python-unidecode" ,python-unidecode)
       ("python-watchdog" ,python-watchdog)
       ("python-websocket-client"
        ,python-websocket-client)
       ("python-werkzeug" ,python-werkzeug)
       ("python-wrapt" ,python-wrapt)
       ("python-zeroconf" ,python-zeroconf)
       ("python-zipstream-new" ,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+)))