[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
05/07: emacs: Add 'guix-devel-with-definition'.
From: |
Alex Kost |
Subject: |
05/07: emacs: Add 'guix-devel-with-definition'. |
Date: |
Fri, 09 Oct 2015 13:53:25 +0000 |
alezost pushed a commit to branch master
in repository guix.
commit 5952111cc035ae87d73c7100906534993a951ca1
Author: Alex Kost <address@hidden>
Date: Thu Oct 1 21:06:42 2015 +0300
emacs: Add 'guix-devel-with-definition'.
* emacs/guix-devel.el (guix-devel-with-definition): New macro.
(guix-devel-build-package-definition): Use it.
(guix-devel-emacs-font-lock-keywords): New variable.
---
emacs/guix-devel.el | 23 ++++++++++++++++++++---
1 files changed, 20 insertions(+), 3 deletions(-)
diff --git a/emacs/guix-devel.el b/emacs/guix-devel.el
index b51fcee..7f758f5 100644
--- a/emacs/guix-devel.el
+++ b/emacs/guix-devel.el
@@ -94,12 +94,21 @@ Interactively, use the module defined by the current scheme
file."
(guix-devel-setup-repl repl)
(push process guix-devel-repl-processes))))
+(defmacro guix-devel-with-definition (def-var &rest body)
+ "Run BODY with the current guile definition bound to DEF-VAR.
+Bind DEF-VAR variable to the name of the current top-level
+definition, setup the current REPL, use the current module, and
+run BODY."
+ (declare (indent 1) (debug (symbolp body)))
+ `(let ((,def-var (guix-guile-current-definition)))
+ (guix-devel-setup-repl-maybe)
+ (guix-devel-use-modules (guix-guile-current-module))
+ ,@body))
+
(defun guix-devel-build-package-definition ()
"Build a package defined by the current top-level variable definition."
(interactive)
- (let ((def (guix-guile-current-definition)))
- (guix-devel-setup-repl-maybe)
- (guix-devel-use-modules (guix-guile-current-module))
+ (guix-devel-with-definition def
(when (or (not guix-operation-confirm)
(guix-operation-prompt (format "Build '%s'?" def)))
(guix-geiser-eval-in-repl
@@ -196,6 +205,14 @@ bindings:
(when guix-devel-activate-mode
(guix-devel-mode)))
+
+(defvar guix-devel-emacs-font-lock-keywords
+ (eval-when-compile
+ `((,(rx "(" (group "guix-devel-with-definition") symbol-end) . 1))))
+
+(font-lock-add-keywords 'emacs-lisp-mode
+ guix-devel-emacs-font-lock-keywords)
+
(provide 'guix-devel)
;;; guix-devel.el ends here
- branch master updated (b588177 -> b94ef11), Alex Kost, 2015/10/09
- 04/07: emacs: Fix 'guix-devel-setup-repl'., Alex Kost, 2015/10/09
- 07/07: emacs: Add 'guix-devel-lint-package', Alex Kost, 2015/10/09
- 02/07: emacs: devel: Fix 'modify-phases' highlighting., Alex Kost, 2015/10/09
- 03/07: emacs: Fix 'guix-build-log-phase-toggle-all'., Alex Kost, 2015/10/10
- 06/07: lint: Export 'run-checkers'., Alex Kost, 2015/10/10
- 05/07: emacs: Add 'guix-devel-with-definition'.,
Alex Kost <=
- 01/07: emacs: devel: Highlight gexp symbols., Alex Kost, 2015/10/10