me/guix
Archived
1
0
Fork 0
Code Activity

services: lirc: Deprecate 'lirc-service' procedure.

Browse source 
* doc/guix.texi (Miscellaneous Services): Replace 'lirc-service' with 'lirc-service-type'.
Document <lirc-configuration>.
* gnu/services/lirc.scm (<lirc-configuration>): Set default values based on
the arguments from the now deprecated 'lirc-service' procedure.
(lirc-service-type): Set default value.
(lirc-service): Deprecate procedure.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Bruno Victal 2023-02-25 18:58:10 +00:00 • committed by Ludovic Courtès
parent eddd9b1240
commit e24555234a
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 39 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

40
doc/guix.texi
View file

@ -37726,24 +37726,38 @@ under @file{pcsc/drivers} in the store directory of the package.
@end table @end table
@end deftp @end deftp
@cindex lirc @cindex LIRC
@subsubheading Lirc Service @subsubheading LIRC Service
The @code{(gnu services lirc)} module provides the following service. The @code{(gnu services lirc)} module provides the following service.
@deffn {Scheme Procedure} lirc-service [#:lirc lirc] @ @defvar lirc-service-type
[#:device #f] [#:driver #f] [#:config-file #f] @ Type for a service that runs @url{http://www.lirc.org, LIRC}, a daemon
[#:extra-options '()] that decodes infrared signals from remote controls.
Return a service that runs @url{http://www.lirc.org,LIRC}, a daemon that
decodes infrared signals from remote controls.
Optionally, @var{device}, @var{driver} and @var{config-file} The value for this service is a @code{<lirc-configuration>} object.
(configuration file name) may be specified. See @command{lircd} manual @end defvar
for details.
Finally, @var{extra-options} is a list of additional command-line options @deftp {Data Type} lirc-configuration
passed to @command{lircd}. Data type representing the configuration of @command{lircd}.
@end deffn
@table @asis
@item @code{lirc} (default: @code{lirc}) (type: file-like)
Package object for @command{lirc}.
@item @code{device} (default: @code{#f}) (type: string)
@itemx @code{driver} (default: @code{#f}) (type: string)
@itemx @code{config-file} (default: @code{#f}) (type: string-or-file-like)
TODO. See @command{lircd} manual for details.
@item @code{extra-options} (default: @code{'()}) (type: list-of-string)
Additional command-line options to pass to @command{lircd}.
@end table
@end deftp
@c TODO: Document <lirc-configuration>, preferably by refactoring this to use
@c define-configuration and generating documentation from it.
@cindex spice @cindex spice
@subsubheading Spice Service @subsubheading Spice Service

18
gnu/services/lirc.scm
View file

@ -21,12 +21,13 @@
#:use-module (gnu services) #:use-module (gnu services)
#:use-module (gnu services shepherd) #:use-module (gnu services shepherd)
#:use-module (gnu packages lirc) #:use-module (gnu packages lirc)
#:use-module (guix deprecation)
#:use-module (guix gexp) #:use-module (guix gexp)
#:use-module (guix records) #:use-module (guix records)
#:use-module (ice-9 match) #:use-module (ice-9 match)
#:export (lirc-configuration #:export (lirc-configuration
lirc-configuation? lirc-configuation?
lirc-service lirc-service ; deprecated
lirc-service-type)) lirc-service-type))
;;; Commentary: ;;; Commentary:
@ -40,9 +41,12 @@
lirc-configuation? lirc-configuation?
(lirc lirc-configuration-lirc ;file-like (lirc lirc-configuration-lirc ;file-like
(default lirc)) (default lirc))
(device lirc-configuration-device) ;string (device lirc-configuration-device ;string
(driver lirc-configuration-driver) ;string (default #f))
(config-file lirc-configuration-file) ;string | file-like object (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 (extra-options lirc-configuration-options ;list of strings
(default '()))) (default '())))
@ -81,11 +85,13 @@
(service-extension activation-service-type (service-extension activation-service-type
(const %lirc-activation)))) (const %lirc-activation))))
(description "Run LIRC, a daemon that decodes infrared signals (description "Run LIRC, a daemon that decodes infrared signals
from remote controls."))) from remote controls.")
(default-value (lirc-configuration))))
(define* (lirc-service #:key (lirc lirc) (define-deprecated (lirc-service #:key (lirc lirc)
device driver config-file device driver config-file
(extra-options '())) (extra-options '()))
lirc-service-type
"Return a service that runs @url{http://www.lirc.org,LIRC}, a daemon that "Return a service that runs @url{http://www.lirc.org,LIRC}, a daemon that
decodes infrared signals from remote controls. decodes infrared signals from remote controls.