guix_mirror_bot pushed a commit to branch python-team
in repository guix.
commit d0730789430a6cf3d70362208e830684fb843952
Author: Sergey Trofimov <[email protected]>
AuthorDate: Thu Jan 29 12:25:32 2026 +0100
gnu: libcamera: Use G-Expressions.
* gnu/packages/networking.scm (libcamera): Simplify by applying
G-Expressions everywhere.
Co-authored-by: Sharlatan Hellseher <[email protected]>
Change-Id: I44103a01cca67c4dc861fb0268d2ac8010997d44
Signed-off-by: Sharlatan Hellseher <[email protected]>
---
gnu/packages/networking.scm | 22 +++++++++-------------
1 file changed, 9 insertions(+), 13 deletions(-)
diff --git a/gnu/packages/networking.scm b/gnu/packages/networking.scm
index 6fb36342be..304fdcf7ad 100644
--- a/gnu/packages/networking.scm
+++ b/gnu/packages/networking.scm
@@ -463,8 +463,7 @@ them in order to efficiently transfer a minimal amount of
data.")
(arguments
(list #:glib-or-gtk? #t ; To wrap binaries and/or compile schemas
#:configure-flags
- #~(list (string-append "-Dbindir="
- (assoc-ref %outputs "tools") "/bin")
+ #~(list (string-append "-Dbindir=" #$output:tools "/bin")
"-Dudev=enabled"
"-Dv4l2=true"
"-Dtest=true")
@@ -496,17 +495,14 @@ them in order to efficiently transfer a minimal amount of
data.")
"")))))
#~())
(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"))))))))
+ (lambda _
+ (mkdir-p (string-append #$output:doc "/share"))
+ (rename-file (string-append #$output "/share/doc")
+ (string-append #$output:doc "/share/doc"))
+ (mkdir-p (string-append #$output:gst "/lib"))
+ (rename-file
+ (string-append #$output "/lib/gstreamer-1.0")
+ (string-append #$output:gst "/lib/gstreamer-1.0")))))))
(native-inputs
(list googletest
graphviz ;for 'dot'
