futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: emacs-macrostep: Use G-expressions.

Browse Source 
* 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
1 changed files with 22 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
gnu/packages/emacs-xyz.scm
View File

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