From 37654ec9190c4acca9de2a6b1a160206714aba94 Mon Sep 17 00:00:00 2001
From: Marek Paśnikowski <marek@marekpasnikowski.pl>
Date: Tue, 19 Mar 2024 09:58:49 +0100
Subject: Pretty-print arguments, native-inputs and description

---
 private/komodo/komodo.scm | 31 +++++++++++++++----------------
 1 file changed, 15 insertions(+), 16 deletions(-)

diff --git a/private/komodo/komodo.scm b/private/komodo/komodo.scm
index 1f25ad5787..b2334cd3a6 100644
--- a/private/komodo/komodo.scm
+++ b/private/komodo/komodo.scm
@@ -100,19 +100,18 @@
 				 (content-hash
 				  "1bn2sjcrp9ih44h3p96prnwg74aids7fgzcnlv3c68nan6y2lysi")))
 			    " DESTINATION " #+ build-path-mm2 " )\n"))))))))
-      (let ((komodo-wallet-arguments (list #:phases phases
-					   #:configure-flags configure-flags))
-	    (komodo-wallet-description
-	     (string-append
-	      "Komodo Wallet is a secure wallet and non-custodial "
-	      "decentralized exchange rolled into one application. Store "
-	      "your coind, trade peer-to-peer with minimal fees and never "
-	      "give up control over your digital assets."))
-	    (komodo-wallet-native-inputs
-	     (list
-	      boost cpprestsdk date doctest entt fmt git libsodium-komodo nlohmann-json
-	      openssl qtcharts qtdeclarative-5 qttools-5 qtsvg-5 qtwebengine-5
-	      range-v3 spdlog zlib))
+      (let ((arguments (list #:phases phases
+			     #:configure-flags configure-flags))
+	    (description (string-append "Komodo Wallet is a secure wallet and "
+					"non-custodial decentralized exchange  "
+					"rolled into one application. Store "
+					"your coins, trade peer-to-peer with "
+					"minimal fees and never give up "
+					"control over your digital assets."))
+	    (native-inputs (list boost cpprestsdk date doctest entt fmt git
+				 libsodium-komodo nlohmann-json openssl qtcharts
+				 qtdeclarative-5 qttools-5 qtsvg-5 qtwebengine-5
+				 range-v3 spdlog zlib))
 	    (komodo-wallet-origin
 	     (origin
 	      (uri
@@ -129,9 +128,9 @@
 	 (version version)
 	 (source komodo-wallet-origin)
 	 (build-system qt-build-system)
-	 (arguments komodo-wallet-arguments)
-	 (native-inputs komodo-wallet-native-inputs)
+	 (arguments arguments)
+	 (native-inputs native-inputs)
 	 (synopsis "Komodo Wallet Desktop GUI")
-	 (description komodo-wallet-description)
+	 (description description)
 	 (license license:gpl2)
 	 (home-page "https://atomicdex.io/"))))))
-- 
cgit v1.2.3