rosenthal: grimblast: Update to 0.1.

* rosenthal/packages/wm.scm (grimblast): Update to 0.1.

rosenthal/packages/wm.scm

@@ -188,46 +188,43 @@ layouts, fancy effects, has a very flexible IPC model allowing for a lot of
 customization, and more.")
       (license license:bsd-3))))
 
-;; No releases yet.
 (define-public grimblast
-  (let ((revision "1")
+  (package
-        (commit "37c8121f98d76f57caa00dd7106877876e0d7483"))
+    (name "grimblast")
-    (package
+    (version "0.1")
-      (name "grimblast")
+    (source (origin
-      (version (git-version "0" revision commit))
+              (method git-fetch)
-      (source (origin
+              (uri (git-reference
-                (method git-fetch)
+                    (url "https://github.com/hyprwm/contrib")
-                (uri (git-reference
+                    (commit (string-append "v" version))))
-                      (url "https://github.com/hyprwm/contrib")
+              (file-name (git-file-name name version))
-                      (commit commit)))
+              (sha256
-                (file-name (git-file-name name version))
+               (base32
-                (sha256
+                "0ld0sj7ahf9jf8cqzbqkhj3m2w60027ixic24ih26nwy90b5qjwx"))))
-                 (base32
+    (build-system gnu-build-system)
-                  "1jhjjblklqnz601ic58bl0x550d1rkyaqdmydhqzx3k2bc2mnjk7"))))
+    (arguments
-      (build-system gnu-build-system)
+     (list #:tests? #f                ;no tests
-      (arguments
+           #:make-flags
-       (list #:tests? #f                ;no tests
+           #~(list (string-append "PREFIX=" #$output))
-             #:make-flags
+           #:phases
-             #~(list (string-append "PREFIX=" #$output))
+           #~(modify-phases %standard-phases
-             #:phases
+               (delete 'configure)
-             #~(modify-phases %standard-phases
+               (add-after 'unpack 'chdir
-                 (delete 'configure)
+                 (lambda _
-                 (add-after 'unpack 'chdir
+                   (chdir "grimblast")))
-                   (lambda _
+               (add-after 'install 'wrap
-                     (chdir "grimblast")))
+                 (lambda* (#:key inputs #:allow-other-keys)
-                 (add-after 'install 'wrap
+                   (let ((grimblast (string-append #$output "/bin/grimblast")))
-                   (lambda* (#:key inputs #:allow-other-keys)
+                     (wrap-script grimblast
-                     (let ((grimblast (string-append #$output "/bin/grimblast")))
+                       `("PATH" suffix
-                       (wrap-script grimblast
+                         ,(map (lambda (program)
-                         `("PATH" suffix
+                                 (dirname (search-input-file
-                           ,(map (lambda (program)
+                                           inputs (string-append "/bin/" program))))
-                                   (dirname (search-input-file
+                               '("grim" "slurp" "hyprctl" "wl-copy" "jq"
-                                             inputs (string-append "/bin/" program))))
+                                 "notify-send" "date"))))))))))
-                                 '("grim" "slurp" "hyprctl" "wl-copy" "jq"
+    (native-inputs (list scdoc))
-                                   "notify-send" "date"))))))))))
+    (inputs (list grim guile-3.0 jq libnotify slurp hyprland wl-clipboard))
-      (native-inputs (list scdoc))
+    (home-page "https://github.com/hyprwm/contrib")
-      (inputs (list grim guile-3.0 jq libnotify slurp hyprland wl-clipboard))
+    (synopsis "Hyprland version of Grimshot")
-      (home-page "https://github.com/hyprwm/contrib")
+    (description "A Hyprland version of Grimshot.")
-      (synopsis "Hyprland version of Grimshot")
+    (license license:expat)))
-      (description "A Hyprland version of Grimshot.")
-      (license license:expat))))