gnu: robocut: Refresh package style.

* gnu/packages/printers.scm (robocut): Use G-expressions.
[native-inputs]: Remove labels.
[inputs]: Likewise.

Change-Id: I6c7790ab8ed8dddfedc9d6c0e2a7ee0870eea7ec

gnu/packages/printers.scm

@@ -19,6 +19,7 @@
 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
 
 (define-module (gnu packages printers)
+  #:use-module (guix gexp)
   #:use-module (guix packages)
   #:use-module (guix git-download)
   #:use-module (guix build-system gnu)
@@ -83,24 +84,18 @@ simply relay a TCP connection to USB do not work.")
         (base32 "0dp9cssyik63yvkk35s51v94a873x751iqg93qzd8dpqkmz5z8gn"))))
     (build-system gnu-build-system)
     (arguments
-     '(#:phases (modify-phases %standard-phases
+     (list
-                  (replace 'configure
+      #:phases
-                    (lambda* (#:key outputs #:allow-other-keys)
+      #~(modify-phases %standard-phases
-                      (let ((out (assoc-ref outputs "out")))
+          (replace 'configure
-                        (substitute* "Robocut.pro"
+            (lambda _
-                          (("/usr/")
+              (substitute* "Robocut.pro"
-                           (string-append out "/")))
+                (("/usr/") (string-append #$output "/")))
-
+              (invoke "qmake" (string-append "PREFIX=" #$output)))))))
-                        (invoke "qmake"
-                                (string-append "PREFIX=" out))
-                        #t))))))
     (inputs
-     `(("libusb" ,libusb)
+     (list libusb qtbase-5 qtsvg-5))
-       ("qt" ,qtbase-5)
-       ("qtsvg-5" ,qtsvg-5)))
     (native-inputs
-     `(("pkg-config" ,pkg-config)
+     (list pkg-config qtbase-5))
-       ("qmake" ,qtbase-5)))
     (synopsis "Graphical program to drive plotting cutters")
     (description
      "Robocut is a simple graphical program that allows you to cut graphics