From mboxrd@z Thu Jan 1 00:00:00 1970 From: Nicolas Goaziou Subject: Re: [PATCH] Add thinkfan. Date: Sat, 07 May 2016 01:42:22 +0200 Message-ID: <87mvo2bvoh.fsf@saiph.selenimh> References: <87mvoay9wo.fsf@saiph.selenimh> <20160501211418.GA10221@jasmine> <877ffalrj3.fsf@saiph.selenimh> <20160506181314.GB2123@jasmine> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:45101) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aypOU-0003dE-Us for guix-devel@gnu.org; Fri, 06 May 2016 19:42:57 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1aypOI-0007hZ-SC for guix-devel@gnu.org; Fri, 06 May 2016 19:42:45 -0400 Received: from relay4-d.mail.gandi.net ([217.70.183.196]:43649) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aypOI-0007fj-Lb for guix-devel@gnu.org; Fri, 06 May 2016 19:42:38 -0400 In-Reply-To: <20160506181314.GB2123@jasmine> (Leo Famulari's message of "Fri, 6 May 2016 14:13:14 -0400") List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: "Guix-devel" To: Leo Famulari Cc: guix-devel@gnu.org --=-=-= Content-Type: text/plain Hello, Leo Famulari writes: > Looks good! But I noticed they *just* released a new version. Can you > take a look and submit a patch with that version if it works for you? Here it is. Regards, -- Nicolas Goaziou 0x80A93738 --=-=-= Content-Type: text/x-diff; charset=utf-8 Content-Disposition: attachment; filename=0001-gnu-Add-thinkfan.patch Content-Transfer-Encoding: quoted-printable Content-Description: add thinkfan (take 3) >From 9c82df26841b281fc9eeb751db76871e31c94339 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sat, 30 Apr 2016 10:31:13 +0200 Subject: [PATCH] gnu: Add thinkfan. * gnu/packages/linux.scm (thinkfan): New variable. --- gnu/packages/linux.scm | 52 ++++++++++++++++++++++++++++++++++++++++++++++= ++++ 1 file changed, 52 insertions(+) diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm index e80c900..fcea499 100644 --- a/gnu/packages/linux.scm +++ b/gnu/packages/linux.scm @@ -11,6 +11,7 @@ ;;; Copyright =C2=A9 2016 Alex Kost ;;; Copyright =C2=A9 2016 Raymond Nicholson ;;; Copyright =C2=A9 2016 Mathieu Lirzin +;;; Copyright =C2=A9 2016 Nicolas Goaziou ;;; ;;; This file is part of GNU Guix. ;;; @@ -63,6 +64,7 @@ #:use-module (gnu packages readline) #:use-module (gnu packages calendar) #:use-module (gnu packages tls) + #:use-module (gnu packages freedesktop) #:use-module (guix packages) #:use-module (guix download) #:use-module (guix utils) @@ -2591,3 +2593,53 @@ where they are less likely to cause damage to the sp= inning disc. Requires a drive that supports the ATA/ATAPI-7 IDLE IMMEDIATE command with unload feature, and a laptop with an accelerometer. It has no effect on SSDs.") (license license:gpl2))) + +(define-public thinkfan + (package + (name "thinkfan") + (version "0.9.3") + (source (origin + (method url-fetch) + (uri (string-append "mirror://sourceforge/thinkfan/" + version "/thinkfan-" version ".tar.gz")) + (sha256 + (base32 + "0nz4c48f0i0dljpk5y33c188dnnwg8gz82s4grfl8l64jr4n675n")) + (modules '((guix build utils))) + ;; Fix erroneous man page location in Makefile leading to + ;; a compilation failure. + (snippet + '(substitute* "CMakeLists.txt" + (("thinkfan\\.1") "src/thinkfan.1"))))) + (build-system cmake-build-system) + (arguments + `(#: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. + `("-DUSE_ATASMART:BOOL=3DON") + #:phases + (modify-phases %standard-phases + ;; Install scripts for various foreign init systems. + (add-after 'install 'install-rc-scripts + (lambda* (#:key outputs #:allow-other-keys) + (for-each (cute install-file <> + (string-append (assoc-ref outputs "out") + "/share/thinkfan")) + (find-files (string-append "../thinkfan-" ,version + "/rcscripts") + ".*")) + #t))))) + (inputs + `(("libatasmart" ,libatasmart))) + (home-page "http://thinkfan.sourceforge.net/") + (synopsis "Simple fan control program") + (description + "Thinkfan is a simple fan control program. It reads temperatures, +checks them against configured limits and switches to appropriate (also +pre-configured) fan level. It requires a working @code{thinkpad_acpi} or = any +other @code{hwmon} driver that enables temperature reading and fan control +from userspace.") + (license license:gpl3+))) --=20 2.7.4 --=-=-=--