amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: go-github-com-charmbracelet-x-term: Use delete-all-but.

Browse source 
* gnu/packages/golang-xyz.scm (go-github-com-charmbracelet-x-term)[source]<snippet>:
Delete all but source for the current module.

Change-Id: I7e6577a70d184b26b9707dc0ae7874debc98cb43
This commit is contained in:
Sharlatan Hellseher 2025-09-11 13:29:11 +01:00
parent 10f52ccbcd
commit a6ab914cea
No known key found for this signature in database
GPG key ID: 76D727BFF62CD2B5
1 changed files with 13 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

14
gnu/packages/golang-xyz.scm
View file

@ -3524,7 +3524,19 @@ package provides an API for comparing Golden files.")
#:subdir "term")))) #:subdir "term"))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (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) (build-system go-build-system)
(arguments (arguments
(list (list