aboutsummaryrefslogtreecommitdiff
path: root/emacs
diff options
context:
space:
mode:
authorAlex Kost <alezost@gmail.com>2015-10-09 16:45:24 +0300
committerAlex Kost <alezost@gmail.com>2015-10-12 10:59:31 +0300
commitad8b83bda052a12077d5da4c3c9b3d3d0911025a (patch)
tree12fc3d3b11e76f4337a423f3d044223e97fbd77e /emacs
parent9d373377c96d9e83653f9edc04bbc8566a5174b6 (diff)
downloadguix-ad8b83bda052a12077d5da4c3c9b3d3d0911025a.tar
guix-ad8b83bda052a12077d5da4c3c9b3d3d0911025a.tar.gz
emacs: Add 'guix-devel-build-package-source'.
Suggested by Ludovic Courtès <ludo@gnu.org>. * guix/scripts.scm (build-package-source): New procedure. * emacs/guix-devel.el (guix-devel-build-package-source): New command. (guix-devel-keys-map): Add key binding for it. * doc/emacs.texi (Emacs Development): Document it.
Diffstat (limited to 'emacs')
-rw-r--r--emacs/guix-devel.el16
1 files changed, 16 insertions, 0 deletions
diff --git a/emacs/guix-devel.el b/emacs/guix-devel.el
index 547044f8af..b8330289c5 100644
--- a/emacs/guix-devel.el
+++ b/emacs/guix-devel.el
@@ -122,6 +122,21 @@ run BODY."
guix-use-substitutes)
"#:dry-run?" (guix-guile-boolean guix-dry-run)))))))
+(defun guix-devel-build-package-source ()
+ "Build the source of the current package definition."
+ (interactive)
+ (guix-devel-with-definition def
+ (when (or (not guix-operation-confirm)
+ (guix-operation-prompt
+ (format "Build '%s' package source?" def)))
+ (guix-geiser-eval-in-repl
+ (concat ",run-in-store "
+ (guix-guile-make-call-expression
+ "build-package-source" def
+ "#:use-substitutes?" (guix-guile-boolean
+ guix-use-substitutes)
+ "#:dry-run?" (guix-guile-boolean guix-dry-run)))))))
+
(defun guix-devel-lint-package ()
"Check the current package.
See Info node `(guix) Invoking guix lint' for details."
@@ -177,6 +192,7 @@ to find 'modify-phases' keywords."
(defvar guix-devel-keys-map
(let ((map (make-sparse-keymap)))
(define-key map (kbd "b") 'guix-devel-build-package-definition)
+ (define-key map (kbd "s") 'guix-devel-build-package-source)
(define-key map (kbd "l") 'guix-devel-lint-package)
(define-key map (kbd "k") 'guix-devel-copy-module-as-kill)
(define-key map (kbd "u") 'guix-devel-use-module)