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: libsigrok: Improve style.

Browse source 
* gnu/packages/electronics.scm (libsigrok)[arguments]: Use
G-Expressions.

Change-Id: I6ba9cbf71142577be62187e09fee4d0f89b79ba9
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Cayetano Santos 2025-08-26 21:07:05 +02:00 • committed by Ludovic Courtès
parent 44a5f936a3
commit 481a62fe10
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 34 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

67
gnu/packages/electronics.scm
View file

@ -216,39 +216,40 @@ to take care of the OS-specific details when writing software that uses serial p
(file-name (git-file-name name version)))) (file-name (git-file-name name version))))
(outputs '("out" "doc")) (outputs '("out" "doc"))
(arguments (arguments
`(#:tests? #f ; tests need USB access (list
#:phases #:tests? #f ; tests need USB access
(modify-phases %standard-phases #:phases
(add-before 'configure 'change-udev-group #~(modify-phases %standard-phases
(lambda _ (add-before 'configure 'change-udev-group
(substitute* (find-files "contrib" "\\.rules$") (lambda _
(("plugdev") "dialout")))) (substitute* (find-files "contrib" "\\.rules$")
(add-after 'build 'build-doc (("plugdev") "dialout"))))
(lambda _ (add-after 'build 'build-doc
(invoke "doxygen"))) (lambda _
(add-after 'install 'install-doc (invoke "doxygen")))
(lambda* (#:key outputs #:allow-other-keys) (add-after 'install 'install-doc
(copy-recursively "doxy/html-api" (lambda _
(string-append (assoc-ref outputs "doc") (copy-recursively
"/share/doc/libsigrok")))) "doxy/html-api"
(add-after 'install-doc 'install-udev-rules (string-append #$output:doc "/share/doc/libsigrok"))))
(lambda* (#:key outputs #:allow-other-keys) (add-after 'install-doc 'install-udev-rules
(let* ((out (assoc-ref outputs "out")) (lambda _
(rules (string-append out "/lib/udev/rules.d/"))) (for-each
(for-each (lambda (file) (lambda (file)
(install-file file rules)) (install-file
(find-files "contrib" "\\.rules$"))))) file
(add-after 'install-udev-rules 'install-fw (string-append #$output "/lib/udev/rules.d/")))
(lambda* (#:key inputs outputs #:allow-other-keys) (find-files "contrib" "\\.rules$"))))
(let* ((fx2lafw (assoc-ref inputs "sigrok-firmware-fx2lafw")) (add-after 'install-udev-rules 'install-fw
(out (assoc-ref outputs "out")) (lambda* (#:key inputs outputs #:allow-other-keys)
(dir-suffix "/share/sigrok-firmware/") (let* ((fx2lafw (assoc-ref inputs "sigrok-firmware-fx2lafw"))
(input-dir (string-append fx2lafw dir-suffix)) (dir-suffix "/share/sigrok-firmware/")
(output-dir (string-append out dir-suffix))) (input-dir (string-append fx2lafw dir-suffix))
(for-each (output-dir (string-append #$output dir-suffix)))
(lambda (file) (for-each
(install-file file output-dir)) (lambda (file)
(find-files input-dir ".")))))))) (install-file file output-dir))
(find-files input-dir "."))))))))
(native-inputs (native-inputs
(list autoconf automake doxygen graphviz libtool (list autoconf automake doxygen graphviz libtool
sigrok-firmware-fx2lafw pkg-config)) sigrok-firmware-fx2lafw pkg-config))