;;; 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 python-xyz)
  #: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
       #:tests? #f))                         ;no tests
    (inputs
     `(("python2-xlib" ,python2-xlib)
       ("python2-pygtk" ,python2-pygtk)
       ("python2-rsvg" ,python2-rsvg)))
    (home-page "https://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)))
rm>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=7432b922efa0e9b633a05bd52644ee00ebd58d9f'>root</a>/<a href='/guix/log/tests?id=7432b922efa0e9b633a05bd52644ee00ebd58d9f'>tests</a>/<a href='/guix/log/tests/guix-shell-export-manifest.sh?id=7432b922efa0e9b633a05bd52644ee00ebd58d9f'>guix-shell-export-manifest.sh</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/tests/guix-shell-export-manifest.sh?id=7432b922efa0e9b633a05bd52644ee00ebd58d9f&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2022-06-16 23:57:40 +0200'>2022-06-16</span></td><td><a href='/guix/commit/tests/guix-shell-export-manifest.sh?id=925a57c5d04553ff6c514867348e7d3c5c22ca66'>shell: Fix '--export-manifest' for cached profiles and when '-p' is used.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes &lt;https://issues.guix.gnu.org/55521&gt;.

* guix/scripts/shell.scm (export-manifest): When computing 'manifest',
honor the 'profile key.
* tests/guix-shell-export-manifest.sh: Add test.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-06-01 22:22:19 +0200'>2022-06-01</span></td><td><a href='/guix/commit/tests/guix-shell-export-manifest.sh?id=2acc83daa5a3dd1b4ed3f8c32ecadf1313e6fd18'>shell: '--export-manifest -D x -D y' generates a valid manifest.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/scripts/shell.scm (manifest-&gt;code*): Add missing 'list' in
generated 'concatenate-manifests' call.
* tests/guix-shell-export-manifest.sh: Add test.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-04-08 18:14:35 +0200'>2022-04-08</span></td><td><a href='/guix/commit/tests/guix-shell-export-manifest.sh?id=20691c70cf2c5a61af7f906b65d57a524ecfc4f3'>tests: 'guix shell --export-manifest' test no longer needs networking.</a><span class='msg-avail'>...<span class='msg-tooltip'>* tests/guix-shell-export-manifest.sh: Use '--with-input' rather than
'--with-latest' as the latter would crash in the absence of network
access.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-04-04 22:58:04 +0200'>2022-04-04</span></td><td><a href='/guix/commit/tests/guix-shell-export-manifest.sh?id=c42b7baf13c7633b4512e94da7445299c57b247d'>shell: Add '--export-manifest'.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/scripts/shell.scm (show-help, %options): Add '--export-manifest'.
(manifest-entry-version-prefix, manifest-&gt;code*)
(export-manifest): New procedures.
(guix-shell): Honor '--export-manifest'.
* tests/guix-shell-export-manifest.sh: New file.
* Makefile.am (SH_TESTS): Add it.
* doc/guix.texi (Invoking guix shell): Document '--export-manifest'.
(Invoking guix environment): Link to it.
(Invoking guix pack): Likewise.
</span></span></td><td>Ludovic Courtès</td></tr>