build.scm

build.scm

(use-modules (guix profiles)
             (guix derivations)
             (guix monads)
             (guix store)
             (guix ui)
             (srfi srfi-26))

(define %profile
  (string-append "/var/guix/profiles/per-user/"
                 (getenv "USER") "/guix-profile"))

(let* ((store    (open-connection))
       (manifest (load "manifest.scm"))
       (prof-drv (run-with-store store (profile-derivation manifest)))
       (prof     (derivation->output-path prof-drv)))
  (show-what-to-build store (list prof-drv))
  (build-derivations store (list prof-drv))
  (switch-symlinks %profile prof))