;;; 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)))
f7303f61d4f48e76927'>root</a>/<a href='/guix/log/gnu?id=693d75e859150601145b7f7303f61d4f48e76927'>gnu</a>/<a href='/guix/log/gnu/services?id=693d75e859150601145b7f7303f61d4f48e76927'>services</a>/<a href='/guix/log/gnu/services/mcron.scm?id=693d75e859150601145b7f7303f61d4f48e76927'>mcron.scm</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/gnu/services/mcron.scm?id=693d75e859150601145b7f7303f61d4f48e76927&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2021-06-14 18:35:17 +0200'>2021-06-14</span></td><td><a href='/guix/commit/gnu/services/mcron.scm?id=f70c3429ed0064eb4554722b4a60031385fd6785'>services: Remove deprecated service procedures.</a><span class='msg-avail'>...<span class='msg-tooltip'>These service procedures were deprecated in January 2019, for instance
in commit 65a67bf711b14bc7200f6730c0f173375ca12974.

* gnu/services/avahi.scm (avahi-service): Remove.
* gnu/services/base.scm (console-keymap, guix-service)
(guix-publish-service, gpm-service, urandom-seed-service): Remove.
* gnu/services/desktop.scm (upower-service, colord-service): Remove.
* gnu/services/mcron.scm (mcron-service): Remove.
* gnu/services/messaging.scm (bitlbee-service): Remove.
* gnu/services/networking.scm (dhcp-client-service, ntp-service)
(tor-service): Remove.
* gnu/services/xorg.scm (slim-service, gdm-service): Remove.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-08-26 15:30:04 +0200'>2020-08-26</span></td><td><a href='/guix/commit/gnu/services/mcron.scm?id=ef5ddb0e1715328713c2c9edad897f9a27de692f'>services: mcron: Validate jobs even in the presence of #:user.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes a bug in 949672c923b6a3953471c446e0b19f30be335572 whereby jobs
specifying a #:user not available in the build environment would fail
validation.

Reported by Maxim Cournoyer.

* gnu/services/mcron.scm (job-files)[validated-file]: Add "prologue"
file and pass it to 'mcron --schedule'.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-08-26 00:51:56 +0200'>2020-08-26</span></td><td><a href='/guix/commit/gnu/services/mcron.scm?id=949672c923b6a3953471c446e0b19f30be335572'>services: mcron: Validate jobs at build time.</a><span class='msg-avail'>...<span class='msg-tooltip'>That way, run-time errors in the job specs are caught at build time.

* gnu/services/mcron.scm (job-file): Remove.
(job-files): New procedure.
(mcron-shepherd-services): Adjust accordingly.
</span></span></td><td>Ludovic Courtès</td></tr>