gnu: emacs-macrostep: Use G-expressions.

* gnu/packages/emacs-xyz.scm (emacs-macrostep)[arguments]: Use G-expressions.
This commit is contained in:
Nicolas Goaziou 2022-03-02 15:17:58 +01:00
parent 9aa53a004f
commit 4ce63e1fbd
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D

View file

@ -19099,27 +19099,28 @@ without disturbing alignment.")
"1fm40mxdn289cyzgw992223dgrjmwxn4q8svyyxfaxjrpb38jhjz")))) "1fm40mxdn289cyzgw992223dgrjmwxn4q8svyyxfaxjrpb38jhjz"))))
(build-system emacs-build-system) (build-system emacs-build-system)
(arguments (arguments
'(#:tests? #t (list
#:phases #:tests? #t
(modify-phases %standard-phases #:phases
(add-before 'check 'remove-test #~(modify-phases %standard-phases
;; Fails because of requirement /bin/sh. (add-before 'check 'remove-test
(lambda _ ;; Fails because of requirement /bin/sh.
(let ((file "macrostep-test.el")) (lambda _
(chmod file #o644) (let ((file "macrostep-test.el"))
(emacs-batch-edit-file file (make-file-writable file)
`(progn (progn (goto-char (point-min)) (emacs-batch-edit-file file
(re-search-forward `(progn (progn (goto-char (point-min))
"(ert-deftest macrostep-expand-c-macros") (re-search-forward
(beginning-of-line) "(ert-deftest macrostep-expand-c-macros")
(kill-sexp)) (beginning-of-line)
(basic-save-buffer)))))) (kill-sexp))
(replace 'check (basic-save-buffer))))))
(lambda* (#:key tests? #:allow-other-keys) (replace 'check
(when tests? (lambda* (#:key tests? #:allow-other-keys)
(invoke "emacs" "--batch" "-L" "." (when tests?
"-l" "macrostep-test.el" (invoke "emacs" "--batch" "-L" "."
"-f" "ert-run-tests-batch-and-exit"))))))) "-l" "macrostep-test.el"
"-f" "ert-run-tests-batch-and-exit")))))))
(home-page "https://github.com/joddie/macrostep") (home-page "https://github.com/joddie/macrostep")
(synopsis "Interactive macro-expander for Emacs") (synopsis "Interactive macro-expander for Emacs")
(description "@code{macrostep} is an Emacs minor mode for interactively (description "@code{macrostep} is an Emacs minor mode for interactively