summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorZheng Junjie <[email protected]>2025-01-01 23:42:32 +0800
committerZheng Junjie <[email protected]>2025-01-02 20:55:18 +0800
commit433a930b1785612a7b918a855e30e1aefdf4c333 (patch)
tree80fe65f5f3e676d4153563c20727c665ef3a2f8e
parentc43c586b9a99ef0f26c62eedbfc0b70e9d95eba0 (diff)
gnu: wlroots: Use G-expressions.
* gnu/packages/wm.scm (wlroots)[arguments]: Use G-expressions. Change-Id: I5d870df6ce7a6f81f43c5b2f809f2cd0476de25f
-rw-r--r--gnu/packages/wm.scm28
1 files changed, 13 insertions, 15 deletions
diff --git a/gnu/packages/wm.scm b/gnu/packages/wm.scm
index 742a729609..b5fd2307d5 100644
--- a/gnu/packages/wm.scm
+++ b/gnu/packages/wm.scm
@@ -1877,21 +1877,19 @@ functionality to display information about the most commonly used services.")
(base32 "1l1c4m8m1h8rl00y9yi6qjma5m3lhai9hqv5578q69yg2dcwraxw"))))
(build-system meson-build-system)
(arguments
- `(#:phases
- (modify-phases %standard-phases
- (add-before 'configure 'hardcode-paths
- (lambda* (#:key inputs #:allow-other-keys)
- (substitute* "xwayland/server.c"
- (("Xwayland") (string-append (assoc-ref inputs
- "xorg-server-xwayland")
- "/bin/Xwayland")))
- #t))
- (add-before 'configure 'fix-meson-file
- (lambda* (#:key native-inputs inputs #:allow-other-keys)
- (substitute* "backend/drm/meson.build"
- (("/usr/share/hwdata/pnp.ids")
- (string-append (assoc-ref (or native-inputs inputs) "hwdata")
- "/share/hwdata/pnp.ids"))))))))
+ (list #:phases
+ #~(modify-phases %standard-phases
+ (add-before 'configure 'hardcode-paths
+ (lambda* (#:key inputs #:allow-other-keys)
+ (substitute* "xwayland/server.c"
+ (("Xwayland")
+ (search-input-file inputs "bin/Xwayland")))))
+ (add-before 'configure 'fix-meson-file
+ (lambda* (#:key native-inputs inputs #:allow-other-keys)
+ (substitute* "backend/drm/meson.build"
+ (("/usr/share/hwdata/pnp.ids")
+ (search-input-file
+ (or native-inputs inputs) "share/hwdata/pnp.ids"))))))))
(propagated-inputs
(list ;; As required by wlroots.pc.
eudev