Add wadoku to generated list

Julien LepillerThu Jun 04 00:08:40+0200 2020

10d6e79

Add wadoku to generated list

po/fr.po

77 
msgstr ""
88 
"Project-Id-Version: PACKAGE VERSION\n"
99 
"Report-Msgid-Bugs-To: \n"
10-
"POT-Creation-Date: 2020-05-27 00:55+0200\n"
10+
"POT-Creation-Date: 2020-06-04 00:05+0200\n"
1111 
"PO-Revision-Date: 2019-04-16 18:08+0200\n"
1212 
"Last-Translator: root <julien@lepiller.eu>\n"
1313 
"Language-Team: French\n"

…

105105 
msgid "JMdict"
106106 
msgstr "JMdict"
107107 
108-
#: tools/list.scm:38
108+
#: tools/list.scm:46
109109 
msgid ""
110110 
"Japanese/Dutch dictionary from the Electronic Dictionary Research and "
111111 
"Development Group."
…
113113 
"Dictionnaire japonais/anglais de l???Electronic Dictionary Research and "
114114 
"Development Group."
115115 
116-
#: tools/list.scm:37
116+
#: tools/list.scm:45
117117 
#, fuzzy
118118 
msgid ""
119119 
"Japanese/English dictionary from the Electronic Dictionary Research and "
…
122122 
"Dictionnaire japonais/n??erlandais de l???Electronic Dictionary Research and "
123123 
"Development Group."
124124 
125-
#: tools/list.scm:39
125+
#: tools/list.scm:47
126126 
msgid ""
127127 
"Japanese/French dictionary from the Electronic Dictionary Research and "
128128 
"Development Group."
…
130130 
"Dictionnaire japonais/fran??ais de l???Electronic Dictionary Research and "
131131 
"Development Group."
132132 
133-
#: tools/list.scm:40
133+
#: tools/list.scm:36
134+
msgid "Japanese/German dictionary from Wadoku."
135+
msgstr "Dictionnaire japonais/allemand de Wadoku."
136+
137+
#: tools/list.scm:48
134138 
msgid ""
135139 
"Japanese/German dictionary from the Electronic Dictionary Research and "
136140 
"Development Group."
…
138142 
"Dictionnaire japonais/allemand de l???Electronic Dictionary Research and "
139143 
"Development Group."
140144 
141-
#: tools/list.scm:41
145+
#: tools/list.scm:49
142146 
msgid ""
143147 
"Japanese/Hungarian dictionary from the Electronic Dictionary Research and "
144148 
"Development Group."
…
146150 
"Dictionnaire japonais/hongrois de l???Electronic Dictionary Research and "
147151 
"Development Group."
148152 
149-
#: tools/list.scm:42
153+
#: tools/list.scm:50
150154 
msgid ""
151155 
"Japanese/Russian dictionary from the Electronic Dictionary Research and "
152156 
"Development Group."
…
154158 
"Dictionnaire japonais/russe de l???Electronic Dictionary Research and "
155159 
"Development Group."
156160 
157-
#: tools/list.scm:43
161+
#: tools/list.scm:51
158162 
msgid ""
159163 
"Japanese/Slovenian dictionary from the Electronic Dictionary Research and "
160164 
"Development Group."
…
162166 
"Dictionnaire japonais/slov??ne de l???Electronic Dictionary Research and "
163167 
"Development Group."
164168 
165-
#: tools/list.scm:44
169+
#: tools/list.scm:52
166170 
msgid ""
167171 
"Japanese/Spanish dictionary from the Electronic Dictionary Research and "
168172 
"Development Group."
…
170174 
"Dictionnaire japonais/espagnol de l???Electronic Dictionary Research and "
171175 
"Development Group."
172176 
173-
#: tools/list.scm:45
177+
#: tools/list.scm:53
174178 
msgid ""
175179 
"Japanese/Swedish dictionary from the Electronic Dictionary Research and "
176180 
"Development Group."
…
358362 
"l'application. Dans les sections suivantes, nous verrons comment les "
359363 
"utiliser."
360364 
361-
#: tools/list.scm:47
365+
#: tools/list.scm:38
366+
msgid ""
367+
"This dictionary allows you to do searches on the main view of this app.\n"
368+
"        Failing to download on of these dictionaries will make the app "
369+
"unusable\n"
370+
"        as you can't search for anything.  This dictionary can be searched "
371+
"for\n"
372+
"        by kanji, reading (kana) and by German translation."
373+
msgstr ""
374+
"Ce dictionnaire vous permet d???effectuer des recherches sur la vue\n"
375+
"    principale de cette appli. Si vous n???en t??l??chargez aucun, l???appli\n"
376+
"    sera inutilisable puisque vous ne pourrez rien rechercher. Ce\n"
377+
"    dictionnaire permet d???effectuer des recherches par kanji, par\n"
378+
"    prononciation (kana) et par traduction allemande."
379+
380+
#: tools/list.scm:55
362381 
msgid ""
363382 
"This dictionary allows you to do searches on the main view of this app.\n"
364383 
"        Failing to download one of these dictionaries will make the app "
po/nani.pot
88 
msgstr ""
99 
"Project-Id-Version: PACKAGE VERSION\n"
1010 
"Report-Msgid-Bugs-To: \n"
11-
"POT-Creation-Date: 2020-05-27 00:56+0200\n"
11+
"POT-Creation-Date: 2020-06-04 00:05+0200\n"
1212 
"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
1313 
"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
1414 
"Language-Team: LANGUAGE <LL@li.org>\n"
…
9797 
msgid "JMdict"
9898 
msgstr ""
9999 
100-
#: tools/list.scm:38
100+
#: tools/list.scm:46
101101 
msgid ""
102102 
"Japanese/Dutch dictionary from the Electronic Dictionary Research and "
103103 
"Development Group."
104104 
msgstr ""
105105 
106-
#: tools/list.scm:37
106+
#: tools/list.scm:45
107107 
msgid ""
108108 
"Japanese/English dictionary from the Electronic Dictionary Research and "
109109 
"Development Group."
110110 
msgstr ""
111111 
112-
#: tools/list.scm:39
112+
#: tools/list.scm:47
113113 
msgid ""
114114 
"Japanese/French dictionary from the Electronic Dictionary Research and "
115115 
"Development Group."
116116 
msgstr ""
117117 
118-
#: tools/list.scm:40
118+
#: tools/list.scm:36
119+
msgid "Japanese/German dictionary from Wadoku."
120+
msgstr ""
121+
122+
#: tools/list.scm:48
119123 
msgid ""
120124 
"Japanese/German dictionary from the Electronic Dictionary Research and "
121125 
"Development Group."
122126 
msgstr ""
123127 
124-
#: tools/list.scm:41
128+
#: tools/list.scm:49
125129 
msgid ""
126130 
"Japanese/Hungarian dictionary from the Electronic Dictionary Research and "
127131 
"Development Group."
128132 
msgstr ""
129133 
130-
#: tools/list.scm:42
134+
#: tools/list.scm:50
131135 
msgid ""
132136 
"Japanese/Russian dictionary from the Electronic Dictionary Research and "
133137 
"Development Group."
134138 
msgstr ""
135139 
136-
#: tools/list.scm:43
140+
#: tools/list.scm:51
137141 
msgid ""
138142 
"Japanese/Slovenian dictionary from the Electronic Dictionary Research and "
139143 
"Development Group."
140144 
msgstr ""
141145 
142-
#: tools/list.scm:44
146+
#: tools/list.scm:52
143147 
msgid ""
144148 
"Japanese/Spanish dictionary from the Electronic Dictionary Research and "
145149 
"Development Group."
146150 
msgstr ""
147151 
148-
#: tools/list.scm:45
152+
#: tools/list.scm:53
149153 
msgid ""
150154 
"Japanese/Swedish dictionary from the Electronic Dictionary Research and "
151155 
"Development Group."
…
293297 
"In the following sections we will see how to use them."
294298 
msgstr ""
295299 
296-
#: tools/list.scm:47
300+
#: tools/list.scm:38
301+
msgid ""
302+
"This dictionary allows you to do searches on the main view of this app.\n"
303+
"        Failing to download on of these dictionaries will make the app "
304+
"unusable\n"
305+
"        as you can't search for anything.  This dictionary can be searched "
306+
"for\n"
307+
"        by kanji, reading (kana) and by German translation."
308+
msgstr ""
309+
310+
#: tools/list.scm:55
297311 
msgid ""
298312 
"This dictionary allows you to do searches on the main view of this app.\n"
299313 
"        Failing to download one of these dictionaries will make the app "
tools/list.scm
3232 
    components.  Tap the water component button on the bottom of the screen to
