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

Browse source 
* gnu/packages/linux.scm (lm-sensors)[arguments]: Use G-Expressions.

Change-Id: Ia22080afe1aa52fd9f37df5c5711a3df174beb1c
Signed-off-by: Andreas Enge <andreas@enge.fr>
This commit is contained in:
Cayetano Santos 2025-09-24 13:51:56 +02:00 • committed by Andreas Enge
parent 98f8c859c7
commit 4dc3ca546c
No known key found for this signature in database
GPG key ID: F7D5C9BF765C61E3
1 changed files with 43 additions and 47 deletions
Download patch file Download diff file Expand all files Collapse all files

90
gnu/packages/linux.scm
View file

@ -5983,56 +5983,52 @@ information on country-specific regulations for the wireless spectrum.")
(base32 "0p2ck8p9zb1w53l37pvm6c10vi6r8bfz51nd3sdwwsfhfhgvsr0j"))
(patches (search-patches "lm-sensors-hwmon-attrs.patch"))))
(build-system gnu-build-system)
(inputs (list rrdtool perl kmod gnuplot))
(native-inputs (list pkg-config flex bison which))
(outputs '("lib" ; avoid perl in closure
"out"))
(arguments
`(#:tests? #f ; no 'check' target
#:make-flags (list (string-append "PREFIX=" %output)
(string-append "ETCDIR=" (assoc-ref %outputs "lib") "/etc")
(string-append "INCLUDEDIR="
(assoc-ref %outputs "lib") "/include")
(string-append "MANDIR=" %output "/share/man")
(string-append "LIBDIR=" (assoc-ref %outputs "lib") "/lib"))
#:phases
(modify-phases %standard-phases
(delete 'configure)
(add-before 'build 'patch-exec-paths
(lambda* (#:key inputs outputs #:allow-other-keys)
(substitute* "prog/detect/sensors-detect"
(("`uname")
(string-append "`" (assoc-ref inputs "coreutils")
"/bin/uname"))
(("(`|\")modprobe" all open-quote)
(string-append open-quote
(assoc-ref inputs "kmod")
"/bin/modprobe")))
(substitute* '("prog/pwm/pwmconfig"
"prog/pwm/fancontrol")
(("gnuplot")
(search-input-file inputs "/bin/gnuplot"))
(("cat ")
(string-append (search-input-file inputs "/bin/cat")
" "))
(("e?grep " match)
(string-append (search-input-file inputs
(string-append
"/bin/"
(string-trim-right match)))
" "))
(("sed -e")
(string-append (search-input-file inputs "/bin/sed")
" -e"))
(("cut -d")
(string-append (search-input-file inputs "/bin/cut")
" -d"))
(("sleep ")
(string-append (search-input-file inputs "/bin/sleep")
" "))
(("readlink -f")
(string-append (search-input-file inputs "/bin/readlink")
" -f"))))))))
(list
#:tests? #f ; no 'check' target
#:make-flags
#~(list (string-append "PREFIX=" #$output)
(string-append "ETCDIR=" #$output:lib "/etc")
(string-append "INCLUDEDIR=" #$output:lib "/include")
(string-append "MANDIR=" #$output "/share/man")
(string-append "LIBDIR=" #$output:lib "/lib"))
#:phases
#~(modify-phases %standard-phases
(delete 'configure)
(add-before 'build 'patch-exec-paths
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "prog/detect/sensors-detect"
(("`uname")
(string-append
"`" (assoc-ref inputs "coreutils") "/bin/uname"))
(("(`|\")modprobe" all open-quote)
(string-append
open-quote #$(this-package-input "kmod") "/bin/modprobe")))
(substitute* '("prog/pwm/pwmconfig" "prog/pwm/fancontrol")
(("gnuplot")
(search-input-file inputs "/bin/gnuplot"))
(("cat ")
(string-append (search-input-file inputs "/bin/cat") " "))
(("e?grep " match)
(string-append
(search-input-file
inputs (string-append "/bin/" (string-trim-right match)))
" "))
(("sed -e")
(string-append (search-input-file inputs "/bin/sed") " -e"))
(("cut -d")
(string-append (search-input-file inputs "/bin/cut") " -d"))
(("sleep ")
(string-append (search-input-file inputs "/bin/sleep") " "))
(("readlink -f")
(string-append
(search-input-file inputs "/bin/readlink") " -f"))))))))
(inputs
(list gnuplot kmod perl rrdtool))
(native-inputs
(list bison flex pkg-config which))
(home-page "https://hwmon.wiki.kernel.org/lm_sensors")
(synopsis "Utilities to read temperature/voltage/fan sensors")
(description