amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

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
Download patch file Download diff file Expand all files Collapse all files

14
gnu/packages/networking.scm
View file

@ -365,24 +365,22 @@ them in order to efficiently transfer a minimal amount of data.")
(build-system meson-build-system) (build-system meson-build-system)
(outputs '("out" "doc" "gst" "tools")) (outputs '("out" "doc" "gst" "tools"))
(arguments (arguments
`(#:glib-or-gtk? #t ; To wrap binaries and/or compile schemas (list #:glib-or-gtk? #t ; To wrap binaries and/or compile schemas
#:configure-flags #:configure-flags
(list #~(list (string-append "-Dbindir="
(string-append "-Dbindir=" (assoc-ref %outputs "tools") "/bin") (assoc-ref %outputs "tools") "/bin")
"-Dtest=true" "-Dtest=true" "-Dv4l2=true"
"-Dv4l2=true"
;; XXX: Requires bundled pybind11. ;; XXX: Requires bundled pybind11.
"-Dpycamera=disabled") "-Dpycamera=disabled")
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'install 'move-doc-and-gst (add-after 'install 'move-doc-and-gst
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(doc (assoc-ref outputs "doc")) (doc (assoc-ref outputs "doc"))
(gst (assoc-ref outputs "gst"))) (gst (assoc-ref outputs "gst")))
(mkdir-p (string-append doc "/share")) (mkdir-p (string-append doc "/share"))
(rename-file (rename-file (string-append out "/share/doc")
(string-append out "/share/doc")
(string-append doc "/share/doc")) (string-append doc "/share/doc"))
(mkdir-p (string-append gst "/lib")) (mkdir-p (string-append gst "/lib"))
(rename-file (rename-file