guix - Wojtek's customized Guix

about summary refs log tree commit diff

GNU Guix consists of Scheme code that implements the deployment model
of the Nix package management tool.  In fact, it currently talks to a
build daemon whose code comes from Nix (see the manual for details.)

Nix was initially written by Eelco Dolstra; other people have been
contributing to it.  See `nix/AUTHORS' for details.

The list of GNU Guix contributors is now generated from the output of
'git log' and written to this file, as can be seen in release tarballs.

with GNU Guix. If not, see <http://www.gnu.org/licenses/>. (define-module (gnu services lirc) #:use-module (gnu services) #:use-module (gnu services shepherd) #:use-module (gnu packages lirc) #:use-module (guix deprecation) #:use-module (guix gexp) #:use-module (guix records) #:use-module (ice-9 match) #:export (lirc-configuration lirc-configuation? lirc-service ; deprecated lirc-service-type)) ;;; Commentary: ;;; ;;; LIRC service. ;;; ;;; Code: (define-record-type* <lirc-configuration> lirc-configuration make-lirc-configuration lirc-configuation? (lirc lirc-configuration-lirc ;file-like (default lirc)) (device lirc-configuration-device ;string (default #f)) (driver lirc-configuration-driver ;string (default #f)) (config-file lirc-configuration-file ;string | file-like object (default #f)) (extra-options lirc-configuration-options ;list of strings (default '()))) (define %lirc-activation #~(begin (use-modules (guix build utils)) (mkdir-p "/var/run/lirc"))) (define lirc-shepherd-service (match-lambda (($ <lirc-configuration> lirc device driver config-file options) (list (shepherd-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) #~()) #$@options))) (stop #~(make-kill-destructor))))))) (define lirc-service-type (service-type (name 'lirc) (extensions (list (service-extension shepherd-root-service-type lirc-shepherd-service) (service-extension activation-service-type (const %lirc-activation)))) (description "Run LIRC, a daemon that decodes infrared signals from remote controls.") (default-value (lirc-configuration)))) (define-deprecated (lirc-service #:key (lirc lirc) device driver config-file (extra-options '())) lirc-service-type "Return a service that runs @url{http://www.lirc.org,LIRC}, a daemon that decodes infrared signals from remote controls. The daemon will use specified @var{device}, @var{driver} and @var{config-file} (configuration file name). Finally, @var{extra-options} is a list of additional command-line options passed to @command{lircd}." (service lirc-service-type (lirc-configuration (lirc lirc) (device device) (driver driver) (config-file config-file) (extra-options extra-options)))) ;;; lirc.scm ends here