rotated channel commit pins and updated hyprland xdg-portal

1 files changed, 11 insertions, 38 deletions

diff --git a/modules/ryan-packages/freedesktop.scm b/modules/ryan-packages/freedesktop.scm
index 1dd5d0d..0deb449 100644
--- a/modules/ryan-packages/freedesktop.scm
+++ b/modules/ryan-packages/freedesktop.scm
@@ -44,7 +44,7 @@
 (define-public xdg-desktop-portal-hyprland-ryan
   (package
     (name "xdg-desktop-portal-hyprland")
-    (version "1.2.4")
+    (version "1.2.6")
     (source (origin
               (method git-fetch)
               (uri (git-reference
@@ -57,48 +57,21 @@
     (build-system meson-build-system)
     (arguments
       (list
-        #:modules
-        '((guix build utils)
-          (guix build meson-build-system)
-          ((guix build qt-build-system) #:prefix qt:))
-        #:imported-modules
-        (append %meson-build-system-modules
-                %qt-build-system-modules)
         #:tests? #f
         #:configure-flags #~(list "-Dsystemd=disabled")
         #:phases
         ;; After building the portal, we need to build the share selector using qt
         #~(modify-phases %standard-phases
-            (add-after 'install 'chdir
-              (lambda _ (chdir "../source/hyprland-share-picker/")))
-            (add-after 'chdir 'check-setup
-              (assoc-ref qt:%standard-phases 'check-setup))
-            (add-after 'check-setup 'qt-build
-              (lambda* (#:key inputs outputs #:allow-other-keys)
-                ((assoc-ref qt:%standard-phases 'build)
-                 #:inputs inputs
-                 #:outputs outputs
-                 #:configure-flags '()
-                 #:qtbase #$(this-package-native-input "qtbase-5"))))
-            (add-after 'qt-build 'qt-install
-              (lambda* (#:key inputs outputs #:allow-other-keys)
-                (let ((share-picker (string-append (assoc-ref outputs "out")
-                                                   "/bin")))
-                  (install-file "build/hyprland-share-picker" share-picker)
-                  #t)))
-            (add-after 'qt-install 'qt-wrap
-              (assoc-ref qt:%standard-phases 'qt-wrap))
-            (add-after 'qt-wrap 'dep-wrap
-              (lambda* (#:key inputs #:allow-other-keys)
-                (let ((hyprland-share-picker (string-append #$output "/bin/hyprland-share-picker")))
-                  (wrap-program hyprland-share-picker
-                    `("PATH" suffix
-                      ,(map (lambda (program)
-                              (dirname (search-input-file
-                                        inputs (string-append "/bin/" program))))
-                            '("slurp"))))))))))
-    (native-inputs (list gcc-13 cmake pkg-config qtbase-5))
-    (inputs (list elogind hyprland hyprland-protocols slurp pipewire wayland-protocols wayland libinih mesa sdbus-c++ qtwayland-5 `(,util-linux "lib")))
+            (add-after `unpack `fix-path
+                (lambda* (#:key inputs #:allow-other-keys)
+                         (substitute* (find-files "." "\\.cp?*$")
+                                      (("/bin/sh") "sh")
+                                      (("\\<(sh|grim|hyprctl|slurp)\\>" _ cmd)
+                                       (search-input-files inputs (string-append "/bin/" cmd)))
+                                      (("\\<(hyprctl-share-picker)\\>" _ cmd)
+                                       (string-append #$output "/bin/" cmd))))))))
+    (native-inputs (list gcc-13 pkg-config wayland))
+    (inputs (list bash-minimal grim hyprland hyprland-protocols mesa pipewire qtbase-5 sdbus-c++ slurp wayland-protocols))
     (home-page "")
     (synopsis "test")
     (description "test")