diff options
| author | 宋文武 <iyzsong@member.fsf.org> | 2023-07-21 20:14:33 +0800 |
|---|---|---|
| committer | 宋文武 <iyzsong@member.fsf.org> | 2023-08-13 15:24:49 +0800 |
| commit | 96e521425d09a641fcd4d83bde37f576b49cb4e6 (patch) | |
| tree | 4bbdbdac26197a77b977475360a422b0ab79ac27 /gnu/packages/networking.scm | |
| parent | 7d8ce0701e82cf984906980e240bbf67f4988426 (diff) | |
gnu: libcamera: Rewrite package argument to G-expression.
* gnu/packages/networking.scm (libcamera)[arguments]: Use G-expression.
Diffstat (limited to 'gnu/packages/networking.scm')
| -rw-r--r-- | gnu/packages/networking.scm | 44 |
1 files 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' |