From mboxrd@z Thu Jan 1 00:00:00 1970 From: Alex Kost Subject: Re: [PATCH 2/2] services: Add 'lirc-service'. Date: Tue, 24 Mar 2015 22:39:12 +0300 Message-ID: <878uem5gnz.fsf@gmail.com> References: <87pp81875x.fsf@gmail.com> <87h9tahi2h.fsf@gnu.org> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:34818) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YaUfX-00088r-5Y for guix-devel@gnu.org; Tue, 24 Mar 2015 15:39:21 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1YaUfT-0002F6-Tz for guix-devel@gnu.org; Tue, 24 Mar 2015 15:39:19 -0400 In-Reply-To: <87h9tahi2h.fsf@gnu.org> ("Ludovic \=\?utf-8\?Q\?Court\=C3\=A8s\=22'\?\= \=\?utf-8\?Q\?s\?\= message of "Tue, 24 Mar 2015 10:15:50 +0100") List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org To: Ludovic =?utf-8?Q?Court=C3=A8s?= Cc: guix-devel@gnu.org --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Ludovic Court=C3=A8s (2015-03-24 10:15 +0100) wrote: > Alex Kost skribis: > >> From 3b7641e31cefca68a6d477d14e0f3b3da1610e53 Mon Sep 17 00:00:00 2001 >> From: Alex Kost >> Date: Sun, 22 Mar 2015 16:33:17 +0300 >> Subject: [PATCH 2/2] services: Add 'lirc-service'. >> >> * gnu/services/lirc.scm: New file. >> * gnu-system.am (GNU_SYSTEM_MODULES): Add it. > > LGTM. Could you add the documentation under =E2=80=9CServices=E2=80=9D i= n the manual > (maybe create a =E2=80=9CVarious Services=E2=80=9D subsection or somethin= g like that.) OK, the updated patch (with the documentation) is attached. --=-=-= Content-Type: text/x-diff; charset=utf-8 Content-Disposition: attachment; filename=0002-services-Add-lirc-service.patch Content-Transfer-Encoding: quoted-printable >From 6338f01cf706a755632b0647d3e0b41062c070a1 Mon Sep 17 00:00:00 2001 From: Alex Kost Date: Sun, 22 Mar 2015 16:33:17 +0300 Subject: [PATCH 2/2] services: Add 'lirc-service'. * gnu/services/lirc.scm: New file. * gnu-system.am (GNU_SYSTEM_MODULES): Add it. * doc/guix.texi (Various Services): New node. Document 'lirc-service'. --- doc/guix.texi | 21 ++++++++++++++++ gnu-system.am | 1 + gnu/services/lirc.scm | 68 +++++++++++++++++++++++++++++++++++++++++++++++= ++++ 3 files changed, 90 insertions(+) create mode 100644 gnu/services/lirc.scm diff --git a/doc/guix.texi b/doc/guix.texi index 1736503..e9f95a0 100644 --- a/doc/guix.texi +++ b/doc/guix.texi @@ -154,6 +154,7 @@ Services * Base Services:: Essential system services. * Networking Services:: Network setup, SSH daemon, etc. * X Window:: Graphical display. +* Various Services:: Other services. =20 Packaging Guidelines =20 @@ -4350,6 +4351,7 @@ declaration. * Base Services:: Essential system services. * Networking Services:: Network setup, SSH daemon, etc. * X Window:: Graphical display. +* Various Services:: Other services. @end menu =20 @node Base Services @@ -4686,6 +4688,25 @@ appropriate screen resolution; otherwise, it must be= a list of resolutions---e.g., @code{((1024 768) (640 480))}. @end deffn =20 +@node Various Services +@subsubsection Various Services + +The @code{(gnu services lirc)} module provides the following service. + +@deffn {Monadic Procedure} lirc-service [#:lirc lirc] @ + [#:device #f] [#:driver #f] [#:config-file #f] @ + [#:extra-options '()] +Return a service that runs @url{http://www.lirc.org,LIRC}, a daemon that +decodes IR signals from remote controls. + +Optionally, @var{device}, @var{driver} and @var{config-file} (a path to +configuration file) may be specified. See @command{lircd} manual for +details. + +Finally, @var{extra-options} is a list of additional command-line options +passed to @command{lircd}. +@end deffn + @node Setuid Programs @subsection Setuid Programs =20 diff --git a/gnu-system.am b/gnu-system.am index c8c51f1..49c098e 100644 --- a/gnu-system.am +++ b/gnu-system.am @@ -323,6 +323,7 @@ GNU_SYSTEM_MODULES =3D \ gnu/services/base.scm \ gnu/services/dbus.scm \ gnu/services/dmd.scm \ + gnu/services/lirc.scm \ gnu/services/networking.scm \ gnu/services/ssh.scm \ gnu/services/xorg.scm \ diff --git a/gnu/services/lirc.scm b/gnu/services/lirc.scm new file mode 100644 index 0000000..03f3709 --- /dev/null +++ b/gnu/services/lirc.scm @@ -0,0 +1,68 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright =C2=A9 2015 Alex Kost +;;; +;;; 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 . + +(define-module (gnu services lirc) + #:use-module (gnu services) + #:use-module (gnu packages lirc) + #:use-module (guix monads) + #:use-module (guix store) + #:use-module (guix gexp) + #:export (lirc-service)) + +;;; Commentary: +;;; +;;; LIRC services. +;;; +;;; Code: + +(define* (lirc-service #:key (lirc lirc) + device driver config-file + (extra-options '())) + "Return a service that runs @url{http://www.lirc.org,LIRC}, a daemon that +decodes IR signals from remote controls. + +The daemon will use specified @var{device}, @var{driver} and +@var{config-file} (a path to configuration file). + +Finally, @var{extra-options} is a list of additional command-line options +passed to @command{lircd}." + (with-monad %store-monad + (return + (service + (provision '(lircd)) + (documentation "Run the LIRC daemon.") + (requirement '(user-processes)) + (start #~(make-forkexec-constructor + (list (string-append #$lirc "/sbin/lircd") + "--nodaemon" + #$@(if device + #~("--device" #$device) + #~()) + #$@(if driver + #~("--driver" #$driver) + #~()) + #$@(if config-file + #~(#$config-file) + #~()) + #$@extra-options))) + (stop #~(make-kill-destructor)) + (activate #~(begin + (use-modules (guix build utils)) + (mkdir-p "/var/run/lirc"))))))) + +;;; lirc.scm ends here --=20 2.3.2 --=-=-=--