diff options
| author | Alex Kost <alezost@gmail.com> | 2015-07-24 20:31:11 +0300 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2015-09-23 13:36:37 +0300 |
| commit | 1a6c4c2f376e4ca4dc119d10b2671ea2f3b1fa28 (patch) | |
| tree | ddd048c27c7f590cce345f099e00a3a76a8731e8 /emacs/guix-guile.el | |
| parent | 187f80c6c542bc65486ef600aa3af96f7173f4fa (diff) | |
| download | gnu-guix-1a6c4c2f376e4ca4dc119d10b2671ea2f3b1fa28.tar gnu-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.el | 22 |
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." |