From mboxrd@z Thu Jan 1 00:00:00 1970 From: Leo Famulari Subject: Re: [PATCH] gnu: Add freefall. Date: Wed, 16 Mar 2016 02:47:47 -0400 Message-ID: <20160316064747.GA30457@jasmine> References: <1458099269-19695-1-git-send-email-tobias.geerinckx.rice@gmail.com> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:56040) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ag5FG-00062S-ND for guix-devel@gnu.org; Wed, 16 Mar 2016 02:47:51 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ag5FD-0004p2-HA for guix-devel@gnu.org; Wed, 16 Mar 2016 02:47:50 -0400 Received: from out3-smtp.messagingengine.com ([66.111.4.27]:54134) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ag5FD-0004oy-DB for guix-devel@gnu.org; Wed, 16 Mar 2016 02:47:47 -0400 Received: from compute4.internal (compute4.nyi.internal [10.202.2.44]) by mailout.nyi.internal (Postfix) with ESMTP id 38A8B24441 for ; Wed, 16 Mar 2016 02:47:47 -0400 (EDT) Content-Disposition: inline In-Reply-To: <1458099269-19695-1-git-send-email-tobias.geerinckx.rice@gmail.com> 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: Tobias Geerinckx-Rice Cc: guix-devel@gnu.org On Wed, Mar 16, 2016 at 04:34:29AM +0100, Tobias Geerinckx-Rice wrote: > * gnu/packages/linux.scm (freefall): New variable. Looks good! Do you think we should change the 'alarm' value as in the Nix package? > --- > > 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 :-( > >