ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-08 07:56:16 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: thinkfan: Use G-expressions.

Browse source 
* gnu/packages/linux.scm (thinkfan)[arguments]<#:configure-flags, #:phases>:
Use G-expressions.
This commit is contained in:
Nicolas Goaziou 2022-02-08 00:51:48 +01:00
parent 70b76c47b0
commit cd6879cf97
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
1 changed files with 24 additions and 26 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

50
gnu/packages/linux.scm
View file

@ -5909,34 +5909,32 @@ (define-public thinkfan
(base32 "07l7cxbsyvy7awa1zk0zxng60749idvsx3535iginhkqxfzij4b9"))))
(build-system cmake-build-system)
(arguments
`(#:modules ((guix build cmake-build-system)
(list
#:modules '((guix build cmake-build-system)
(guix build utils)
(srfi srfi-26))
#:tests? #f ; no test target
#:configure-flags
;; Enable reading temperatures from hard disks via S.M.A.R.T.
;; Upstream ‘defaults to OFF because libatasmart seems to be horribly
;; inefficient’.
`("-DUSE_ATASMART:BOOL=ON")
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'create-init-scripts
;; CMakeLists.txt relies on build-time symptoms of OpenRC and
;; systemd to patch and install their service files. Fake their
;; presence rather than duplicating the build system below. Leave
;; things like ‘/bin/kill’ because they're not worth a dependency.
;; The sysvinit needs manual patching, but since upstream doesn't
;; even provide the option to install it: don't.
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(share (string-append out "/share/" ,name)))
(substitute* "CMakeLists.txt"
(("pkg_check_modules\\((OPENRC|SYSTEMD) .*" _ package)
(format #f "option(~a_FOUND \"Faked\" ON)\n" package))
;; That was easy! Now we just need to fix the destinations.
(("/etc" directory)
(string-append out directory)))
#t))))))
#:tests? #f ; no test target
#:configure-flags
;; Enable reading temperatures from hard disks via S.M.A.R.T.
;; Upstream ‘defaults to OFF because libatasmart seems to be horribly
;; inefficient’.
#~(list "-DUSE_ATASMART:BOOL=ON")
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'create-init-scripts
;; CMakeLists.txt relies on build-time symptoms of OpenRC and
;; systemd to patch and install their service files. Fake their
;; presence rather than duplicating the build system below. Leave
;; things like ‘/bin/kill’ because they're not worth a dependency.
;; The sysvinit needs manual patching, but since upstream doesn't
;; even provide the option to install it: don't.
(lambda _
(substitute* "CMakeLists.txt"
(("pkg_check_modules\\((OPENRC|SYSTEMD) .*" _ package)
(format #f "option(~a_FOUND \"Faked\" ON)\n" package))
;; That was easy! Now we just need to fix the destinations.
(("/etc" directory)
(string-append #$output directory))))))))
(native-inputs
(list pkg-config))
(inputs