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