[PATCH 6/7] guix build: Add 'build-package'.

[Alex Kost <alezost@gmail.com>]

* guix/scripts/build.scm (build-package): New procedure.
---
 guix/scripts/build.scm | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/guix/scripts/build.scm b/guix/scripts/build.scm
index f169853..b710b59 100644
--- a/guix/scripts/build.scm
+++ b/guix/scripts/build.scm
@@ -1,6 +1,7 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2012, 2013, 2014, 2015 Ludovic Courtès <ludo@gnu.org>
 ;;; Copyright © 2013 Mark H Weaver <mhw@netris.org>
+;;; Copyright © 2015 Alex Kost <alezost@gmail.com>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -39,9 +40,20 @@
             set-build-options-from-command-line
             set-build-options-from-command-line*
             show-build-options-help
-
+            build-package
             guix-build))
 
+(define (build-package package . build-options)
+  "Build PACKAGE using BUILD-OPTIONS."
+  (with-store store
+    (let* ((drv (run-with-store store
+                  (package->derivation package)))
+           (drvs (list drv)))
+      (apply set-build-options store build-options)
+      (show-what-to-build store drvs)
+      (build-derivations store drvs)
+      (show-derivation-outputs drv))))
+
 (define (register-root store paths root)
   "Register ROOT as an indirect GC root for all of PATHS."
   (let* ((root (string-append (canonicalize-path (dirname root))
-- 
2.4.3