diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2023-03-10 18:44:00 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2023-03-10 18:44:00 +0100 |
commit | 835565777722d61f2b1e7a41df4ee74cd7fdb04e (patch) | |
tree | 1f07113032503c8fdf56b0c82414a2ff20d0cfa8 /gnu/packages | |
parent | f1d38bfbe8fe30182887e992705b43d2f5427bf4 (diff) |
gnu: emacs-adoc-mode: Improve package style.
* gnu/packages/emacs-xyz.scm (emacs-adoc-mode)[arguments]: Use G-expressions.
Remove trailing #T from phases.
Diffstat (limited to 'gnu/packages')
-rw-r--r-- | gnu/packages/emacs-xyz.scm | 50 |
1 files changed, 25 insertions, 25 deletions
diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm index c0b0c96292..3dfa14edbf 100644 --- a/gnu/packages/emacs-xyz.scm +++ b/gnu/packages/emacs-xyz.scm @@ -25893,31 +25893,31 @@ and 'text viewing modes' respectively.") "0bp2i66a9gp41r7nvbx8f4s334gd7lwjdxi3qw5yhgaav6gk3bkc")))) (build-system emacs-build-system) (arguments - `(#:phases - (modify-phases %standard-phases - ;; See: https://github.com/sensorflo/adoc-mode/issues/39. - (add-after 'unpack 'disable-failing-tests - (lambda _ - (let-syntax - ((disable-tests - (syntax-rules () - ((_ file ()) - (syntax-error "test names list must not be empty")) - ((_ file (test-name ...)) - (substitute* file - (((string-append "^\\(ert-deftest " test-name ".*") all) - (string-append all "(skip-unless nil)\n")) ...))))) - (disable-tests "test/adoc-mode-test.el" - ("adoctest-test-tempo-delimited-blocks" - "adoctest-test-tempo-macros" - "adoctest-test-tempo-paragraphs" - "adoctest-test-tempo-passthroug-macros" - "adoctest-test-tempo-quotes"))) - #t))) - #:tests? #t - #:test-command '("emacs" "-Q" "-batch" - "-l" "test/adoc-mode-test.el" - "-f" "ert-run-tests-batch-and-exit"))) + (list + #:phases + #~(modify-phases %standard-phases + ;; See: https://github.com/sensorflo/adoc-mode/issues/39. + (add-after 'unpack 'disable-failing-tests + (lambda _ + (let-syntax + ((disable-tests + (syntax-rules () + ((_ file ()) + (syntax-error "test names list must not be empty")) + ((_ file (test-name ...)) + (substitute* file + (((string-append "^\\(ert-deftest " test-name ".*") all) + (string-append all "(skip-unless nil)\n")) ...))))) + (disable-tests "test/adoc-mode-test.el" + ("adoctest-test-tempo-delimited-blocks" + "adoctest-test-tempo-macros" + "adoctest-test-tempo-paragraphs" + "adoctest-test-tempo-passthroug-macros" + "adoctest-test-tempo-quotes")))))) + #:tests? #t + #:test-command '("emacs" "-Q" "-batch" + "-l" "test/adoc-mode-test.el" + "-f" "ert-run-tests-batch-and-exit"))) (propagated-inputs (list emacs-markup-faces)) (home-page "https://github.com/sensorflo/adoc-mode/wiki") |