25 lines
947 B
Scheme
25 lines
947 B
Scheme
(use-modules (guix config)
|
|
(guix store)
|
|
(guix grafts)
|
|
(guix packages)
|
|
(guix ui)
|
|
(guix deriviations)
|
|
(guix monads)
|
|
(guix profiles)
|
|
(gnu packages)
|
|
(srfi srfi-1))
|
|
|
|
(define (drv-package store package)
|
|
(λ ()
|
|
`((#:job-name . ,(string-append (package-name package) "-" (package-version package) "-job"))
|
|
(#:derivation . ,(derivation-file-name (package-derivation store package #:graft? #f))))))
|
|
|
|
(define (drv-list store arguments)
|
|
(let* ((manifest (load* "/home/steve/conf/guix/manifest.scm" (make-user-module
|
|
'((guix profiles) (gnu)))))
|
|
(packages (map manifest-entry-item (manifest-entries manifest))))
|
|
(parameterize ((%graft? #f))
|
|
(map (λ (package)
|
|
(drv-package store package))
|
|
(delete-duplicates! packages)))))
|