aboutsummaryrefslogtreecommitdiff
path: root/emacs/guix-guile.el
diff options
context:
space:
mode:
authorAlex Kost <alezost@gmail.com>2015-07-24 20:31:11 +0300
committerAlex Kost <alezost@gmail.com>2015-09-23 13:36:37 +0300
commit1a6c4c2f376e4ca4dc119d10b2671ea2f3b1fa28 (patch)
treeddd048c27c7f590cce345f099e00a3a76a8731e8 /emacs/guix-guile.el
parent187f80c6c542bc65486ef600aa3af96f7173f4fa (diff)
downloadguix-1a6c4c2f376e4ca4dc119d10b2671ea2f3b1fa28.tar
guix-1a6c4c2f376e4ca4dc119d10b2671ea2f3b1fa28.tar.gz
emacs: Add 'guix-devel-build-package-definition'.
Suggested by Ludovic Courtès <ludo@gnu.org>. * emacs/guix-guile.el (guix-guile-definition-regexp): New variable. (guix-guile-current-definition, guix-guile-boolean): New functions. * emacs/guix-devel.el: Require 'guix-base'. (guix-devel-repl-processes): New variable. (guix-devel-setup-repl, guix-devel-setup-repl-maybe): New functions. (guix-devel-build-package-definition): New command. * doc/emacs.texi (Emacs Development): Document it.
Diffstat (limited to 'emacs/guix-guile.el')
-rw-r--r--emacs/guix-guile.el22
1 files changed, 22 insertions, 0 deletions
diff --git a/emacs/guix-guile.el b/emacs/guix-guile.el
index c21d27fca2..35a97d77a3 100644
--- a/emacs/guix-guile.el
+++ b/emacs/guix-guile.el
@@ -26,6 +26,23 @@
(require 'geiser-guile)
+(defvar guix-guile-definition-regexp
+ (rx bol "(define"
+ (zero-or-one "*")
+ (zero-or-one "-public")
+ (one-or-more space)
+ (zero-or-one "(")
+ (group (one-or-more (or word (syntax symbol)))))
+ "Regexp used to find the guile definition.")
+
+(defun guix-guile-current-definition ()
+ "Return string with name of the current top-level guile definition."
+ (save-excursion
+ (beginning-of-defun)
+ (if (looking-at guix-guile-definition-regexp)
+ (match-string-no-properties 1)
+ (error "Couldn't find the current definition"))))
+
(defun guix-guile-current-module ()
"Return a string with the current guile module.
Return nil, if current buffer does not define a module."
@@ -37,6 +54,11 @@ Return nil, if current buffer does not define a module."
(re-search-forward geiser-guile--module-re nil t))
(match-string-no-properties 1))))
+(defun guix-guile-boolean (arg)
+ "Return a string with guile boolean value.
+Transform elisp ARG (nil or non-nil) to the guile boolean (#f or #t)."
+ (concat "#" (prin1-to-string (if arg 't 'f))))
+
(defun guix-guile-make-call-expression (proc &rest args)
"Return \"(PROC ARGS ...)\" string.
PROC and ARGS should be strings."