gnu: gnunet: Fix indentation and use gexps.

* gnu/packages/gnunet.scm (gnunet): Fix indentation.
[arguments]: Use gexps and delete trailing #t.

gnu/packages/gnunet.scm

@@ -13,6 +13,7 @@
 ;;; Copyright © 2020 Michael Rohleder <mike@rohleder.de>
 ;;; Copyright © 2022 Maxime Devos <maximedevos@telenet.be>
 ;;; Copyright © 2023 Adam Faiz <adam.faiz@disroot.org>
+;;; Copyright © 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -31,6 +32,7 @@
 
 (define-module (gnu packages gnunet)
   #:use-module (gnu packages)
+  #:use-module (gnu packages base)
   #:use-module (gnu packages file)
   #:use-module (gnu packages aidc)
   #:use-module (gnu packages autotools)
@@ -259,82 +261,82 @@ supports HTTP, HTTPS and GnuTLS.")
 
 (define-public gnunet
   (package
-   (name "gnunet")
+    (name "gnunet")
-   (version "0.19.3")
+    (version "0.19.3")
-   (source
+    (source
-    (origin
+     (origin
-      (method url-fetch)
+       (method url-fetch)
-      (uri (string-append "mirror://gnu/gnunet/gnunet-" version
+       (uri (string-append "mirror://gnu/gnunet/gnunet-" version
-                          ".tar.gz"))
+                           ".tar.gz"))
-      (sha256
+       (sha256
-       (base32
+        (base32
-        "09bspbjl6cll8wcrl1vnb56jwp30pcrg1yyj6xy3i0fl2bzdbdw2"))
+         "09bspbjl6cll8wcrl1vnb56jwp30pcrg1yyj6xy3i0fl2bzdbdw2"))
-      (modules '((guix build utils)))
+       (modules '((guix build utils)))
-      (snippet
+       (snippet
-       #~(begin
+        #~(begin
-           ;; This is fixed in the upstream repository but the fix
+            ;; This is fixed in the upstream repository but the fix
-           ;; has not been released.
+            ;; has not been released.
-           (substitute* "src/gns/test_proxy.sh"
+            (substitute* "src/gns/test_proxy.sh"
-             (("test_gnunet_proxy.conf") "test_gns_proxy.conf"))))))
+              (("test_gnunet_proxy.conf") "test_gns_proxy.conf"))))))
-   (build-system gnu-build-system)
+    (build-system gnu-build-system)
-   (inputs
+    (inputs
-    (list bluez
+     (list bluez
-          glpk
+           glpk
-          curl
+           curl
-          gnutls/dane
+           gnutls/dane
-          gstreamer
+           gstreamer
-          jansson
+           jansson
-          libextractor
+           libextractor
-          libidn2
+           libidn2
-          libgcrypt
+           libgcrypt
-          libjpeg-turbo
+           libjpeg-turbo
-          libltdl
+           libltdl
-          libmicrohttpd
+           libmicrohttpd
-          libogg
+           libogg
-          libsodium
+           libsodium
-          libunistring
+           libunistring
-          miniupnpc
+           miniupnpc
-          opus
+           opus
-          pulseaudio
+           pulseaudio
-          sqlite
+           sqlite
-          zbar
+           zbar
-          zlib))
+           zlib))
-   (native-inputs
+    (native-inputs
-    (list curl
+     (list curl
-          openssl
+           openssl
-          pkg-config
+           pkg-config
-          python
+           python
-          python-sphinx
+           python-sphinx
-          python-sphinx-rtd-theme
+           python-sphinx-rtd-theme
-          xxd
+           xxd
-          (@ (gnu packages base) which)))
+           which))
-   (arguments
+    (arguments
-    '(#:parallel-tests? #f ; Parallel tests aren't supported.
+     (list
+      #:parallel-tests? #f              ;parallel tests aren't supported
       #:phases
-      (modify-phases %standard-phases
+      #~(modify-phases %standard-phases
-        (add-before 'check 'set-env-var-for-tests
+          (add-before 'check 'set-env-var-for-tests
-          (lambda _
+            (lambda _
-            (setenv "LANG" "en_US.UTF-8")))
+              (setenv "LANG" "en_US.UTF-8")))
-        ;; Swap 'check and 'install phases and add installed binaries to $PATH.
+          ;; Swap 'check and 'install phases and add installed binaries to $PATH.
-        (add-before 'check 'set-path-for-check
+          (add-before 'check 'set-path-for-check
-          (lambda* (#:key outputs #:allow-other-keys)
+            (lambda _
-           (let ((out (assoc-ref outputs "out")))
+              (setenv "GNUNET_PREFIX" (string-append #$output "/lib"))
-             (setenv "GNUNET_PREFIX" (string-append out "/lib"))
+              (setenv "PATH" (string-append (getenv "PATH") ":"
-             (setenv "PATH" (string-append (getenv "PATH") ":" out "/bin")))
+                                            #$output "/bin"))))
-           #t))
+          (delete 'check)
-        (delete 'check)
+          (add-after 'install 'check
-        (add-after 'install 'check
+            (assoc-ref %standard-phases 'check)))))
-          (assoc-ref %standard-phases 'check)))))
+    (synopsis "Secure, decentralized, peer-to-peer networking framework")
-   (synopsis "Secure, decentralized, peer-to-peer networking framework")
+    (description
-   (description
      "GNUnet is a framework for secure peer-to-peer networking.  The
 high-level goal is to provide a strong foundation of free software for a
 global, distributed network that provides security and privacy.  GNUnet in
 that sense aims to replace the current internet protocol stack.  Along with
 an application for secure publication of files, it has grown to include all
 kinds of basic applications for the foundation of a GNU internet.")
-   (license license:agpl3+)
+    (license license:agpl3+)
-   (home-page "https://gnunet.org/en/")))
+    (home-page "https://gnunet.org/en/")))
 
 (define-public guile-gnunet                       ;GSoC 2015!
   (let ((commit "d12167ab3c8d7d6caffd9c606e389ef043760602")