-
Notifications
You must be signed in to change notification settings - Fork 3
/
Copy pathdiogenes.elc
165 lines (125 loc) · 19.5 KB
/
diogenes.elc
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
;ELC
;;; Compiled
;;; in Emacs version 29.4
;;; with all optimizations.
(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\300\310!\210\300\311!\210\300\312!\210\300\313!\210\300\314!\210\315\316\317\320\321\322%\210\323\324\325\326\327DD\330\331\332\321\316&\210\323\333\325\326\334DD\335\331\336\321\316&\207" [require cl-lib thingatpt transient seq diogenes-lisp-utils diogenes-utils diogenes-perl-interface diogenes-user-interface diogenes-browser diogenes-search diogenes-perseus diogenes-legacy custom-declare-group diogenes nil "Interface to P. Heslin's Diogenes." :group tools custom-declare-variable diogenes-perl-executable funcall function #[0 "\300\207" ["perl"] 1 #1=""] "Path to perl executable." :type string diogenes-path #[0 "\300\207" [nil] 1 #1#] "Path to the Diogenes installation." directory] 8)#@34 Minimal required verson of perl.
(defconst diogenes-perl-min-version 5.1 (#$ . 883))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\317\310\311&\207" [custom-declare-variable diogenes-browser-show-citations funcall function #[0 "\300\207" [t] 1 #1=""] "Whether to show embedded citations in the browser by default." :type boolean :group diogenes :local t diogenes-preferred-lsj-file #[0 "\300\207" ["grc.lsj.logeion.xml"] 1 #1#] "Filename of the preferred version of the LSJ dictionary." string] 10)
(defalias 'diogenes--path #[0 "\203 \301!\207\302\303!\207" [diogenes-path expand-file-name error "diogenes-path is not set! \nPlease set it to the root directory of your Diogenes installation!"] 2])
(defalias 'diogenes--include-server #[0 "\300\301\302 \303\"P\207" ["-I" file-name-concat diogenes--path "server"] 4])
(defalias 'diogenes--include-cpan #[0 "\300\301\302 \303\304#P\207" ["-I" file-name-concat diogenes--path "dependencies" "CPAN"] 5])
(defalias 'diogenes--perseus-path #[0 "\300\301\302 \303\304#!\207" [directory-file-name file-name-concat diogenes--path "dependencies" "data"] 5])#@13
(fn LANG)
(defalias 'diogenes--dict-file #[257 "\211\301\267\202 \302\303 \"\207\302\303 \304\"\207\305\306\"\207" [diogenes-preferred-lsj-file #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("greek" 6 "latin" 12)) file-name-concat diogenes--perseus-path "lat.ls.perseus-eng1.xml" error "Undefined language %s"] 4 (#$ . 2044)])
(byte-code "\300\301\302 \303\304\305$!\204 \306\307\302 \"\210\310\311\312\"\210\310\313\314\"\207" [file-exists-p file-name-concat diogenes--path "server" "Diogenes" "Base.pm" warn "Could not find a working Diogenes installation in %s" mapc #[257 "\300\301!!?\205 \302\303\301!#\207" [file-exists-p diogenes--dict-file warn "Could not find %s lexicon at %s."] 6 "\n\n(fn LANG)"] ("greek" "latin") #[257 "\300\301\302 \"!?\205 \303\304\302 #\207" [file-exists-p file-name-concat diogenes--perseus-path warn "Could not find %s in %s. Did you build them?"] 5 "\n\n(fn FILE)"] ("greek-analyses.txt" "greek-lemmata.txt" "latin-analyses.txt" "latin-lemmata.txt")] 6)#@86 Alist of the corpora that are supported by Diogenes.
The form is (ABBREV . FULL-NAME
(defconst diogenes--corpora '(("phi" . "PHI Latin Corpus") ("tlg" . "TLG Texts") ("ddp" . "Duke Documentary Papyri") ("ins" . "Classical Inscriptions") ("chr" . "Christian Inscriptions") ("misc" . "Miscellaneous PHI Texts") ("cop" . "PHI Coptic Texts") ("bib" . "TLG Bibliography")) (#$ . 3094))#@57 The abbreviations of the corpora supported by Diogenes.
(defconst diogenes--corpora-abbrevs (mapcar 'car diogenes--corpora) (#$ . 3480))#@49 The names of the corpora supported by Diogenes.
(defconst diogenes--corpora-names (mapcar 'cdr diogenes--corpora) (#$ . 3622))#@134 Search for a phrase in the Greek TLG database.
Uses the Diogenes Perl Module.
(fn OPTIONS-OR-PATTERN &optional AUTHOR-PLIST PREFIX)
(defalias 'diogenes-search-tlg #[769 "\300\301$\207" [diogenes--search-database "tlg"] 8 (#$ . 3755) "i\ni\np"])#@134 Search for a phrase in the Latin PHI database.
Uses the Diogenes Perl Module.
(fn OPTIONS-OR-PATTERN &optional AUTHOR-PLIST PREFIX)
(defalias 'diogenes-search-phi #[769 "\300\301$\207" [diogenes--search-database "phi"] 8 (#$ . 4010) "i\ni\np"])#@139 Search for a phrase in the Duke Documentary Papyri.
Uses the Diogenes Perl module.
(fn OPTIONS-OR-PATTERN &optional AUTHOR-PLIST PREFIX)
(defalias 'diogenes-search-ddp #[769 "\300\301$\207" [diogenes--search-database "ddp"] 8 (#$ . 4265) "i\ni\np"])#@147 Search for a phrase in the Classical Inscriptions Database.
Uses the Diogenes Perl module.
(fn OPTIONS-OR-PATTERN &optional AUTHOR-PLIST PREFIX)
(defalias 'diogenes-search-ins #[769 "\300\301$\207" [diogenes--search-database "ins"] 8 (#$ . 4525) "i\ni\np"])#@147 Search for a phrase in the Christian Inscriptions Database.
Uses the Diogenes Perl module.
(fn OPTIONS-OR-PATTERN &optional AUTHOR-PLIST PREFIX)
(defalias 'diogenes-search-chr #[769 "\300\301$\207" [diogenes--search-database "chr"] 8 (#$ . 4793) "i\ni\np"])#@148 Search for a phrase in the Miscellaneous PHI Texts Database.
Uses the Diogenes Perl module.
(fn OPTIONS-OR-PATTERN &optional AUTHOR-PLIST PREFIX)
(defalias 'diogenes-search-misc #[769 "\300\301$\207" [diogenes--search-database "misc"] 8 (#$ . 5061) "i\ni\np"])#@141 Search for a phrase in the PHI Coptic Texts Database.
Uses the Diogenes Perl module.
(fn OPTIONS-OR-PATTERN &optional AUTHOR-PLIST PREFIX)
(defalias 'diogenes-search-cop #[769 "\300\301$\207" [diogenes--search-database "cop"] 8 (#$ . 5332) "i\ni\np"])#@117 Dump a work from the Greek TLG database in its entirety.
Uses the Diogenes Perl module.
(fn &optional AUTHOR WORK)
(defalias 'diogenes-dump-tlg #[512 "\300\301#\207" [diogenes--dump-from-database "tlg"] 6 (#$ . 5594) nil])#@117 Dump a work from the Latin PHI database in its entirety.
Uses the Diogenes Perl module.
(fn &optional AUTHOR WORK)
(defalias 'diogenes-dump-phi #[512 "\300\301#\207" [diogenes--dump-from-database "phi"] 6 (#$ . 5826) nil])#@124 Dump a work from the Duke Documentary Database in its entirety.
Uses the Diogenes Perl module.
(fn &optional AUTHOR WORK)
(defalias 'diogenes-dump-ddp #[512 "\300\301#\207" [diogenes--dump-from-database "ddp"] 6 (#$ . 6058) nil])#@130 Dump a work from the Classical Inscriptions Database in its entirety.
Uses the Diogenes Perl module.
(fn &optional AUTHOR WORK)
(defalias 'diogenes-dump-ins #[512 "\300\301#\207" [diogenes--dump-from-database "ins"] 6 (#$ . 6297) nil])#@130 Dump a work from the Christian Inscriptions Database in its entirety.
Uses the Diogenes Perl module.
(fn &optional AUTHOR WORK)
(defalias 'diogenes-dump-chr #[512 "\300\301#\207" [diogenes--dump-from-database "chr"] 6 (#$ . 6542) nil])#@131 Dump a work from the Miscellaneous PHI Texts Database in its entirety.
Uses the Diogenes Perl module.
(fn &optional AUTHOR WORK)
(defalias 'diogenes-dump-misc #[512 "\300\301#\207" [diogenes--dump-from-database "misc"] 6 (#$ . 6787) nil])#@124 Dump a work from the PHI Coptic Texts Database in its entirety.
Uses the Diogenes Perl module.
(fn &optional AUTHOR WORK)
(defalias 'diogenes-dump-cop #[512 "\300\301#\207" [diogenes--dump-from-database "cop"] 6 (#$ . 7035) nil])#@125 Browse a specific passage in a work from the Greek TLG database.
Uses the Diogenes Perl module.
(fn &optional AUTHOR WORK)
(defalias 'diogenes-browse-tlg #[512 "\300\301#\207" [diogenes--browse-database "tlg"] 6 (#$ . 7274) nil])#@103 Browse a work from the Latin PHI database.
Uses the Diogenes Perl module.
(fn &optional AUTHOR WORK)
(defalias 'diogenes-browse-phi #[512 "\300\301#\207" [diogenes--browse-database "phi"] 6 (#$ . 7513) nil])#@110 Browse a work from the Duke Documentary Database.
Uses the Diogenes Perl module.
(fn &optional AUTHOR WORK)
(defalias 'diogenes-browse-ddp #[512 "\300\301#\207" [diogenes--browse-database "ddp"] 6 (#$ . 7730) nil])#@116 Browse a work from the Classical Inscriptions Database.
Uses the Diogenes Perl module.
(fn &optional AUTHOR WORK)
(defalias 'diogenes-browse-ins #[512 "\300\301#\207" [diogenes--browse-database "ins"] 6 (#$ . 7954) nil])#@116 Browse a work from the Christian Inscriptions Database.
Uses the Diogenes Perl module.
(fn &optional AUTHOR WORK)
(defalias 'diogenes-browse-chr #[512 "\300\301#\207" [diogenes--browse-database "chr"] 6 (#$ . 8184) nil])#@118 Browse a work from the Miscellaneous PHI Texts Database.
Uses the Diogenes Perl module.
(fn &optional AUTHOR WORK)
(defalias 'diogenes-browse-misc #[512 "\300\301#\207" [diogenes--browse-database "misc"] 6 (#$ . 8414) nil])#@111 Browse a work from the PHI Coptic Texts Database.
Uses the Diogenes Perl module.
(fn &optional AUTHOR WORK)
(defalias 'diogenes-browse-cop #[512 "\300\301#\207" [diogenes--browse-database "cop"] 6 (#$ . 8648) nil])#@110 Search for a greek word in the LSJ Greek Dictionary.
Accepts both Unicode and Beta Code as input.
(fn WORD)
(defalias 'diogenes-lookup-greek #[257 "\300\301\"\207" [diogenes--lookup-dict "greek"] 4 (#$ . 8873) (byte-code "\300\301\302\303\304\"\"C\207" [read-from-minibuffer "Search LSJ for: " thing-at-point word t] 5)])#@75 Search for a greek word in the Lewis & Short Latin Dictionary.
(fn WORD)
(defalias 'diogenes-lookup-latin #[257 "\300\301\"\207" [diogenes--lookup-dict "latin"] 4 (#$ . 9202) (byte-code "\300\301\302\303\304\"\"C\207" [read-from-minibuffer "Search Lewis & Short for: " thing-at-point word t] 5)])#@54 Try to parse a greek word and look it up.
(fn WORD)
(defalias 'diogenes-parse-and-lookup-greek #[257 "\300\301!\302\"\207" [diogenes--parse-and-lookup diogenes--greek-ensure-beta "greek"] 4 (#$ . 9506) (byte-code "\300\301\302\303\304\"\"C\207" [read-from-minibuffer "Parse greek word: " thing-at-point word t] 5)])#@54 Try to parse a latin word and look it up.
(fn WORD)
(defalias 'diogenes-parse-and-lookup-latin #[257 "\300\301\"\207" [diogenes--parse-and-lookup "latin"] 4 (#$ . 9829) (byte-code "\300\301\302\303\304\"\"C\207" [read-from-minibuffer "Parse greek word: " thing-at-point word t] 5)])#@130 Parse a greek word and display the results.
QUERY is interpreted as a regular expression which must match the forms.
(fn QUERY)
(defalias 'diogenes-parse-greek #[257 "\300\301!\302\"\207" [diogenes--parse-and-show diogenes--greek-ensure-beta "greek"] 4 (#$ . 10120) (byte-code "\300\301\302\303\304\"\"C\207" [read-from-minibuffer "Parse Greek word: " thing-at-point word t] 5)])#@130 Parse a latin word and display the results.
QUERY is interpreted as a regular expression which must match the forms.
(fn QUERY)
(defalias 'diogenes-parse-latin #[257 "\300\301\"\207" [diogenes--parse-and-show "latin"] 4 (#$ . 10508) (byte-code "\300\301\302\303\304\"\"C\207" [read-from-minibuffer "Parse Latin word: " thing-at-point word t] 5)])#@55 Show all attested forms of a Greek lemma.
(fn LEMMA)
(defalias 'diogenes-show-all-forms-greek #[257 "\300\301!\302\"\207" [diogenes--show-all-forms diogenes--greek-ensure-beta "greek"] 4 (#$ . 10862) "sShow all forms of: "])#@55 Show all attested forms of a Latin lemma.
(fn LEMMA)
(defalias 'diogenes-show-all-forms-latin #[257 "\300\301\"\207" [diogenes--show-all-forms "latin"] 4 (#$ . 11094) "sShow all forms of: "])#@64 Show all Greek lemmata and forms that match QUERY.
(fn QUERY)
(defalias 'diogenes-show-all-lemmata-greek #[257 "\300\301!\302\"\207" [diogenes--show-all-lemmata diogenes--greek-ensure-beta "greek"] 4 (#$ . 11293) "sShow all lemmata and their form matching: "])#@64 Show all Latin lemmata and forms that match QUERY.
(fn QUERY)
(defalias 'diogenes-show-all-lemmata-latin #[257 "\300\301\"\207" [diogenes--show-all-lemmata "latin"] 4 (#$ . 11561) "sShow all lemmata and their form matching: "])#@153 Convert greek beta code to utf-8.
If a region is active, convert the contents of the region in place;
otherwise, prompt the user for input.
(fn STR)
(defalias 'diogenes-utf8-to-beta #[257 "\211\203 \301!\207\302 \203 \303`\304 #\207\305\306\307\211\211\211\310\311\312\"&\313\314\315!\"\207" [diogenes--utf8-to-beta-table diogenes--uft8-to-beta use-region-p translate-region mark read-from-minibuffer "Convert to Greek Beta Code: " nil thing-at-point word t message "%s" diogenes-utf8-to-beta] 10 (#$ . 11797) "i"])#@154 Convert greek unicode to beta code.
If a region is active, convert the contents of the region in place;
otherwise, prompt the user for input.
(fn STR)
(defalias 'diogenes-beta-to-utf8 #[257 "\211\203 \301!\207\302 \203\" `\303 ^`\303 ]\304#\210\305\306\307$\207\310\311\312\211\211\211\313\314\315\"&\316\317\301!\"\207" [diogenes--beta-to-utf8-table diogenes--beta-to-utf8 use-region-p mark translate-region replace-regexp-in-region "σ\\b\\|σ$" "ς" read-from-minibuffer "Convert from Greek Beta Code: " nil thing-at-point word t message "%s"] 10 (#$ . 12328) "i"])#@61 Remove all diacritics in the active region.
(fn START END)
(defalias 'diogenes-strip-diacritics #[514 "\300 \205 \301{!|\210\211c\262\207" [region-active-p diogenes--strip-diacritics] 5 (#$ . 12913) "r"])#@31 Converts Ol. to A.D.
(fn OL)
(defalias 'diogenes-ol-to-ad #[257 "\300!\301\302\303!\303\304\\\211\305U\203 \306\202 \211\262!#\207" [diogenes--ol-to-ad message "%s – %s" diogenes--bc-and-ad 3 0 1] 9 (#$ . 13130) "nPlease enter the Olypiad: "])#@31 Converts A.D. to Ol.
(fn AD)
(defalias 'diogenes-ad-to-ol #[257 "\211\300U\203\n \301\302!\210\211\300W\203 \303\202 \304\\\305\306\307\245\310\307\"T#\207" [0 error "There is no year 0!" 780 779 message "Ol. %d/%d" 4 mod] 8 (#$ . 13388) "nPlease enter a year: "])
(defalias 'diogenes-morphology-greek #[0 "\300\301!\207" [transient-setup diogenes-morphology-greek] 2 nil nil])
(byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\"#\210\300\301\311\312\313\314\315\316D\313\317\320\321\315\322\310\323\257E\313\317\320\324\315\325\310\326\257E\313\317\320\327\315\330\310\331\257EE$C#\207" [put diogenes-morphology-greek interactive-only t function-documentation "Dispatcher for the Diogenes' Greek morphology tool collection." transient--prefix transient-prefix :command transient--layout vector 1 transient-column :description "Greek Morphology Tools" transient-suffix :key "a" "Show all possible analyses matching query" diogenes-parse-greek "f" "Show all attested forms of lemma" diogenes-show-all-forms-greek "l" "Show all lemmata and their forms matching query" diogenes-show-all-lemmata-greek] 17)
(defalias 'diogenes-morphology-latin #[0 "\300\301!\207" [transient-setup diogenes-morphology-latin] 2 nil nil])
(byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\"#\210\300\301\311\312\313\314\315\316D\313\317\320\321\315\322\310\323\257E\313\317\320\324\315\325\310\326\257E\313\317\320\327\315\330\310\331\257EE$C#\207" [put diogenes-morphology-latin interactive-only t function-documentation "Dispatcher for the Diogenes' Latin morphology tool collection." transient--prefix transient-prefix :command transient--layout vector 1 transient-column :description "Latin Morphology Tools" transient-suffix :key "a" "Show all possible analyses matching query" diogenes-parse-latin "f" "Show all attested forms of lemma" diogenes-show-all-forms-latin "l" "Show all lemmata and their forms matching query" diogenes-show-all-lemmata-latin] 17)
(defalias 'diogenes #[0 "\300\301!\207" [transient-setup diogenes] 2 nil nil])
(byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\"#\210\300\301\311\312\313\314\315\312\313\316\317\320D\313\321\322\323\317\324\310\300\325\302\303#\210\300\325\326\327#\210\330\325\331\"\210\325\332\333\257E\313\321\322\334\317\335\310\300\336\302\303#\210\300\336\326\327#\210\330\336\337\"\210\336\332\333\257E\313\321\322\340\317\341\310\300\342\302\303#\210\300\342\326\327#\210\330\342\343\"\210\342\332\333\257E\313\321\322\344\317\345\310\300\346\302\303#\210\300\346\326\327#\210\330\346\347\"\210\346\332\333\257E\313\321\322\350\317\351\310\300\352\302\303#\210\300\352\326\327#\210\330\352\353\"\210\352\332\333\257E\313\321\322\354\317\355\310\300\356\302\303#\210\300\356\326\327#\210\330\356\357\"\210\356\332\333\257E\257$\312\313\316\317\360D\313\321\322\361\317\362\310\363\257E\313\321\322\364\317\365\310\366\257E\313\321\322\367\317\370\310\371\257E\313\321\322\372\317\373\310\374\257E\313\321\322\375\317\376\310\377\257E\313\321\322\201@ \317\201A \310\201B \257E\257$D$\312\313\314\315\312\313\316\317\201C D\313\321\322\201D \317\201E \310\201F \257E\313\321\322\201G \317\201H \310\201I \257E\313\321\322\201J \317\201K \310\201L \257E\313\321\322\201M \317\201N \310\201O \257E\313\321\322\201P \317\201Q \310\201R \257E\313\321\322\201S \317\201T \310\201U \257E\257$\312\313\316\317\201V D\313\321\322\201W \317\201X \310\201Y \257E\313\321\322\201Z \317\201[ \310\201\\ \257E\313\321\322\201] \317\201^ \310\201_ \257E\313\321\322\201` \317\201a \310\201b \257E\313\321\322\201c \317\201d \310\201e \257E\313\321\322\201f \317\201g \310\201h \257E\257$D$\312\313\316\317\201i D\313\321\322\201j \317\201k \310\201l \257EC$E#\207" [put diogenes interactive-only t function-documentation "Study Greek and Latin Texts with Peter Heslin's Diogenes.\nThis is the main dispatcher function that starts the transient\nuser interface." transient--prefix transient-prefix :command transient--layout vector 1 transient-columns nil transient-column :description "SEARCH" transient-suffix :key "sg" "Search the Greek TLG" transient:diogenes::6 completion-predicate transient--suffix-only defalias #[0 "\300\301\302\211\303\304\305D%\207" [transient-setup diogenes--search--select-mode nil :scope :type "tlg"] 7 nil nil] :transient transient--do-recurse "sl" "Search the Latin PHI" transient:diogenes::7 #[0 "\300\301\302\211\303\304\305D%\207" [transient-setup diogenes--search--select-mode nil :scope :type "phi"] 7 nil nil] "sd" "Search the Duke Documentary Papyri" transient:diogenes::8 #[0 "\300\301\302\211\303\304\305D%\207" [transient-setup diogenes--search--select-mode nil :scope :type "ddp"] 7 nil nil] "si" "Search the Classical Inscriptions" transient:diogenes::9 #[0 "\300\301\302\211\303\304\305D%\207" [transient-setup diogenes--search--select-mode nil :scope :type "ins"] 7 nil nil] "sc" "Search the Christian Inscriptions" transient:diogenes::10 #[0 "\300\301\302\211\303\304\305D%\207" [transient-setup diogenes--search--select-mode nil :scope :type "chr"] 7 nil nil] "sm" "Search the Miscellaneous PHI Texts" transient:diogenes::11 #[0 "\300\301\302\211\303\304\305D%\207" [transient-setup diogenes--search--select-mode nil :scope :type "misc"] 7 nil nil] "BROWSE" "bg" "Browse the Greek TLG" diogenes-browse-tlg "bl" "Browse the Latin PHI" diogenes-browse-phi "bd" "Browse the Duke Documentary Papyri" diogenes-browse-ddp "bi" "Browse the Classical Inscriptions" diogenes-browse-ins "bc" "Browse the Christian Inscriptions" diogenes-browse-chr "bm" "Browse the Miscellaneous PHI Texts" diogenes-browse-misc "MORPHOLOGY & DICTIONARY LOOKUP" "lg" "Look up Greek word (LSJ)" diogenes-lookup-greek "ll" "Look up Latin word (Lewis & Short)" diogenes-lookup-latin "pg" "Try to parse and look up a Greek" diogenes-parse-and-lookup-greek "pl" "Try to parse and look up a Latin" diogenes-parse-and-lookup-latin "mg" "Greek morphology tools" diogenes-morphology-greek "ml" "Latin morphology tools" diogenes-morphology-latin "DUMP AN ENTIRE WORK AS PLAIN TEXT" "dg" "Dump from the Greek TLG" diogenes-dump-tlg "dl" "Dump from the Latin PHI" diogenes-dump-phi "dd" "Dump from the Duke Documentary Papyri" diogenes-dump-ddp "di" "Dump from the Classical Inscriptions" diogenes-dump-ins "dc" "Dump from the Christian Inscriptions" diogenes-dump-chr "dm" "Dump from the Miscellaneous PHI Texts" diogenes-dump-misc "CUSTOM CORPORA" "c" "Manage custom search corpora" diogenes-manage-user-corpora] 27)
(provide 'diogenes)