gnu: emacs-go-translate: Improve code style.

* gnu/packages/emacs-xyz.scm (emacs-go-translate): Improve code style.

Change-Id: I0a2601a34907169a0792e1a7a2b05ecd8ca2119a
Signed-off-by: Ian Eure <ian@retrospec.tv>
This commit is contained in:
Evgeny Pisemsky 2025-02-05 20:05:32 +03:00 committed by Ian Eure
parent dd1f05edab
commit fd3876ec2a
No known key found for this signature in database
GPG key ID: 8499AC88F1A71CF2

View file

@ -29239,15 +29239,10 @@ the GIF result.")
(arguments (arguments
(list (list
#:tests? #t #:tests? #t
#:test-command #~(list "emacs" #:test-command #~(list "emacs" "-Q" "--batch"
"-Q" "-L" "."
"--batch" "-l" "gt-tests.el"
"-L" "-f" "ert-run-tests-batch-and-exit")
"."
"-l"
"gt-tests.el"
"-f"
"ert-run-tests-batch-and-exit")
#:phases #~(modify-phases %standard-phases #:phases #~(modify-phases %standard-phases
(add-before 'check 'skip-failing-tests (add-before 'check 'skip-failing-tests
(lambda _ (lambda _
@ -29255,7 +29250,8 @@ the GIF result.")
(("\\(ert-deftest test--gt-translation-life-cycle .*" (("\\(ert-deftest test--gt-translation-life-cycle .*"
all) all)
(string-append all "(skip-unless nil)\n")) (string-append all "(skip-unless nil)\n"))
(("\\(ert-deftest test--gt-valid-literally .*" all) (("\\(ert-deftest test--gt-valid-literally .*"
all)
(string-append all "(skip-unless nil)\n")))))))) (string-append all "(skip-unless nil)\n"))))))))
(home-page "https://github.com/lorniu/go-translate/") (home-page "https://github.com/lorniu/go-translate/")
(synopsis "Configurable and scalable translation framework") (synopsis "Configurable and scalable translation framework")