mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-25 05:48:07 -05:00
emacs: Add 'guix-devel-lint-package'
Suggested by Ludovic Courtès <ludo@gnu.org>. * emacs/guix-devel.el (guix-devel-setup-repl): Add a workaround for 'guix-warning-port'. (guix-devel-lint-package): New command. (guix-devel-keys-map): Add key binding for it. * doc/emacs.texi (Emacs Development): Document it.
This commit is contained in:
parent
e04741f160
commit
b94ef11a53
2 changed files with 22 additions and 3 deletions
|
@ -667,6 +667,10 @@ this command---for example, with @kbd{C-M-x} (@pxref{To eval or not to
|
||||||
eval,,, geiser, Geiser User Manual})
|
eval,,, geiser, Geiser User Manual})
|
||||||
(@code{guix-devel-build-package-definition}).
|
(@code{guix-devel-build-package-definition}).
|
||||||
|
|
||||||
|
@item C-c . l
|
||||||
|
Lint (check) a package defined by the current variable definition
|
||||||
|
(@pxref{Invoking guix lint}) (@code{guix-devel-lint-package}).
|
||||||
|
|
||||||
@end table
|
@end table
|
||||||
|
|
||||||
Unluckily, there is a limitation related to long-running REPL commands.
|
Unluckily, there is a limitation related to long-running REPL commands.
|
||||||
|
|
|
@ -76,11 +76,14 @@ Interactively, use the module defined by the current scheme file."
|
||||||
"Setup REPL for using `guix-devel-...' commands."
|
"Setup REPL for using `guix-devel-...' commands."
|
||||||
(guix-devel-use-modules "(guix monad-repl)"
|
(guix-devel-use-modules "(guix monad-repl)"
|
||||||
"(guix scripts)"
|
"(guix scripts)"
|
||||||
"(guix store)")
|
"(guix store)"
|
||||||
;; Without this workaround, the build output disappears. See
|
"(guix ui)")
|
||||||
|
;; Without this workaround, the warning/build output disappears. See
|
||||||
;; <https://github.com/jaor/geiser/issues/83> for details.
|
;; <https://github.com/jaor/geiser/issues/83> for details.
|
||||||
(guix-geiser-eval-in-repl-synchronously
|
(guix-geiser-eval-in-repl-synchronously
|
||||||
"(current-build-output-port (current-error-port))"
|
"(begin
|
||||||
|
(guix-warning-port (current-warning-port))
|
||||||
|
(current-build-output-port (current-error-port)))"
|
||||||
repl 'no-history 'no-display))
|
repl 'no-history 'no-display))
|
||||||
|
|
||||||
(defvar guix-devel-repl-processes nil
|
(defvar guix-devel-repl-processes nil
|
||||||
|
@ -119,6 +122,17 @@ run BODY."
|
||||||
guix-use-substitutes)
|
guix-use-substitutes)
|
||||||
"#:dry-run?" (guix-guile-boolean guix-dry-run)))))))
|
"#: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."
|
||||||
|
(interactive)
|
||||||
|
(guix-devel-with-definition def
|
||||||
|
(guix-devel-use-modules "(guix scripts lint)")
|
||||||
|
(when (or (not guix-operation-confirm)
|
||||||
|
(y-or-n-p (format "Lint '%s' package?" def)))
|
||||||
|
(guix-geiser-eval-in-repl
|
||||||
|
(format "(run-checkers %s)" def)))))
|
||||||
|
|
||||||
|
|
||||||
;;; Font-lock
|
;;; Font-lock
|
||||||
|
|
||||||
|
@ -163,6 +177,7 @@ to find 'modify-phases' keywords."
|
||||||
(defvar guix-devel-keys-map
|
(defvar guix-devel-keys-map
|
||||||
(let ((map (make-sparse-keymap)))
|
(let ((map (make-sparse-keymap)))
|
||||||
(define-key map (kbd "b") 'guix-devel-build-package-definition)
|
(define-key map (kbd "b") 'guix-devel-build-package-definition)
|
||||||
|
(define-key map (kbd "l") 'guix-devel-lint-package)
|
||||||
(define-key map (kbd "k") 'guix-devel-copy-module-as-kill)
|
(define-key map (kbd "k") 'guix-devel-copy-module-as-kill)
|
||||||
(define-key map (kbd "u") 'guix-devel-use-module)
|
(define-key map (kbd "u") 'guix-devel-use-module)
|
||||||
map)
|
map)
|
||||||
|
|
Loading…
Reference in a new issue