From 85280804056c1c3acc2da39bcc5f2647a8535939 Mon Sep 17 00:00:00 2001
From: Efraim Flashner <efraim@flashner.co.il>
Date: Thu, 22 Feb 2018 20:42:11 +0200
Subject: gnu: dolphin-emu: Shorten the source snippet.

* gnu/packages/emulators.scm (dolphin-emu): Rewrite the source snippet
to be more compact.
---
 gnu/packages/emulators.scm | 40 +++++++++++++---------------------------
 1 file changed, 13 insertions(+), 27 deletions(-)

(limited to 'gnu/packages/emulators.scm')

diff --git a/gnu/packages/emulators.scm b/gnu/packages/emulators.scm
index 530ef7da00..d55e68d74e 100644
--- a/gnu/packages/emulators.scm
+++ b/gnu/packages/emulators.scm
@@ -119,33 +119,19 @@
                (url "https://github.com/dolphin-emu/dolphin.git")
                (commit commit)))
          (file-name (git-file-name name version))
-              (modules '((guix build utils)))
-              (snippet
-               '(begin
-                  (for-each delete-file-recursively
-                            ;; Remove external stuff we don't need.
-                            '("Externals/LZO"
-                              "Externals/OpenAL"
-                              "Externals/Qt"
-                              "Externals/SFML"
-                              "Externals/SOIL"
-                              "Externals/curl"
-                              "Externals/ffmpeg"
-                              "Externals/gettext"
-                              "Externals/hidapi"
-                              "Externals/libpng"
-                              "Externals/libusb"
-                              "Externals/mbedtls"
-                              "Externals/miniupnpc"
-                              "Externals/wxWidgets3"
-                              "Externals/zlib"))
-                  ;; Clean up source.
-                  (for-each delete-file (find-files "." "\\.bin$"))
-                  (for-each delete-file (find-files "." "\\.dsy$"))
-                  (for-each delete-file (find-files "." "\\.exe$"))
-                  (for-each delete-file (find-files "." "\\.jar$"))
-                  (for-each delete-file (find-files "." "\\.rar$"))
-                  #t))
+         (modules '((guix build utils)))
+         (snippet
+          '(begin
+             ;; Remove external stuff we don't need.
+             (for-each (lambda (dir)
+                         (delete-file-recursively
+                           (string-append "Externals/" dir)))
+                       '("LZO" "OpenAL" "Qt" "SFML" "SOIL" "curl" "ffmpeg"
+                         "gettext" "hidapi" "libpng" "libusb" "mbedtls"
+                         "miniupnpc" "wxWidgets3" "zlib"))
+             ;; Clean up source.
+             (for-each delete-file (find-files "." ".*\\.(bin|dsy|exe|jar|rar)$"))
+             #t))
          (sha256
           (base32
            "0g725wmhlim73zrhi47wmr1bmplpy4b7sbimd5pm8xpfhj5nm10l"))))
-- 
cgit v1.2.3