From 3a97da00299d680d7287de927dd208e309640eaf Mon Sep 17 00:00:00 2001
From: Andrew Wong <wongandj@icloud.com>
Date: Thu, 27 Mar 2025 23:07:13 -0400
Subject: [PATCH] guix: add wrap-program phase

This lets quickshell find QML modules outside of 'guix shell'.
---
 quickshell.scm | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/quickshell.scm b/quickshell.scm
index b0354da..05bf269 100644
--- a/quickshell.scm
+++ b/quickshell.scm
@@ -57,12 +57,15 @@
                    "-DDISTRIBUTOR_DEBUGINFO_AVAILABLE=NO"
                    ;; Breakpad is not currently packaged for Guix.
                    "-DCRASH_REPORTER=OFF")
-           #:phases #~(modify-phases %standard-phases
-                        (replace 'build
-                          (lambda* (#:key parallel-build? #:allow-other-keys)
-                            (invoke "cmake" "--build" ".")))
-                        (replace 'install
-                          (lambda _ (invoke "cmake" "--install" "."))))))
+           #:phases
+           #~(modify-phases %standard-phases
+               (replace 'build (lambda _ (invoke "cmake" "--build" ".")))
+               (replace 'install (lambda _ (invoke "cmake" "--install" ".")))
+               (add-after 'install 'wrap-program
+                 (lambda* (#:key inputs #:allow-other-keys)
+                   (wrap-program (string-append #$output "/bin/quickshell")
+                     `("QML_IMPORT_PATH" ":"
+                       = (,(getenv "QML_IMPORT_PATH")))))))))
     (home-page "https://quickshell.outfoxxed.me")
     (synopsis "QtQuick-based desktop shell toolkit")
     (description