TakeV/guix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

gnu: libcamera: Rewrite package argument to G-expression.

Browse source 
* gnu/packages/networking.scm (libcamera)[arguments]: Use G-expression.
This commit is contained in:
宋文武 2023-07-21 20:14:33 +08:00
parent 7d8ce0701e
commit 96e521425d
No known key found for this signature in database
GPG key ID: D415BF253B515976
1 changed files with 21 additions and 23 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

44
gnu/packages/networking.scm
View file

@ -365,29 +365,27 @@ (define-public libcamera
(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'