gnu: guile-studio: Update to 0.0.2.

* gnu/packages/guile-xyz.scm (guile-studio): Update to 0.0.2.
[arguments]: Only include emacs inputs in INPUTS make flag.

gnu/packages/guile-xyz.scm

@@ -2002,23 +2002,25 @@ (define-public guile-picture-language
       (license license:lgpl3+))))
 
 (define-public guile-studio
-  (let ((commit "98fbbbd08de396cd8a0e45f2a4badf1c733a5772")
-        (revision "3"))
   (package
     (name "guile-studio")
-      (version (git-version "0.0.1" revision commit))
+    (version "0.0.2")
     (source (origin
               (method git-fetch)
               (uri (git-reference
                     (url "https://git.elephly.net/software/guile-studio.git")
-                      (commit commit)))
+                    (commit version)))
               (file-name (git-file-name name version))
               (sha256
                (base32
-                  "0rxl5gv2mavycwkl33lcwyb3z71j2f4zyzk60k7vl3hzszpr08iq"))))
+                "10ls4ra148hd9ra7sin4kh9vv0am5pwk48p7dsjhrlg2l1hsh4hi"))))
     (build-system gnu-build-system)
     (arguments
-       `(#:tests? #f                      ; there are none
+     `(#:modules
+       ((ice-9 match)
+        (srfi srfi-1)
+        ,@%gnu-build-system-modules)
+       #:tests? #f                    ; there are none
        #:make-flags
        (list (string-append "ICONS_DIR="
                             (assoc-ref %build-inputs "adwaita-icon-theme")
@@ -2029,7 +2031,13 @@ (define-public guile-studio
                             (assoc-ref %build-inputs "emacs"))
              (string-append "GUILE_DIR="
                             (assoc-ref %build-inputs "guile"))
-               (string-join (cons "INPUTS=" (map cdr %build-inputs)))
+             (string-join (cons "INPUTS="
+                                (filter-map
+                                 (lambda (input)
+                                   (match input
+                                     ((label . pkg)
+                                      (and (string-prefix? "emacs" label) pkg))))
+                                 %build-inputs)))
              (string-append "PREFIX=" (assoc-ref %outputs "out")))
        #:phases
        (modify-phases %standard-phases
@@ -2054,7 +2062,7 @@ (define-public guile-studio
 for people new to Emacs.  Features include: CUA mode, Geiser, tool bar icons
 to evaluate Guile buffers, support for Guile's very own picture language, code
 completion, a simple mode line, etc.")
-      (license license:gpl3+))))
+    (license license:gpl3+)))
 
 (define-public guile-stis-parser
   (let ((commit "6e85d37ffc333b722f4413a6c648263701eb75bd")