guix_mirror_bot pushed a commit to branch master
in repository guix.
commit 481a62fe100e60c666bfc177620abdd8ed0079f3
Author: Cayetano Santos <[email protected]>
AuthorDate: Tue Aug 26 21:07:05 2025 +0200
gnu: libsigrok: Improve style.
* gnu/packages/electronics.scm (libsigrok)[arguments]: Use
G-Expressions.
Change-Id: I6ba9cbf71142577be62187e09fee4d0f89b79ba9
Signed-off-by: Ludovic Courtès <[email protected]>
---
gnu/packages/electronics.scm | 67 ++++++++++++++++++++++----------------------
1 file changed, 34 insertions(+), 33 deletions(-)
diff --git a/gnu/packages/electronics.scm b/gnu/packages/electronics.scm
index f206ed677d..f07586f711 100644
--- a/gnu/packages/electronics.scm
+++ b/gnu/packages/electronics.scm
@@ -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))))
(outputs '("out" "doc"))
(arguments
- `(#:tests? #f ; tests need USB access
- #:phases
- (modify-phases %standard-phases
- (add-before 'configure 'change-udev-group
- (lambda _
- (substitute* (find-files "contrib" "\\.rules$")
- (("plugdev") "dialout"))))
- (add-after 'build 'build-doc
- (lambda _
- (invoke "doxygen")))
- (add-after 'install 'install-doc
- (lambda* (#:key outputs #:allow-other-keys)
- (copy-recursively "doxy/html-api"
- (string-append (assoc-ref outputs "doc")
- "/share/doc/libsigrok"))))
- (add-after 'install-doc 'install-udev-rules
- (lambda* (#:key outputs #:allow-other-keys)
- (let* ((out (assoc-ref outputs "out"))
- (rules (string-append out "/lib/udev/rules.d/")))
- (for-each (lambda (file)
- (install-file file rules))
- (find-files "contrib" "\\.rules$")))))
- (add-after 'install-udev-rules 'install-fw
- (lambda* (#:key inputs outputs #:allow-other-keys)
- (let* ((fx2lafw (assoc-ref inputs "sigrok-firmware-fx2lafw"))
- (out (assoc-ref outputs "out"))
- (dir-suffix "/share/sigrok-firmware/")
- (input-dir (string-append fx2lafw dir-suffix))
- (output-dir (string-append out dir-suffix)))
- (for-each
- (lambda (file)
- (install-file file output-dir))
- (find-files input-dir "."))))))))
+ (list
+ #:tests? #f ; tests need USB access
+ #:phases
+ #~(modify-phases %standard-phases
+ (add-before 'configure 'change-udev-group
+ (lambda _
+ (substitute* (find-files "contrib" "\\.rules$")
+ (("plugdev") "dialout"))))
+ (add-after 'build 'build-doc
+ (lambda _
+ (invoke "doxygen")))
+ (add-after 'install 'install-doc
+ (lambda _
+ (copy-recursively
+ "doxy/html-api"
+ (string-append #$output:doc "/share/doc/libsigrok"))))
+ (add-after 'install-doc 'install-udev-rules
+ (lambda _
+ (for-each
+ (lambda (file)
+ (install-file
+ file
+ (string-append #$output "/lib/udev/rules.d/")))
+ (find-files "contrib" "\\.rules$"))))
+ (add-after 'install-udev-rules 'install-fw
+ (lambda* (#:key inputs outputs #:allow-other-keys)
+ (let* ((fx2lafw (assoc-ref inputs "sigrok-firmware-fx2lafw"))
+ (dir-suffix "/share/sigrok-firmware/")
+ (input-dir (string-append fx2lafw dir-suffix))
+ (output-dir (string-append #$output dir-suffix)))
+ (for-each
+ (lambda (file)
+ (install-file file output-dir))
+ (find-files input-dir "."))))))))
(native-inputs
(list autoconf automake doxygen graphviz libtool
sigrok-firmware-fx2lafw pkg-config))
