diff options
author | Zheng Junjie <[email protected]> | 2025-01-01 23:42:32 +0800 |
---|---|---|
committer | Zheng Junjie <[email protected]> | 2025-01-02 20:55:18 +0800 |
commit | 433a930b1785612a7b918a855e30e1aefdf4c333 (patch) | |
tree | 80fe65f5f3e676d4153563c20727c665ef3a2f8e | |
parent | c43c586b9a99ef0f26c62eedbfc0b70e9d95eba0 (diff) |
gnu: wlroots: Use G-expressions.
* gnu/packages/wm.scm (wlroots)[arguments]: Use G-expressions.
Change-Id: I5d870df6ce7a6f81f43c5b2f809f2cd0476de25f
-rw-r--r-- | gnu/packages/wm.scm | 28 |
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 |