From mboxrd@z Thu Jan 1 00:00:00 1970 From: Tobias Geerinckx-Rice Subject: [PATCH] gnu: Add freefall. Date: Wed, 16 Mar 2016 04:34:29 +0100 Message-ID: <1458099269-19695-1-git-send-email-tobias.geerinckx.rice@gmail.com> Mime-Version: 1.0 Content-Transfer-Encoding: 8bit Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:48433) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ag2Ei-000866-3X for guix-devel@gnu.org; Tue, 15 Mar 2016 23:35:04 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ag2Ef-0000Zd-EX for guix-devel@gnu.org; Tue, 15 Mar 2016 23:35:04 -0400 Received: from mail-wm0-x236.google.com ([2a00:1450:400c:c09::236]:36287) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ag2Ef-0000ZV-7a for guix-devel@gnu.org; Tue, 15 Mar 2016 23:35:01 -0400 Received: by mail-wm0-x236.google.com with SMTP id l124so32986943wmf.1 for ; Tue, 15 Mar 2016 20:35:00 -0700 (PDT) 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. --- A little example-cum-useful-tool included in the Linux tree. Regards, T G-R gnu/packages/linux.scm | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm index a2412d0..09c0c7e 100644 --- a/gnu/packages/linux.scm +++ b/gnu/packages/linux.scm @@ -2524,3 +2524,29 @@ 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)) + #: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 :-(