aboutsummaryrefslogtreecommitdiff
path: root/emacs/guix-guile.el
diff options
context:
space:
mode:
authorAlex Kost <alezost@gmail.com>2015-07-24 18:00:54 +0300
committerAlex Kost <alezost@gmail.com>2015-09-22 22:05:10 +0300
commitf80a7a6c58539bfdc73a45677fb414e0cae0faef (patch)
tree3435e66aeaa9eb6ae7f040c37b1ddbf25dd04cdd /emacs/guix-guile.el
parentf029f8a759da6ad3624cfb6acee814e44534e3d4 (diff)
downloadguix-f80a7a6c58539bfdc73a45677fb414e0cae0faef.tar
guix-f80a7a6c58539bfdc73a45677fb414e0cae0faef.tar.gz
emacs: Add code to call guile procedures.
* emacs/guix-guile.el (guix-guile-make-call-expression): New function. * emacs/guix-geiser.el: Require 'guix-guile'. (guix-geiser-call, guix-geiser-call-in-repl): New functions.
Diffstat (limited to 'emacs/guix-guile.el')
-rw-r--r--emacs/guix-guile.el7
1 files changed, 7 insertions, 0 deletions
diff --git a/emacs/guix-guile.el b/emacs/guix-guile.el
index af8c7d255a..cff9bd4e9b 100644
--- a/emacs/guix-guile.el
+++ b/emacs/guix-guile.el
@@ -24,6 +24,13 @@
;;; Code:
+(defun guix-guile-make-call-expression (proc &rest args)
+ "Return \"(PROC ARGS ...)\" string.
+PROC and ARGS should be strings."
+ (format "(%s %s)"
+ proc
+ (mapconcat #'identity args " ")))
+
(defun guix-make-guile-expression (fun &rest args)
"Return string containing a guile expression for calling FUN with ARGS."
(format "(%S %s)" fun