bartronx7/guix
1
0
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2026-01-28 11:55:06 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: uuu: Improve style.

Browse source 
* gnu/packages/flashing-tools.scm (uuu)[arguments]: Use G-Expressions.

Change-Id: I121de8ce3e980f3200d52c406519502ed2d59bbf
Signed-off-by: Ekaitz Zarraga <ekaitz@elenq.tech>
This commit is contained in:
Cayetano Santos 2025-10-14 08:54:57 +02:00 • committed by Ekaitz Zarraga
parent 8ee64639cd
commit 979043e0dd
No known key found for this signature in database
GPG key ID: FDB952BD3F7356D6
1 changed files with 21 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

41
gnu/packages/flashing-tools.scm
View file

@ -724,30 +724,31 @@ formats, and can perform many different manipulations.")
(sha256
(base32
"0jil04khy0lxllhapdm86yyq9i3xqrlvmf6g5r53qmq9jyvxwlhv"))))
(build-system cmake-build-system)
(arguments
`(#:tests? #f ; no tests
#:modules ((guix build utils)
(list
#:tests? #f ; no tests
#:modules '((guix build utils)
(ice-9 popen)
(srfi srfi-26)
(guix build cmake-build-system))
#:phases
(modify-phases %standard-phases
(add-before 'configure 'fix-version-gen
(lambda _
(call-with-output-file ".tarball-version"
(lambda (port)
(display ,version port)))))
(add-after 'install 'install-udev-rules
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(uuu (string-append out "/bin/uuu"))
(pipe (open-pipe* OPEN_READ uuu "-udev"))
(rules
(string-append out "/lib/udev/rules.d/70-uuu.rules")))
(mkdir-p (string-append out "/lib/udev/rules.d"))
(call-with-output-file rules
(cut dump-port pipe <>))))))))
(build-system cmake-build-system)
#:phases
#~(modify-phases %standard-phases
(add-before 'configure 'fix-version-gen
(lambda _
(call-with-output-file ".tarball-version"
(lambda (port)
(display #$version port)))))
(add-after 'install 'install-udev-rules
(lambda _
(let* ((uuu (string-append #$output "/bin/uuu"))
(pipe (open-pipe* OPEN_READ uuu "-udev"))
(rules
(string-append
#$output "/lib/udev/rules.d/70-uuu.rules")))
(mkdir-p (string-append #$output "/lib/udev/rules.d"))
(call-with-output-file rules
(cut dump-port pipe <>))))))))
(native-inputs
(list pkg-config))
(inputs