lilyp pushed a commit to branch emacs-team
in repository guix.
commit 95d494de51ab73a76d8d33a9f80470444ab69fc7
Author: Liliana Marie Prikler <liliana.prik...@gmail.com>
AuthorDate: Fri Mar 21 20:37:38 2025 +0100
gnu: emacs-window-purpose: Improve package style.
* gnu/packages/emacs-xyz.scm (emacs-window-purpose)[propagated-inputs]
[native-inputs]: Move after…
[arguments]: … this. Convert to list of G-Expressions.
---
gnu/packages/emacs-xyz.scm | 56 ++++++++++++++++++++++------------------------
1 file changed, 27 insertions(+), 29 deletions(-)
diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index f6bf571ae9..da1021ba6f 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -15063,38 +15063,36 @@ possible, and falls back to moving the left or top
border otherwise.")
(base32
"1cw513mh3gyl21qpmgwqjgpi8kwddmd4n69l4ax5a5pv3vvwrcx9"))))
(build-system emacs-build-system)
+ (arguments
+ (list #:test-command #~(list "sh" "-c" "ert-runner < test/user-input.txt")
+ #:include #~(list "^[^/]+.el$"
+ "^[^/]+.el.in$"
+ "^dir$"
+ "^[^/]+.info$"
+ "^[^/]+.texi$"
+ "^[^/]+.texinfo$"
+ "^doc/dir$"
+ "^doc/[^/]+.info$"
+ "^doc/[^/]+.texi$"
+ "^doc/[^/]+.texinfo$"
+ "^layouts$")
+ #:exclude #~(list "^.dir-locals.el$"
+ "^test.el$"
+ "^tests.el$"
+ "^[^/]+-test.el$"
+ "^[^/]+-tests.el$")
+ #:phases #~(modify-phases %standard-phases
+ (add-after 'unpack 'number-tests
+ (lambda _
+ (ert-number-tests "test/switch-test.el"
+ "purpose-test-temp-actions-1")))
+ (add-after 'unpack 'create-test-file
+ (lambda _
+ (call-with-output-file "test/user-input.txt"
+ (const #t)))))))
(propagated-inputs
(list emacs-let-alist emacs-imenu-list))
(native-inputs (list emacs-ert-runner))
- (arguments
- '(#:test-command (list "sh" "-c" "ert-runner < test/user-input.txt")
- #:include
- '("^[^/]+.el$"
- "^[^/]+.el.in$"
- "^dir$"
- "^[^/]+.info$"
- "^[^/]+.texi$"
- "^[^/]+.texinfo$"
- "^doc/dir$"
- "^doc/[^/]+.info$"
- "^doc/[^/]+.texi$"
- "^doc/[^/]+.texinfo$"
- "^layouts$")
- #:exclude
- '("^.dir-locals.el$"
- "^test.el$"
- "^tests.el$"
- "^[^/]+-test.el$"
- "^[^/]+-tests.el$")
- #:phases (modify-phases %standard-phases
- (add-after 'unpack 'number-tests
- (lambda _
- (ert-number-tests "test/switch-test.el"
- "purpose-test-temp-actions-1")))
- (add-after 'unpack 'create-test-file
- (lambda _
- (call-with-output-file "test/user-input.txt"
- (const #t)))))))
(home-page "https://github.com/bmag/emacs-purpose";)
(synopsis "Purpose-based window management for Emacs")
(description "Purpose is a package that introduces the concept of a
