From: Alex Kost <alezost@gmail.com>
To: guix-devel@gnu.org
Cc: Alex Kost <alezost@gmail.com>
Subject: [PATCH 7/7] emacs: Add 'guix-devel-use-current-module'.
Date: Sat, 25 Jul 2015 11:49:57 +0300 [thread overview]
Message-ID: <1437814197-6321-8-git-send-email-alezost@gmail.com> (raw)
In-Reply-To: <1437814197-6321-1-git-send-email-alezost@gmail.com>
Suggested by Ludovic Courtès <ludo@gnu.org>.
* emacs/guix-guile.el (guix-guile-definition-regexp): New variable.
(guix-guile-current-definition): New function.
* emacs/guix-devel.el (guix-devel-build-current-package-definition): New
command.
* doc/emacs.texi (Emacs Development): Document it.
---
doc/emacs.texi | 6 ++++++
emacs/guix-devel.el | 9 +++++++++
emacs/guix-guile.el | 17 +++++++++++++++++
3 files changed, 32 insertions(+)
diff --git a/doc/emacs.texi b/doc/emacs.texi
index 6920bef..5f1584c 100644
--- a/doc/emacs.texi
+++ b/doc/emacs.texi
@@ -571,6 +571,12 @@ want to use a module it defines, so you switch to the Geiser REPL and
write @code{,use (some module)} there. You may just use this command
instead.
+@item M-x guix-devel-build-current-package-definition
+Build package defined by the current variable definition. If you
+modified the current package definition, don't forget to reevaluate it
+before calling this command (for example, with @kbd{C-M-x} (@pxref{To
+eval or not to eval,,, geiser, Geiser User Manual})).
+
@end table
And as always if you use a command often, it is a good idea to bind a
diff --git a/emacs/guix-devel.el b/emacs/guix-devel.el
index e99b289..1d3f381 100644
--- a/emacs/guix-devel.el
+++ b/emacs/guix-devel.el
@@ -39,6 +39,15 @@
(guix-devel-use-modules module)
(message "Using %s module." module)))
+;;;###autoload
+(defun guix-devel-build-current-package-definition ()
+ "Build package defined by the current top-level variable definition."
+ (interactive)
+ (guix-devel-use-modules "(guix scripts build)"
+ (guix-guile-current-module))
+ (guix-geiser-call-in-repl "build-package"
+ (guix-guile-current-definition)))
+
(provide 'guix-devel)
;;; guix-devel.el ends here
diff --git a/emacs/guix-guile.el b/emacs/guix-guile.el
index ffa8848..aa5d747 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 string with current guile module.
Return nil, if current buffer does not define a module."
--
2.4.3
next prev parent reply other threads:[~2015-07-25 8:50 UTC|newest]
Thread overview: 49+ messages / expand[flat|nested] mbox.gz Atom feed top
2015-07-25 8:49 [PATCH 0/7] Add "guix-devel-…" commands Alex Kost
2015-07-25 8:49 ` [PATCH 1/7] emacs: Move guile related code to "guix-guile.el" Alex Kost
2015-08-18 13:50 ` Ludovic Courtès
2015-08-18 13:51 ` Ludovic Courtès
2015-07-25 8:49 ` [PATCH 2/7] emacs: Move code for evaluating to "guix-geiser.el" Alex Kost
2015-08-18 13:52 ` Ludovic Courtès
2015-07-25 8:49 ` [PATCH 3/7] emacs: Add code to call guile procedures Alex Kost
2015-08-18 13:52 ` Ludovic Courtès
2015-07-25 8:49 ` [PATCH 4/7] emacs: Add 'guix-devel-use-current-module' Alex Kost
2015-07-25 18:51 ` Mathieu Lirzin
2015-07-26 8:29 ` Alex Kost
2015-07-26 14:00 ` Mathieu Lirzin
2015-07-26 18:11 ` Alex Kost
2015-07-28 9:19 ` Mathieu Lirzin
2015-08-18 14:05 ` Ludovic Courtès
2015-08-19 20:47 ` Alex Kost
2015-08-26 11:07 ` Ludovic Courtès
2015-07-25 8:49 ` [PATCH 5/7] ui: Add 'show-derivation-outputs' Alex Kost
2015-08-18 14:07 ` Ludovic Courtès
2015-07-25 8:49 ` [PATCH 6/7] guix build: Add 'build-package' Alex Kost
2015-08-18 14:15 ` Ludovic Courtès
2015-08-19 20:50 ` Alex Kost
2015-08-26 11:12 ` Ludovic Courtès
2015-08-26 17:44 ` Alex Kost
2015-08-28 9:24 ` Ludovic Courtès
2015-09-06 9:03 ` Alex Kost
2015-09-06 9:32 ` Alex Kost
2015-09-08 19:59 ` Ludovic Courtès
2015-09-08 20:10 ` Ludovic Courtès
2015-09-10 10:25 ` [PATCH] Add (guix scripts) Alex Kost
2015-09-14 13:34 ` Ludovic Courtès
2015-09-14 18:39 ` Alex Kost
2015-09-16 20:21 ` Ludovic Courtès
2015-09-18 18:52 ` Alex Kost
2015-09-18 18:51 ` [PATCH 6/7] guix build: Add 'build-package' Alex Kost
2015-09-22 15:12 ` Ludovic Courtès
2015-09-22 19:10 ` Alex Kost
2015-09-22 21:39 ` Ludovic Courtès
2015-07-25 8:49 ` Alex Kost [this message]
2015-08-18 14:17 ` [PATCH 7/7] emacs: Add 'guix-devel-use-current-module' Ludovic Courtès
2015-08-19 20:51 ` [PATCH 7/7] emacs: Add 'guix-devel-build-current-package-definition' Alex Kost
2015-08-26 11:14 ` Ludovic Courtès
2015-09-22 19:10 ` [PATCH 1/2] emacs: Add development utils Alex Kost
2015-09-22 21:44 ` Ludovic Courtès
2015-08-18 13:50 ` [PATCH 0/7] Add "guix-devel-…" commands Ludovic Courtès
2015-08-19 20:47 ` Alex Kost
2015-08-25 20:59 ` Ludovic Courtès
2015-09-22 19:11 ` [PATCH 2/2] emacs: Add 'guix-devel-build-package-definition' Alex Kost
2015-09-22 21:47 ` Ludovic Courtès
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://guix.gnu.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=1437814197-6321-8-git-send-email-alezost@gmail.com \
--to=alezost@gmail.com \
--cc=guix-devel@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/guix.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).