diff options
author | Ludovic Courtès <ludo@gnu.org> | 2015-03-17 11:43:35 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2015-03-17 13:49:18 +0100 |
commit | b832c6e992028ce40dfae95bafc36a4f59149a82 (patch) | |
tree | f407c19e434bfd8f82899ccc8b0ada828c6050ea /gnu/packages | |
parent | 619936a4c81d524ddcd26a6fca34d51617b4b477 (diff) | |
download | guix-b832c6e992028ce40dfae95bafc36a4f59149a82.tar guix-b832c6e992028ce40dfae95bafc36a4f59149a82.tar.gz |
gnu: Add key-mon.
* gnu/packages/key-mon.scm: New file.
* gnu-system.am (GNU_SYSTEM_MODULES): Add it.
Diffstat (limited to 'gnu/packages')
-rw-r--r-- | gnu/packages/key-mon.scm | 69 |
1 files changed, 69 insertions, 0 deletions
diff --git a/gnu/packages/key-mon.scm b/gnu/packages/key-mon.scm new file mode 100644 index 0000000000..d29f30258d --- /dev/null +++ b/gnu/packages/key-mon.scm @@ -0,0 +1,69 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2015 Ludovic Courtès <ludo@gnu.org> +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (gnu packages key-mon) + #:use-module (guix licenses) + #:use-module (guix packages) + #:use-module (guix download) + #:use-module (gnu packages) + #:use-module (gnu packages python) + #:use-module (gnu packages gtk) + #:use-module (gnu packages gnome) + #:use-module (guix build-system python)) + +(define-public key-mon + (package + (name "key-mon") + (version "1.17") + (source (origin + (method url-fetch) + (uri (string-append + "http://key-mon.googlecode.com/files/key-mon-" + version ".tar.gz")) + (sha256 + (base32 + "1liz0dxcqmchbnl1xhlxkqm3gh76wz9jxdxn9pa7dy77fnrjkl5q")))) + (build-system python-build-system) + (arguments + `(#:python ,python-2 ;uses the Python 2 'print' syntax + #:phases (modify-phases %standard-phases + (add-after install wrap + (lambda* (#:key inputs outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (bin (string-append out "/bin")) + (rsvg (assoc-ref inputs "librsvg")) + (pixbuf (find-files + rsvg "^loaders\\.cache$"))) + ;; Allow key-mon to load SVGs. + (wrap-program (string-append bin "/key-mon") + `("GDK_PIXBUF_MODULE_FILE" ":" + prefix ,pixbuf)))))) + #:tests? #f)) ;no tests + (native-inputs + `(("python2-setuptools" ,python2-setuptools))) + (propagated-inputs + `(("python2-xlib" ,python2-xlib) + ("python2-pygtk" ,python2-pygtk) + ("librsvg" ,librsvg) + ("python2-rsvg" ,python2-rsvg))) + (home-page "http://code.google.com/p/key-mon") + (synopsis "Show keyboard and mouse status") + (description + "The key-mon utility displays the current keyboard and mouse status. +This is useful for teaching and screencasts.") + (license asl2.0))) |