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

29
gnu/packages/electronics.scm
View file

@ -216,9 +216,10 @@ 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
#:tests? #f ; tests need USB access
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-before 'configure 'change-udev-group (add-before 'configure 'change-udev-group
(lambda _ (lambda _
(substitute* (find-files "contrib" "\\.rules$") (substitute* (find-files "contrib" "\\.rules$")
@ -227,24 +228,24 @@ to take care of the OS-specific details when writing software that uses serial p
(lambda _ (lambda _
(invoke "doxygen"))) (invoke "doxygen")))
(add-after 'install 'install-doc (add-after 'install 'install-doc
(lambda* (#:key outputs #:allow-other-keys) (lambda _
(copy-recursively "doxy/html-api" (copy-recursively
(string-append (assoc-ref outputs "doc") "doxy/html-api"
"/share/doc/libsigrok")))) (string-append #$output:doc "/share/doc/libsigrok"))))
(add-after 'install-doc 'install-udev-rules (add-after 'install-doc 'install-udev-rules
(lambda* (#:key outputs #:allow-other-keys) (lambda _
(let* ((out (assoc-ref outputs "out")) (for-each
(rules (string-append out "/lib/udev/rules.d/"))) (lambda (file)
(for-each (lambda (file) (install-file
(install-file file rules)) file
(find-files "contrib" "\\.rules$"))))) (string-append #$output "/lib/udev/rules.d/")))
(find-files "contrib" "\\.rules$"))))
(add-after 'install-udev-rules 'install-fw (add-after 'install-udev-rules 'install-fw
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((fx2lafw (assoc-ref inputs "sigrok-firmware-fx2lafw")) (let* ((fx2lafw (assoc-ref inputs "sigrok-firmware-fx2lafw"))
(out (assoc-ref outputs "out"))
(dir-suffix "/share/sigrok-firmware/") (dir-suffix "/share/sigrok-firmware/")
(input-dir (string-append fx2lafw dir-suffix)) (input-dir (string-append fx2lafw dir-suffix))
(output-dir (string-append out dir-suffix))) (output-dir (string-append #$output dir-suffix)))
(for-each (for-each
(lambda (file) (lambda (file)
(install-file file output-dir)) (install-file file output-dir))