mirror/guix
mirror/guix
1
Fork 0
mirror of https://https.git.savannah.gnu.org/git/guix.git/ synced 2025-07-16 20:10:39 +02:00
Code Releases Activity

gnu: emacs-window-purpose: Improve package style.

Browse source 
* gnu/packages/emacs-xyz.scm (emacs-window-purpose)[propagated-inputs]
[native-inputs]: Move after…
[arguments]: … this.  Convert to list of G-Expressions.
This commit is contained in:
Liliana Marie Prikler 2025-03-21 20:37:38 +01:00
parent 9c45340fc2
commit 0bb791990f
No known key found for this signature in database
GPG key ID: 442A84B8C70E2F87
1 changed files with 27 additions and 29 deletions
Download patch file Download diff file Expand all files Collapse all files

56
gnu/packages/emacs-xyz.scm
View file

@ -15332,38 +15332,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