04/11: gnu: libcamera: Rewrite package argument to G-expression.

[guix-commits]

iyzsong pushed a commit to branch master
in repository guix.

commit 96e521425d09a641fcd4d83bde37f576b49cb4e6
Author: 宋文武 <iyzsong@member.fsf.org>
AuthorDate: Fri Jul 21 20:14:33 2023 +0800

    gnu: libcamera: Rewrite package argument to G-expression.
    
    * gnu/packages/networking.scm (libcamera)[arguments]: Use G-expression.
---
 gnu/packages/networking.scm | 44 +++++++++++++++++++++-----------------------
 1 file changed, 21 insertions(+), 23 deletions(-)

diff --git a/gnu/packages/networking.scm b/gnu/packages/networking.scm
index 5a027b5af7..82987d5f9c 100644
--- a/gnu/packages/networking.scm
+++ b/gnu/packages/networking.scm
@@ -365,29 +365,27 @@ them in order to efficiently transfer a minimal amount of 
data.")
     (build-system meson-build-system)
     (outputs '("out" "doc" "gst" "tools"))
     (arguments
-     `(#:glib-or-gtk? #t     ; To wrap binaries and/or compile schemas
-       #:configure-flags
-       (list
-        (string-append "-Dbindir=" (assoc-ref %outputs "tools") "/bin")
-        "-Dtest=true"
-        "-Dv4l2=true"
-        ;; XXX: Requires bundled pybind11.
-        "-Dpycamera=disabled")
-       #:phases
-       (modify-phases %standard-phases
-         (add-after 'install 'move-doc-and-gst
-           (lambda* (#:key outputs #:allow-other-keys)
-             (let* ((out (assoc-ref outputs "out"))
-                    (doc (assoc-ref outputs "doc"))
-                    (gst (assoc-ref outputs "gst")))
-               (mkdir-p (string-append doc "/share"))
-               (rename-file
-                (string-append out "/share/doc")
-                (string-append doc "/share/doc"))
-               (mkdir-p (string-append gst "/lib"))
-               (rename-file
-                (string-append out "/lib/gstreamer-1.0")
-                (string-append gst "/lib/gstreamer-1.0"))))))))
+     (list #:glib-or-gtk? #t ; To wrap binaries and/or compile schemas
+           #:configure-flags
+           #~(list (string-append "-Dbindir="
+                                  (assoc-ref %outputs "tools") "/bin")
+                   "-Dtest=true" "-Dv4l2=true"
+                   ;; XXX: Requires bundled pybind11.
+                   "-Dpycamera=disabled")
+           #:phases
+           #~(modify-phases %standard-phases
+               (add-after 'install 'move-doc-and-gst
+                 (lambda* (#:key outputs #:allow-other-keys)
+                   (let* ((out (assoc-ref outputs "out"))
+                          (doc (assoc-ref outputs "doc"))
+                          (gst (assoc-ref outputs "gst")))
+                     (mkdir-p (string-append doc "/share"))
+                     (rename-file (string-append out "/share/doc")
+                                  (string-append doc "/share/doc"))
+                     (mkdir-p (string-append gst "/lib"))
+                     (rename-file
+                      (string-append out "/lib/gstreamer-1.0")
+                      (string-append gst "/lib/gstreamer-1.0"))))))))
     (native-inputs
      (list googletest
            graphviz                     ;for 'dot'