rosenthal: hyprland: Update to 0.25.0-2.0432804.

* rosenthal/packages/wm.scm (wlroots-for-hyprland): Update to
0.16.0-368.6830bfc.
[build-system,arguments]: Drop field, use inherited value.
[propagated-inputs]: Add libdisplay-info-for-hyprland.
Remove libdrm-2.4.115.
Don't replace libxkbcommon.
[native-inputs]: Replace hwdata:pnp to hwdata-for-hyprland:out.
(hyprland-unbundle-wlroots-patch): Update patch.
(hyprland): Update to 0.25.0-2.0432804.
[arguments]<#:phases>: Add phase 'substitute-meson-build.
[inputs]: Add pango, udis86-for-hyprland.
Remove cairo, pixman-0.42.2.

rosenthal/packages/wm.scm

@@ -83,11 +83,11 @@ command line tool called @code{udcli} that incorporates the library.")
 
 (define wlroots-for-hyprland
   (let ((base wlroots)
-        (revision "212")
-        (commit "5f264a7d6c8af27d41ff440c05262b022c055593"))
+        (revision "368")
+        (commit "6830bfc17fd94709e2cdd4da0af989f102a26e59"))
     (package
       (inherit base)
-      (name "wlroots-for-hyprland")
+      (name "wlroots")
       (version (git-version "0.16.0" revision commit))
       (source (origin
                 (method git-fetch)
@@ -97,24 +97,15 @@ command line tool called @code{udcli} that incorporates the library.")
                 (file-name (git-file-name name version))
                 (sha256
                  (base32
-                  "1qgdpigisgzvhf5m48v0vp21hn4fpljkjgij9wlmlmkv7rk2idj9"))))
-      (build-system meson-build-system)
-      (arguments
-       (list #:build-type "release"
-             #:phases
-             #~(modify-phases %standard-phases
-                 (add-after 'unpack 'fix-hwdata-path
-                   (lambda* (#:key inputs #:allow-other-keys)
-                     (substitute* "backend/drm/meson.build"
-                       (("/usr/\\<(share/hwdata/pnp\\.ids)\\>" all path)
-                        (search-input-file inputs path))))))))
+                  "13i83186hwpbghdflyqq1s762rqxzb75rj45c05vd6xx0f8j6q8q"))))
       (propagated-inputs
        (modify-inputs (package-propagated-inputs base)
-         (append libdrm-2.4.115 libxcb xcb-util-renderutil)
-         (replace "libxkbcommon" libxkbcommon-minimal)
+         (append libdisplay-info-for-hyprland libxcb xcb-util-renderutil)
          (replace "pixman" pixman-0.42.2)
          (replace "wayland-protocols" wayland-protocols-1.31)))
-      (native-inputs (list `(,hwdata "pnp") pkg-config)))))
+      (native-inputs
+       (modify-inputs (package-native-inputs base)
+         (replace "hwdata" `(,hwdata-for-hyprland "out")))))))
 
 (define-public hyprland-protocols
   (package
@@ -144,29 +135,28 @@ protocols used by Hyprland to bridge the aforementioned gap.")
   (origin
     (method url-fetch)
     (uri (string-append "https://github.com/hyprwm/Hyprland" "/raw/"
-                        "2f6b37e1032fbacd506978e0098807e1b334aa5d" "/nix/"
+                        "72d2f33b34951b7f5be6cdbc302b1c6a33cbf60f" "/nix/"
                         "meson-build.patch"))
     (file-name "hyprland-unbundle-wlroots.patch")
     (sha256
-     (base32 "083r6a2pmnnrz1jz3g3ikx8dffs3ajdd49gawnh3skm59snanr2l"))))
+     (base32 "1wj0kwvkkk2r7k18m9i2hdp9i9z7n330dib27jlbc8mjr96976y5"))))
 
 (define-public hyprland
+  (let ((commit "0432804b180dbdf7aed64a5bf71b912a937e2e04")
+        (revision "2"))
     (package
       (name "hyprland")
-    (version "0.21.0beta")
+      (version (git-version "0.25.0" revision commit))
       (source (origin
                 (method git-fetch)
                 (uri (git-reference
                       (url "https://github.com/hyprwm/Hyprland")
-                    (commit (string-append "v" version))))
+                      (commit commit)))
                 (file-name (git-file-name name version))
                 (patches (list hyprland-unbundle-wlroots-patch))
-              (modules '((guix build utils)))
-              (snippet '(substitute* "meson.build"
-                          (("git") "true")))
                 (sha256
                  (base32
-                "0ff4lpg82bmxzlx8kb11shb550fqq8arp5gycg702qc9yjzsqnqi"))))
+                  "1whxqn69yxzl04zbh0yccqwgjqrpzm7bxglpkfil889039g8vhjb"))))
       (build-system meson-build-system)
       (arguments
        (list #:build-type "release"
@@ -175,9 +165,19 @@ protocols used by Hyprland to bridge the aforementioned gap.")
                  (add-after 'unpack 'fix-default-wallpaper-path
                    (lambda _
                      (substitute* "src/render/OpenGL.cpp"
-                     (("/usr") #$output)))))))
+                       (("/usr") #$output))))
+                 (add-after 'unpack 'substitute-meson-build
+                   (lambda _
+                     (substitute* "meson.build"
+                       (("git") "true")
+                       (("@GIT_DIRTY@") "")
+                       (("@GIT_COMMIT_HASH@") #$commit)))))))
       (native-inputs (list gcc-12 jq pkg-config))
-    (inputs (list cairo hyprland-protocols pixman-0.42.2 wlroots-for-hyprland))
+      (inputs
+       (list hyprland-protocols
+             pango
+             udis86-for-hyprland
+             wlroots-for-hyprland))
       (home-page "https://hyprland.org")
       (synopsis "Dynamic tiling Wayland compositor based on wlroots")
       (description
@@ -185,7 +185,7 @@ protocols used by Hyprland to bridge the aforementioned gap.")
 @code{wlroots} that doesn't sacrifice on its looks.  It supports multiple
 layouts, fancy effects, has a very flexible IPC model allowing for a lot of
 customization, and more.")
-    (license license:bsd-3)))
+      (license license:bsd-3))))
 
 ;; No releases yet.
 (define-public grimblast