.

zilti/packages/hyprland.scm

@@ -260,15 +260,21 @@ more.")
    (build-system cmake-build-system)
    (arguments
     (list
-     #:phases #~(modify-phases %standard-phases
-                             (add-before 'configure 'generate-protocols
-                                         (lambda _
-                                           (setenv "CC" "gcc")
-                                           (invoke "make" "protocols")))
-                             (replace 'install
-                                      (lambda _
-                                        (invoke "cmake" "--install" ".")))
-                             (delete 'check))))
+     #:phases
+     #~(modify-phases %standard-phases
+                      (add-before 'configure 'generate-protocols
+                                  (lambda _
+                                    (setenv "CC" "gcc")
+                                    (invoke "make" "protocols")))
+                      (replace 'install
+                               (lambda _
+                                 (let* ((output (assoc-ref %outputs "out"))
+                                        (out-bin (string-append output "/bin")))
+                                   (use-modules (guix build utils))
+                                   (invoke "ls")
+                                   (install-file "./hyprpaper"
+                                                 out-bin))))
+                      (delete 'check))))
    (native-inputs
     (list gcc-13
           pkg-config))