1 files changed, 9 insertions(+), 0 deletions(-)

M 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))))