diff options
| author | Alex Kost <alezost@gmail.com> | 2015-07-23 10:10:47 +0300 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2015-09-22 22:05:09 +0300 |
| commit | c74cd6cc12b495a8f4142bffbfe5634090f050f4 (patch) | |
| tree | 3bd52a0cc7360ba61583b28bb687e8fae29316f7 /emacs/guix-backend.el | |
| parent | ee1c4cbaf97927df4b353bd3ab35c96256eea01f (diff) | |
| download | patches-c74cd6cc12b495a8f4142bffbfe5634090f050f4.tar patches-c74cd6cc12b495a8f4142bffbfe5634090f050f4.tar.gz | |
emacs: Move guile related code to "guix-guile.el".
* emacs/guix-backend.el (guix-make-guile-expression): Move to...
* emacs/guix-guile.el: ... here. New file.
* emacs/guix-base.el: Use it.
* emacs/guix-command.el: Use it.
* emacs.am (ELFILES): Add it.
Diffstat (limited to 'emacs/guix-backend.el')
| -rw-r--r-- | emacs/guix-backend.el | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/emacs/guix-backend.el b/emacs/guix-backend.el index 7db1daacf0..26e33b3d15 100644 --- a/emacs/guix-backend.el +++ b/emacs/guix-backend.el @@ -305,24 +305,6 @@ additional internal REPL if it exists." (defvar guix-operation-buffer nil "Buffer from which the latest Guix operation was performed.") -(defun guix-make-guile-expression (fun &rest args) - "Return string containing a guile expression for calling FUN with ARGS." - (format "(%S %s)" fun - (mapconcat - (lambda (arg) - (cond - ((null arg) "'()") - ((or (eq arg t) - ;; An ugly hack to separate 'false' from nil - (equal arg 'f) - (keywordp arg)) - (concat "#" (prin1-to-string arg t))) - ((or (symbolp arg) (listp arg)) - (concat "'" (prin1-to-string arg))) - (t (prin1-to-string arg)))) - args - " "))) - (defun guix-eval (str &optional wrap) "Evaluate guile expression STR. If WRAP is non-nil, wrap STR into (begin ...) form. |