Merge pull request #2 from Z572/master

guix.scm: add patch-extension-path phase
artyom-poptsov · Dec 17, 2023 · 40b3462 · 40b3462
2 parents 057e8a6 + 1fa4675
commit 40b3462
Showing 1 changed file with 17 additions and 0 deletions.
diff --git a/guix.scm b/guix.scm
@@ -56,6 +56,23 @@
                         #:recursive? #t
                         #:select? (git-predicate %source-dir)))
     (build-system gnu-build-system)
+    (arguments
+     (list
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'patch-extension-path
+            (lambda* (#:key outputs #:allow-other-keys)
+              (substitute* (find-files "." "\\.scm")
+                (("\\(load-extension \"libguile-udev\" *\"(.*)\"\\)" _ o)
+                 (string-append
+                  (object->string
+                   `(or (false-if-exception
+                         (load-extension "libguile-udev" ,o))
+                        (load-extension
+                         ,(string-append
+                           #$output
+                           "/lib/libguile-udev.so")
+                         ,o)))))))))))
     (native-inputs
      (list autoconf
            automake