From a6ab914cea4289f46cfdf0e373a04874ad6a97aa Mon Sep 17 00:00:00 2001 From: Sharlatan Hellseher Date: Thu, 11 Sep 2025 13:29:11 +0100 Subject: [PATCH] gnu: go-github-com-charmbracelet-x-term: Use delete-all-but. * gnu/packages/golang-xyz.scm (go-github-com-charmbracelet-x-term)[source]: 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 6dbd78bd082..1bf9c968c6a 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