From 0b9f61e9d62aa4f838791fcbcc20d2c20b420e16 Mon Sep 17 00:00:00 2001 From: Rutherther Date: Sun, 7 Sep 2025 18:22:11 +0200 Subject: [PATCH] fix: make sure wm-packages are grafted --- home/modules/ruther/home/dwl/wm.scm | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/home/modules/ruther/home/dwl/wm.scm b/home/modules/ruther/home/dwl/wm.scm index 4fb6440c96b033b275367008976219ec299387a1..a74862eecf658a3fb82c1ac1af234bf05204f5e8 100644 --- a/home/modules/ruther/home/dwl/wm.scm +++ b/home/modules/ruther/home/dwl/wm.scm @@ -1,4 +1,5 @@ (define-module (ruther home dwl wm) + #:use-module (srfi srfi-1) #:use-module (gnu packages) #:use-module (gnu packages wm) #:use-module (gnu packages xorg) @@ -204,11 +205,19 @@ (canonicalize-path wrapped-file)))) (chmod target-file #o755))))) +(define (manifest->packages manifest) + "Return the list of packages in MANIFEST." + (filter-map (lambda (entry) + (let ((item (manifest-entry-item entry))) + (if (package? item) item #f))) + (manifest-entries manifest))) + (define-public dwl-mine (package/inherit dwl-mine-unwrapped (name "dwl-mine") (source #f) (build-system trivial-build-system) + (inputs (manifest->packages wm-packages)) (arguments (list #:builder dwl-mine-gexp))))