From 590d24d6d9baeabd16ad370465c20e7b89b5a951 Mon Sep 17 00:00:00 2001
From: Sharlatan Hellseher <sharlatanus@gmail.com>
Date: Thu, 13 Feb 2025 09:03:30 +0000
Subject: [PATCH] gnu: cbonsai: Refresh package style.

* gnu/packages/toys.scm (cbonsai): Use G-Expressions, simplify and fix
indentation.

Change-Id: I6d8dbbe8a62ff98737584039b2bb6da72593abd1
---
 gnu/packages/toys.scm | 44 +++++++++++++++++++++----------------------
 1 file changed, 22 insertions(+), 22 deletions(-)

diff --git a/gnu/packages/toys.scm b/gnu/packages/toys.scm
index 498f62d7142b0a3d74c362cdb68b9b6331bb8a3b..bd7db83083db6fb4afa9bb15a4ade0e1f52639a3 100644
--- a/gnu/packages/toys.scm
+++ b/gnu/packages/toys.scm
@@ -69,30 +69,30 @@
     (package
       (name "cbonsai")
       (version (git-version "1.3.1" revision commit))
-      (source (origin
-                (method git-fetch)
-                (uri (git-reference
-                       (url "https://gitlab.com/jallbrit/cbonsai.git")
-                       (commit commit)))
-                (file-name (git-file-name name version))
-                (sha256
-                 (base32
-                  "01slgw872nwpbaa8h2q5s7dfrq3xan0mh6wh8waz88xhy8vp7z1n"))))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url "https://gitlab.com/jallbrit/cbonsai.git")
+               (commit commit)))
+         (file-name (git-file-name name version))
+         (sha256
+          (base32 "01slgw872nwpbaa8h2q5s7dfrq3xan0mh6wh8waz88xhy8vp7z1n"))))
       (build-system gnu-build-system)
       (arguments
-       `(#:tests? #f ; No test suite
-         #:make-flags
-         (list (string-append "CC=" ,(cc-for-target))
-               (string-append "PREFIX=" (assoc-ref %outputs "out")))
-         #:phases
-         (modify-phases %standard-phases
-           (delete 'configure) ; No ./configure script
-           (add-after 'install 'install-doc
-             (lambda* (#:key outputs #:allow-other-keys)
-               (let* ((out (assoc-ref outputs "out"))
-                      (doc (string-append out "/share/doc/" ,name "-"
-                                          ,(package-version this-package))))
-                 (install-file "README.md" doc)))))))
+       (list
+        #:tests? #f ; No test suite
+        #:make-flags
+        #~(list (string-append "CC=" #$(cc-for-target))
+                (string-append "PREFIX=" #$output))
+        #:phases
+        #~(modify-phases %standard-phases
+            (delete 'configure) ; No ./configure script
+            (add-after 'install 'install-doc
+              (lambda _
+                (let ((doc (format #f "~a/share/doc/~a-~a" #$output
+                                   #$name #$version)))
+                  (install-file "README.md" doc)))))))
       (native-inputs
        (list pkg-config scdoc))
       (inputs