Commit | Line | Data |
---|---|---|
aa4ed923 AK |
1 | ;;; GNU Guix --- Functional package management for GNU |
2 | ;;; Copyright © 2015 Alex Kost <alezost@gmail.com> | |
3 | ;;; | |
4 | ;;; This file is part of GNU Guix. | |
5 | ;;; | |
6 | ;;; GNU Guix is free software; you can redistribute it and/or modify it | |
7 | ;;; under the terms of the GNU General Public License as published by | |
8 | ;;; the Free Software Foundation; either version 3 of the License, or (at | |
9 | ;;; your option) any later version. | |
10 | ;;; | |
11 | ;;; GNU Guix is distributed in the hope that it will be useful, but | |
12 | ;;; WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 | ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
14 | ;;; GNU General Public License for more details. | |
15 | ;;; | |
16 | ;;; You should have received a copy of the GNU General Public License | |
17 | ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. | |
18 | ||
19 | (define-module (gnu services lirc) | |
20 | #:use-module (gnu services) | |
21 | #:use-module (gnu packages lirc) | |
22 | #:use-module (guix monads) | |
23 | #:use-module (guix store) | |
24 | #:use-module (guix gexp) | |
25 | #:export (lirc-service)) | |
26 | ||
27 | ;;; Commentary: | |
28 | ;;; | |
29 | ;;; LIRC services. | |
30 | ;;; | |
31 | ;;; Code: | |
32 | ||
33 | (define* (lirc-service #:key (lirc lirc) | |
34 | device driver config-file | |
35 | (extra-options '())) | |
36 | "Return a service that runs @url{http://www.lirc.org,LIRC}, a daemon that | |
37 | decodes infrared signals from remote controls. | |
38 | ||
39 | The daemon will use specified @var{device}, @var{driver} and | |
40 | @var{config-file} (configuration file name). | |
41 | ||
42 | Finally, @var{extra-options} is a list of additional command-line options | |
43 | passed to @command{lircd}." | |
44 | (with-monad %store-monad | |
45 | (return | |
46 | (service | |
47 | (provision '(lircd)) | |
48 | (documentation "Run the LIRC daemon.") | |
49 | (requirement '(user-processes)) | |
50 | (start #~(make-forkexec-constructor | |
51 | (list (string-append #$lirc "/sbin/lircd") | |
52 | "--nodaemon" | |
53 | #$@(if device | |
54 | #~("--device" #$device) | |
55 | #~()) | |
56 | #$@(if driver | |
57 | #~("--driver" #$driver) | |
58 | #~()) | |
59 | #$@(if config-file | |
60 | #~(#$config-file) | |
61 | #~()) | |
62 | #$@extra-options))) | |
63 | (stop #~(make-kill-destructor)) | |
64 | (activate #~(begin | |
65 | (use-modules (guix build utils)) | |
66 | (mkdir-p "/var/run/lirc"))))))) | |
67 | ||
68 | ;;; lirc.scm ends here |