services: dict: Deprecate 'dicod-service' procedure.

* doc/guix.texi (Miscellaneous Services): Remove 'dicod-service' mention.
* gnu/services/dict.scm (dicod-service): Deprecate procedure.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Bruno Victal 2023-03-05 00:48:23 +00:00 committed by Ludovic Courtès
parent 511ae8325d
commit 20aa4c30fb
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
2 changed files with 22 additions and 26 deletions

View File

@ -37850,25 +37850,17 @@ If true, this must be the name of a file to log messages to.
@subsubheading Dictionary Service
@cindex dictionary
The @code{(gnu services dict)} module provides the following service:
@defvar dicod-service-type
This is the type of the service that runs the @command{dicod} daemon, an
implementation of DICT server (@pxref{Dicod,,, dico, GNU Dico Manual}).
@end defvar
@deffn {Scheme Procedure} dicod-service [#:config (dicod-configuration)]
Return a service that runs the @command{dicod} daemon, an implementation
of DICT server (@pxref{Dicod,,, dico, GNU Dico Manual}).
The optional @var{config} argument specifies the configuration for
@command{dicod}, which should be a @code{<dicod-configuration>} object, by
default it serves the GNU Collaborative International Dictionary of English.
You can add @command{open localhost} to your @file{~/.dico} file to make
@code{localhost} the default server for @command{dico} client
(@pxref{Initialization File,,, dico, GNU Dico Manual}).
@end deffn
@end defvar
@deftp {Data Type} dicod-configuration
Data type representing the configuration of dicod.
@ -37933,17 +37925,19 @@ A @code{<dicod-database>} object serving the GNU Collaborative International
Dictionary of English using the @code{gcide} package.
@end defvar
The following is an example @code{dicod-service} configuration.
The following is an example @code{dicod-service-type} configuration.
@lisp
(dicod-service #:config
(service dicod-service-type
(dicod-configuration
(handlers (list (dicod-handler
(handlers (list
(dicod-handler
(name "wordnet")
(module "dictorg")
(options
(list #~(string-append "dbdir=" #$wordnet))))))
(databases (list (dicod-database
(databases (list
(dicod-database
(name "wordnet")
(complex? #t)
(handler "wordnet")

View File

@ -19,6 +19,7 @@
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu services dict)
#:use-module (guix deprecation)
#:use-module (guix gexp)
#:use-module (guix records)
#:use-module (guix modules)
@ -34,7 +35,7 @@
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-26)
#:use-module (ice-9 match)
#:export (dicod-service
#:export (dicod-service ; deprecated
dicod-service-type
dicod-configuration
dicod-handler
@ -202,7 +203,8 @@ database {
implements the standard DICT protocol supported by clients such as
@command{dico} and GNOME Dictionary.")))
(define* (dicod-service #:key (config (dicod-configuration)))
(define-deprecated (dicod-service #:key (config (dicod-configuration)))
dicod-service-type
"Return a service that runs the @command{dicod} daemon, an implementation
of DICT server (@pxref{Dicod,,, dico, GNU Dico Manual}).