Re: [PATCH] gnu: Add freefall.

[Leo Famulari <leo@famulari.name>]

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 :-(
> 
>