From mboxrd@z Thu Jan 1 00:00:00 1970 From: Tobias Geerinckx-Rice Subject: [PATCH v2] gnu: Add freefall. Date: Wed, 16 Mar 2016 21:45:12 +0100 Message-ID: <1458161112-4726-1-git-send-email-tobias.geerinckx.rice@gmail.com> References: <20160316203446.3b746a89@debian-netbook> Mime-Version: 1.0 Content-Transfer-Encoding: 8bit Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:52930) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1agIJu-0002bQ-Ny for guix-devel@gnu.org; Wed, 16 Mar 2016 16:45:31 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1agIJq-00004v-Mu for guix-devel@gnu.org; Wed, 16 Mar 2016 16:45:30 -0400 Received: from mail-wm0-x244.google.com ([2a00:1450:400c:c09::244]:33912) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1agIJq-0008WN-GE for guix-devel@gnu.org; Wed, 16 Mar 2016 16:45:26 -0400 Received: by mail-wm0-x244.google.com with SMTP id p65so10990867wmp.1 for ; Wed, 16 Mar 2016 13:45:26 -0700 (PDT) In-Reply-To: <20160316203446.3b746a89@debian-netbook> 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-bounces+gcggd-guix-devel=m.gmane.org@gnu.org To: guix-devel@gnu.org * gnu/packages/linux.scm (freefall): New variable. --- Hullo all, Thanks for the feedback! I added an 'increase-timeout phase. Kind regards, T G-R gnu/packages/linux.scm | 32 ++++++++++++++++++++++++++++++++ 1 file changed, 32 insertions(+) diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm index a2412d0..a320c6b 100644 --- a/gnu/packages/linux.scm +++ b/gnu/packages/linux.scm @@ -2524,3 +2524,35 @@ easy administration.") ;; GPL2+: crc32.c, radix-tree.c, raid6.c, rbtree.c. ;; GPL2: Everything else. (license (list license:gpl2 license:gpl2+)))) + +(define-public freefall + (package + (name "freefall") + (version (package-version linux-libre)) + (source (package-source linux-libre)) + (build-system gnu-build-system) + (arguments + '(#:phases (modify-phases %standard-phases + (add-after 'unpack 'enter-subdirectory + (lambda _ + (chdir "tools/laptop/freefall"))) + (delete 'configure) + (add-before 'build 'increase-timeout + (lambda _ + ;; The default of 2 seconds is too low: it assumes an + ;; open lid and AC power without actually checking. + (substitute* "freefall.c" + (("alarm\\(2\\)") "alarm(5)"))))) + #:make-flags (list (string-append "PREFIX=" + (assoc-ref %outputs "out"))) + #:tests? #f)) ;no tests + (home-page (package-home-page linux-libre)) + (synopsis "Free-fall protection for spinning laptop hard drives") + (description + "Prevents shock damage to the internal spinning hard drive(s) of some +HP and Dell laptops. When sudden movement is detected, all input/output +operations on the drive are suspended and its heads are parked on the ramp, +where they are less likely to cause damage to the spinning 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))) -- 2.7.0