gnu: thinkfan: Update to 1.0.2.

* gnu/packages/linux.scm (thinkfan): Update to 1.0.2.
[arguments]: Adjust source directory.
This commit is contained in:
Tobias Geerinckx-Rice 2019-03-05 16:21:45 +01:00
parent 9eb7cde0e8
commit 9a3d176ee1
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 19 additions and 20 deletions

View File

@ -98,6 +98,7 @@
#:use-module (gnu packages readline) #:use-module (gnu packages readline)
#:use-module (gnu packages rrdtool) #:use-module (gnu packages rrdtool)
#:use-module (gnu packages samba) #:use-module (gnu packages samba)
#:use-module (gnu packages serialization)
#:use-module (gnu packages slang) #:use-module (gnu packages slang)
#:use-module (gnu packages storage) #:use-module (gnu packages storage)
#:use-module (gnu packages texinfo) #:use-module (gnu packages texinfo)
@ -3483,29 +3484,26 @@ feature, and a laptop with an accelerometer. It has no effect on SSDs.")
(define-public thinkfan (define-public thinkfan
(package (package
(name "thinkfan") (name "thinkfan")
(version "0.9.3") (version "1.0.2")
(source (origin (source
(method url-fetch) (origin
(uri (string-append "mirror://sourceforge/thinkfan/" (method git-fetch)
"/thinkfan-" version ".tar.gz")) (uri (git-reference
(sha256 (url "https://github.com/vmatare/thinkfan.git")
(base32 (commit version)))
"0nz4c48f0i0dljpk5y33c188dnnwg8gz82s4grfl8l64jr4n675n")) (file-name (git-file-name name version))
(modules '((guix build utils))) (sha256
;; Fix erroneous man page location in Makefile leading to (base32 "107vw0962hrwva3wra9n3hxlbfzg82ldc10qssv3dspja88g8psr"))))
;; a compilation failure.
(snippet '(begin
(substitute* "CMakeLists.txt"
(("thinkfan\\.1") "src/thinkfan.1"))
#t))))
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments (arguments
`(#:modules ((guix build cmake-build-system) `(#:modules ((guix build cmake-build-system)
(guix build utils) (guix build utils)
(srfi srfi-26)) (srfi srfi-26))
#:tests? #f ;no test target #:tests? #f ; no test target
#:configure-flags #:configure-flags
;; Enable reading temperatures from hard disks via S.M.A.R.T. ;; 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") `("-DUSE_ATASMART:BOOL=ON")
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
@ -3514,9 +3512,7 @@ feature, and a laptop with an accelerometer. It has no effect on SSDs.")
(add-after 'install 'install-rc-scripts (add-after 'install 'install-rc-scripts
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")) (let ((out (assoc-ref outputs "out"))
(files (find-files (files (find-files "../source/rcscripts" ".*")))
(string-append "../thinkfan-" ,version "/rcscripts")
".*")))
(substitute* files (substitute* files
(("/usr/sbin/(\\$NAME|thinkfan)" _ name) (("/usr/sbin/(\\$NAME|thinkfan)" _ name)
(string-append out "/sbin/" name))) (string-append out "/sbin/" name)))
@ -3524,8 +3520,11 @@ feature, and a laptop with an accelerometer. It has no effect on SSDs.")
(string-append out "/share/thinkfan")) (string-append out "/share/thinkfan"))
files)) files))
#t))))) #t)))))
(native-inputs
`(("pkg-config" ,pkg-config)))
(inputs (inputs
`(("libatasmart" ,libatasmart))) `(("libatasmart" ,libatasmart)
("yaml-cpp" ,yaml-cpp)))
(home-page "http://thinkfan.sourceforge.net/") (home-page "http://thinkfan.sourceforge.net/")
(synopsis "Simple fan control program") (synopsis "Simple fan control program")
(description (description