ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: Add 'guix-devel-lint-package'

Browse source 
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:
Alex Kost 2015-10-01 21:16:18 +03:00
parent e04741f160
commit b94ef11a53
2 changed files with 22 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
doc/emacs.texi
View file

@ -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.

21
emacs/guix-devel.el
View file

@ -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)