Re: [PATCH] gnu: Add xcape.

[David Thompson]

Axel <address@hidden> writes:

> Xcape allows to use modifier key as another key when pressed and
> released on its own.
>
> -- 
> Александр Графов

> From 0ad9b0eea2cd6151072d27f5e2505db9db083b37 Mon Sep 17 00:00:00 2001
> From: "Alexander I.Grafov (Axel)" <address@hidden>
> Date: Sun, 15 Mar 2015 20:01:03 +0300
> Subject: [PATCH] gnu: Add xcape.
> 
> * gnu/packages/xdisorg.scm (xcape): New variable.
> ---
>  gnu/packages/xdisorg.scm | 42 ++++++++++++++++++++++++++++++++++++++++++
>  1 file changed, 42 insertions(+)
> 
> diff --git a/gnu/packages/xdisorg.scm b/gnu/packages/xdisorg.scm
> index fbf1bbf..03f8186 100644
> --- a/gnu/packages/xdisorg.scm
> +++ b/gnu/packages/xdisorg.scm
> @@ -486,3 +486,45 @@ unicode, XFT and may be extended with Perl plugins.  It 
> also comes with a
>  client/daemon pair that lets you open any number of terminal windows from
>  within a single process.")
>      (license license:gpl3+)))
> +
> +(define-public xcape
> +  (package
> +    (name "xcape")
> +    (version "1.1")
> +    (source
> +      (origin
> +        (method url-fetch)
> +        (uri (string-append
> +              "https://github.com/alols/";
> +              name
> +              "/archive/v"
> +              version
> +              ".tar.gz"))

It's a matter of preference, but we typically put multiple arguments on
the same line and break when we would go over 80 characters.

> +        (sha256
> +          (base32
> +            "0jkdiaxc6sryrbibdgi2y1c48n4l9xyazhxr16l6h4ibddx95bk9"))))
> +    (build-system gnu-build-system)
> +    (arguments
> +     `(#:tests? #f ; no test target
> +       #:phases (alist-replace
> +                 'configure
> +                 (let ((out (assoc-ref %outputs "out")))
> +                   (lambda _
> +                     (substitute* "Makefile"
> +                       (("(PREFIX[[:blank:]]*=.*)")
> +                        (string-append "CC:=gcc\nPREFIX=" out "\n"))
> +                       (("(MANDIR.*=.*)")
> +                        (string-append "MANDIR=/share/man/man1\n")))))
> +                 %standard-phases)))
> +    (inputs
> +     `(("libXtst" ,libxtst)
> +       ("libX11" ,libx11)))

Use a lowercase "x", to match the package names.

> +    (native-inputs
> +     `(("pkg-config" ,pkg-config)))
> +    (home-page "http://github.com/alols/xcape";)
> +    (synopsis "Use a modifier key in X.org as another key")
> +    (description
> +     "This utility for X.org allows to use modifier key as another key when
> +pressed and released on its own.  The default behaviour is to generate
> +the Escape key when Left Control is pressed and released on its own.")
> +    (license license:gpl3+)))
> -- 
> 2.2.1

Looking good.  Thanks!

-- 
David Thompson
Web Developer - Free Software Foundation - http://fsf.org
GPG Key: 0FF1D807
Support the FSF: https://fsf.org/donate