diff options
| author | Maxim Cournoyer <maxim@guixotic.coop> | 2025-08-25 08:47:29 +0900 |
|---|---|---|
| committer | Maxim Cournoyer <maxim@guixotic.coop> | 2025-08-25 08:58:42 +0900 |
| commit | e28ab6a6fe76bcb495514b4ffcc666e28ca258ab (patch) | |
| tree | 0a081f0712e7488d99de3bf36cf28d3c59514cf8 /gnu/packages/emulators.scm | |
| parent | 011f0580bea97783d3d76d85af8d42b887462355 (diff) | |
gnu: turbovnc: Simplify 'delete-all-but' in snippet.
* gnu/packages/vnc.scm (turbovnc) [source] <snippet>: Simplify.
* gnu/packages/astronomy.scm (phd2): Likewise.
* gnu/packages/emulators.scm (libretro-dolphin-emu)
(retroarch-minimal): Likewise.
* gnu/packages/golang-web.scm (go-github-com-aws-aws-sdk-go-v2-service-sqs)
(go-go-opentelemetry-io-contrib-propagators-autoprop)
(go-go-opentelemetry-io-otel-exporters-otlp-otlptrace)
(go-go-opentelemetry-io-otel-exporters-otlp-otlptrace-otlptracegrpc)
(go-go-opentelemetry-io-otel-exporters-otlp-otlptrace-otlptracehttp)
(go-go-opentelemetry-io-otel-exporters-zipkin)
(go-go-opentelemetry-io-otel-log, go-go-opentelemetry-io-otel-sdk)
(go-go-opentelemetry-io-otel-sdk-log, go-go-opentelemetry-io-otel-sdk-metric)
(go-google-golang-org-genproto-googleapis-api): Likewise.
* gnu/packages/golang-xyz.scm (go-go-uber-org-zap-exp): Likewise.
* gnu/packages/ipfs.scm (go-github-com-ipfs-shipyard-nopfs-ipfs): Likewise.
* gnu/packages/mpi.scm (openmpi-5): Likewise.
Change-Id: I286ff1e949ccb97f9369f2a172c8559e3884dba7
Diffstat (limited to 'gnu/packages/emulators.scm')
| -rw-r--r-- | gnu/packages/emulators.scm | 26 |
1 files changed, 6 insertions, 20 deletions
diff --git a/gnu/packages/emulators.scm b/gnu/packages/emulators.scm index b456507324a..bb0bd898e16 100644 --- a/gnu/packages/emulators.scm +++ b/gnu/packages/emulators.scm @@ -643,18 +643,11 @@ turbo speed, networked multiplayer, and graphical enhancements.") #~(begin ;; XXX: 'delete-all-but' is copied from the turbovnc package. (define (delete-all-but directory . preserve) - (define (directory? x) - (and=> (stat x #f) - (compose (cut eq? 'directory <>) stat:type))) (with-directory-excursion directory - (let* ((pred - (negate (cut member <> (append '("." "..") preserve)))) + (let* ((pred (negate (cut member <> + (cons* "." ".." preserve)))) (items (scandir "." pred))) - (for-each (lambda (item) - (if (directory? item) - (delete-file-recursively item) - (delete-file item))) - items)))) + (for-each (cut delete-file-recursively <>) items)))) ;; Clean up the source from bundled libraries we don't need. (delete-all-but "Externals" @@ -2866,18 +2859,11 @@ GLSL (@file{.slang}) shaders for use with RetroArch.") (srfi srfi-26)) ;; XXX: 'delete-all-but' is copied from the turbovnc package. (define (delete-all-but directory . preserve) - (define (directory? x) - (and=> (stat x #f) - (compose (cut eq? 'directory <>) stat:type))) (with-directory-excursion directory - (let* ((pred - (negate (cut member <> (append '("." "..") preserve)))) + (let* ((pred (negate (cut member <> + (cons* "." ".." preserve)))) (items (scandir "." pred))) - (for-each (lambda (item) - (if (directory? item) - (delete-file-recursively item) - (delete-file item))) - items)))) + (for-each (cut delete-file-recursively <>) items)))) ;; Remove as much bundled sources as possible, shaving off about ;; 65 MiB. (delete-all-but "deps" |