3333 
    access the kanji selection by component view"))
3434 
35+
  (define wadoku-synopsis
36+
    `(_ "Japanese/German dictionary from Wadoku."))
37+
  (define wadoku-description
38+
    `(_ "This dictionary allows you to do searches on the main view of this app.
39+
        Failing to download on of these dictionaries will make the app unusable
40+
        as you can't search for anything.  This dictionary can be searched for
41+
        by kanji, reading (kana) and by German translation."))
42+
3543 
  (define (jmdict-synopsis lang)
3644 
    (match lang
3745 
      ("e" `(_ "Japanese/English dictionary from the Electronic Dictionary Research and Development Group."))
…
5563 
             (if long?
5664 
                 radk-description
5765 
                 radk-synopsis))
66+
            ((equal? (dico-type dico) "wadoku")
67+
             (if long?
68+
                 wadoku-description
69+
                 wadoku-synopsis))
5870 
            ((equal? (dico-type dico) "jmdict")
5971 
             (let ((dico-lang (substring dico 7)))
6072 
               (if long?
…
8193 
  (cond
8294 
    ((equal? file "radicals") "radk")
8395 
    ((and (> (string-length file) 6) (equal? (substring file 0 6) "JMdict"))
84-
     "jmdict")))
96+
     "jmdict")
97+
    ((equal? file "wadoku_ger") "wadoku")))
8598 
8699 
(define (entries file)
87100 
  (cond
88101 
    ((equal? (dico-type (dico-name file)) "radk")
89102 
     (kanji-count file))
90-
    ((equal? (dico-type (dico-name file)) "jmdict")
103+
    ((member (dico-type (dico-name file)) '("jmdict" "wadoku"))
91104 
     (jmdict-entry-count file))))
92105 
93106 
(define (dico-name file)