diff options
Diffstat (limited to 'gnu')
-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))) |