guix_mirror_bot pushed a commit to branch master
in repository guix.
commit a6ab914cea4289f46cfdf0e373a04874ad6a97aa
Author: Sharlatan Hellseher <[email protected]>
AuthorDate: Thu Sep 11 13:29:11 2025 +0100
gnu: go-github-com-charmbracelet-x-term: Use delete-all-but.
* gnu/packages/golang-xyz.scm
(go-github-com-charmbracelet-x-term)[source]<snippet>:
Delete all but source for the current module.
Change-Id: I7e6577a70d184b26b9707dc0ae7874debc98cb43
---
gnu/packages/golang-xyz.scm | 14 +++++++++++++-
1 file changed, 13 insertions(+), 1 deletion(-)
diff --git a/gnu/packages/golang-xyz.scm b/gnu/packages/golang-xyz.scm
index 6dbd78bd08..1bf9c968c6 100644
--- a/gnu/packages/golang-xyz.scm
+++ b/gnu/packages/golang-xyz.scm
@@ -3524,7 +3524,19 @@ package provides an API for comparing Golden files.")
#:subdir "term"))))
(file-name (git-file-name name version))
(sha256
- (base32 "1shw55110fnn4xz80wmgr18czmiil6z1j064m90iw8c7j9llfzn5"))))
+ (base32 "1shw55110fnn4xz80wmgr18czmiil6z1j064m90iw8c7j9llfzn5"))
+ (modules '((guix build utils)
+ (ice-9 ftw)
+ (srfi srfi-26)))
+ (snippet
+ #~(begin
+ (define (delete-all-but directory . preserve)
+ (with-directory-excursion directory
+ (let* ((pred (negate (cut member <>
+ (cons* "." ".." preserve))))
+ (items (scandir "." pred)))
+ (for-each (cut delete-file-recursively <>) items))))
+ (delete-all-but "." "term")))))
(build-system go-build-system)
(arguments
(list
