14/20: emacs: Add code to run guix command in REPL.

[Alex Kost]

alezost pushed a commit to branch wip-emacs-popup-ui
in repository guix.

commit d749b4a973c4017b05a8ae16edb8a2cdc677eb7d
Author: Alex Kost <address@hidden>
Date:   Thu Aug 13 10:51:31 2015 +0300

    emacs: Add code to run guix command in REPL.
    
    * emacs/guix-base.el (guix-run-command-in-repl, guix-help-string): New
      functions.
    * emacs/guix-main.scm (guix-command, help-string): New procedures.
---
 emacs/guix-base.el  |   15 +++++++++++++++
 emacs/guix-main.scm |   17 +++++++++++++++++
 2 files changed, 32 insertions(+), 0 deletions(-)

diff --git a/emacs/guix-base.el b/emacs/guix-base.el
index f9bf129..5e6873c 100644
--- a/emacs/guix-base.el
+++ b/emacs/guix-base.el
@@ -1094,6 +1094,21 @@ FILE.  With a prefix argument, also prompt for PROFILE."
      operation-buffer)))
 
 
+;;; Executing guix commands
+
+(defun guix-run-command-in-repl (args)
+  "Execute 'guix ARGS ...' command in Guix REPL."
+  (guix-eval-in-repl
+   (apply #'guix-make-guile-expression
+          'guix-command args)))
+
+(defun guix-help-string (&optional commands)
+  "Return string with 'guix COMMANDS ... --help' output."
+  (guix-eval-read
+   (apply #'guix-make-guile-expression
+          'help-string commands)))
+
+
 ;;; Pull
 
 (defcustom guix-update-after-pull t
diff --git a/emacs/guix-main.scm b/emacs/guix-main.scm
index 90d76cc..1d15cf4 100644
--- a/emacs/guix-main.scm
+++ b/emacs/guix-main.scm
@@ -930,6 +930,23 @@ GENERATIONS is a list of generation numbers."
                 (package-source-derivation->store-path derivation))))))
 
 
+;;; Executing guix commands
+
+(define (guix-command . args)
+  "Run 'guix ARGS ...' command.
+ARGS is a list of strings."
+  (catch 'quit
+    (lambda () (apply run-guix args))
+    (const #t)))
+
+(define (help-string . commands)
+  "Return string with 'guix COMMANDS ... --help' output.
+COMMANDS is a list of strings."
+  (with-output-to-string
+    (lambda ()
+      (apply guix-command `(,@commands "--help")))))
+
+
 ;;; Lists of packages, lint checkers, etc.
 
 (define (lint-checker-names)