1 files changed, 0 insertions, 97 deletions
diff --git a/whispers/services/dict.scm b/whispers/services/dict.scm
index 10bbcbd..9798d88 100644
--- a/whispers/services/dict.scm
+++ b/whispers/services/dict.scm
@@ -22,8 +22,6 @@
   #:use-module (whispers packages dict)
   #:use-module (gnu packages dictionaries)
   #:export (%dictorg-handler
-            freedict-dictorg-database
-            %freedict-dictorg-databases
             %cedict-dictorg-databases))
 
 (define %dictorg-handler
@@ -31,101 +29,6 @@
                  (module "dictorg")
                  (options (list #~(string-append "dbdir=/")))))
 
-(define (freedict-dictorg-database dict-name)
-  "Return a record of type @code{<dicod-database>} that configures a
-database for the freedict multilingual dictionary named by the string
-DICT-NAME."
-  (dicod-database (name (string-append "freedict-"
-                                       dict-name))
-                  (complex? #t)
-                  (handler "dictorg")
-                  (options (list #~(string-append "database="
-                                                  #$freedict-dictionaries
-                                                  "/share/dictd/"
-                                                  #$dict-name)))))
-(define %freedict-dictorg-databases
-  (map freedict-dictorg-database (list "afr-deu"
-                                       "afr-eng"
-                                       "ara-eng"
-                                       "bre-fra"
-                                       "ces-eng"
-                                       "ckb-kmr"
-                                       "cym-eng"
-                                       "dan-eng"
-                                       "deu-ita"
-                                       "deu-kur"
-                                       "deu-nld"
-                                       "deu-por"
-                                       "deu-tur"
-                                       "eng-afr"
-                                       "eng-ara"
-                                       "eng-ces"
-                                       "eng-cym"
-                                       "eng-dan"
-                                       "eng-ell"
-                                       "eng-fra"
-                                       "eng-gle"
-                                       "eng-hin"
-                                       "eng-hrv"
-                                       "eng-hun"
-                                       "eng-ita"
-                                       "eng-lat"
-                                       "eng-lit"
-                                       "eng-nld"
-                                       "eng-pol"
-                                       "eng-por"
-                                       "eng-rom"
-                                       "eng-rus"
-                                       "eng-spa"
-                                       "eng-srp"
-                                       "eng-swh"
-                                       "eng-tur"
-                                       "fra-bre"
-                                       "fra-eng"
-                                       "fra-nld"
-                                       "gla-deu"
-                                       "gle-eng"
-                                       "gle-pol"
-                                       "hrv-eng"
-                                       "hun-eng"
-                                       "isl-eng"
-                                       "ita-deu"
-                                       "ita-eng"
-                                       "jpn-deu"
-                                       "jpn-eng"
-                                       "jpn-fra"
-                                       "jpn-rus"
-                                       "kha-deu"
-                                       "kha-eng"
-                                       "kur-deu"
-                                       "kur-eng"
-                                       "kur-tur"
-                                       "lat-deu"
-                                       "lat-eng"
-                                       "lit-eng"
-                                       "mkd-bul"
-                                       "nld-deu"
-                                       "nld-eng"
-                                       "nld-fra"
-                                       "nno-nob"
-                                       "oci-cat"
-                                       "pol-gle"
-                                       "por-deu"
-                                       "por-eng"
-                                       "san-deu"
-                                       "slk-eng"
-                                       "slv-eng"
-                                       "spa-ast"
-                                       "spa-eng"
-                                       "spa-por"
-                                       "srp-eng"
-                                       "swe-eng"
-                                       "swh-eng"
-                                       "swh-pol"
-                                       "tur-deu"
-                                       "tur-eng"
-                                       "wol-fra")))
-
 (define (cedict-dictorg-database variant)
   "Return a record of type @code{<dicod-database>} that configures a
 database for the CC-CEDICT chinese-english multilingual dictionary