-
Notifications
You must be signed in to change notification settings - Fork 3
/
Copy pathdiogenes-corpora.elc
133 lines (105 loc) · 34.7 KB
/
diogenes-corpora.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
;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!\207" [require cl-lib seq replace transient diogenes-lisp-utils diogenes-user-interface] 2)#@56 The user defined subcorpora of the Diogenes databases.
(defvar diogenes--user-corpora [] (#$ . 261))
(defalias 'diogenes--load-user-corpora #[0 "\301 \204 \302\303!\210\304 \206 \302\305!\306!\2051 \307\310\311\"r\211q\210\312\313\"\216\314!\210\315\316\317\320\321$*\262\211\207" [diogenes--user-corpora json-available-p error "JSON support needed to load user defined corpora!" diogenes--get-filter-file "Unable to locate filter file!" file-exists-p generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents json-parse-buffer :object-type plist :array-type array] 7])#@64 Select a saved user corpus interactively.
(fn &optional TYPE)
(defalias 'diogenes--select-user-corpus #[256 "\301 \210\302\303\203 \304\305\306\"\"\202 \"\211\203$ \307\310\311\312\313$\"A\207\314\315!\207" [diogenes--user-corpora diogenes--load-user-corpora mapcar #[257 "\300\301\"B\207" [plist-get :name] 4 "\n\n(fn C)"] cl-remove-if-not make-closure #[257 "\301\302\"\300\230\207" [V0 plist-get :type] 4 "\n\n(fn C)"] assoc completing-read "Saved user corpora: " nil t message "No saved corpora!"] 8 (#$ . 918)])#@143 Return non-nil if there is a corpus defined of type TYPE.
If no type is given, check wheter there is any defined corpus.
(fn &optional TYPE)
(defalias 'diogenes--user-corpora-exist-p #[256 "\211\203 \301\302\303\"\"\202 \211G\304U?\205 \305\207" [diogenes--user-corpora cl-remove-if-not make-closure #[257 "\301\302\"\300\230\207" [V0 plist-get :type] 4 "\n\n(fn C)"] 0 t] 5 (#$ . 1453)])#@74 Removes corpus with index INDEX from diogenes--user-corpora.
(fn INDEX)
(defalias 'diogenes--remove-user-corpus #[257 "\211<\203\f \233\301\240\207\211\301I\207" [diogenes--user-corpora nil] 5 (#$ . 1855)])
(defalias 'diogenes--save-user-corpora #[0 "\301 \204 \302\303!\210\304 \206 \302\305!\306\307\"\310\311\312\"\313\314\"\216r\211q\210\315!)rq\210\316\307\211\307\317%*\210\207" [diogenes--user-corpora json-available-p error "JSON support needed to save user defined corpora!" diogenes--get-filter-file "Unable to locate filter file!" remove nil generate-new-buffer " *temp file*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] json-insert write-region 0] 9])#@43 Mode map for the Diogenes Manage Corpora.
(defvar diogenes-corpus-mode-map (byte-code "\301 \244\302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\330#\210\302\327\330#\210\302\331\332#\210\302\333\334#\210\302\335\336#\210\207" [text-mode-map make-sparse-keymap keymap-set "+" diogenes-add-user-corpus "a" diogenes--add-author-to-corpus "w" diogenes--add-work-to-corpus "d" diogenes--corpus-remove-element "D" diogenes--corpus-delete-corpus "c" diogenes--corpus-make-duplicate "r" diogenes--corpus-rename "n" next-line "p" previous-line "f" forward-char "b" backward-char "u" diogenes-undo "C-c C-c" diogenes--corpora-save "q" diogenes--ask-and-quit] 5) (#$ . 2575))
(defvar diogenes-corpus-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [diogenes-corpus-mode-hook variable-documentation put "Hook run after entering Diogenes Manage Corpora mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp diogenes-corpus-mode-map definition-name diogenes-corpus-mode] 4)
(defvar diogenes-corpus-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204* \303\307\310\311#\210\312\307\306\307!\203& \313\202( \314 \"\210\307\302N\2048 \303\307\302\304\315!#\210\306\300!\204X \303\300\310\311#\210\312\300\306\300!\203P \313\202V \316\300\313\"\210\"\210\300\302N\204f \303\300\302\304\317!#\210\303\311\320\321#\207" [diogenes-corpus-mode-abbrev-table diogenes-corpus-mode-map variable-documentation put purecopy "Keymap for `diogenes-corpus-mode'." boundp diogenes-corpus-mode-syntax-table definition-name diogenes-corpus-mode defvar-1 nil make-syntax-table "Syntax table for `diogenes-corpus-mode'." define-abbrev-table "Abbrev table for `diogenes-corpus-mode'." derived-mode-parent text-mode] 5)#@251 Mode for editing custom Diogenes corpora.
In addition to any hooks its parent mode `text-mode' might have run,
this mode runs the hook `diogenes-corpus-mode-hook', as the final or
penultimate step during initialization.
\{diogenes-corpus-mode-map}
(defalias 'diogenes-corpus-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324\325\"\204R =\204R \326\325C#\210\327 !\210\330\f!\210\307 )\331\332!\207" [delay-mode-hooks major-mode mode-name diogenes-corpus-mode-map diogenes-corpus-mode-syntax-table diogenes-corpus-mode-abbrev-table make-local-variable t text-mode diogenes-corpus-mode "Diogenes Manage Corpora" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table run-mode-hooks diogenes-corpus-mode-hook local-abbrev-table buffer-read-only] 5 (#$ . 4606) nil])#@40 Mode map for the Diogenes Edit Corpus.
(defvar diogenes-corpus-edit-mode-map (byte-code "\301 \244\302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\326#\210\302\330\331#\210\207" [text-mode-map make-sparse-keymap keymap-set "a" diogenes--add-author-to-corpus "w" diogenes--add-work-to-corpus "d" diogenes--corpus-remove-element "r" diogenes--corpus-rename "n" next-line "p" previous-line "f" forward-char "b" backward-char "u" diogenes-undo "x" diogenes--corpus-submit "C-c C-c" "q" diogenes--ask-and-quit] 5) (#$ . 5671))
(defvar diogenes-corpus-edit-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [diogenes-corpus-edit-mode-hook variable-documentation put "Hook run after entering Diogenes edit corpus mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp diogenes-corpus-edit-mode-map definition-name diogenes-corpus-edit-mode] 4)
(defvar diogenes-corpus-edit-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204* \303\307\310\311#\210\312\307\306\307!\203& \313\202( \314 \"\210\307\302N\2048 \303\307\302\304\315!#\210\306\300!\204X \303\300\310\311#\210\312\300\306\300!\203P \313\202V \316\300\313\"\210\"\210\300\302N\204f \303\300\302\304\317!#\210\303\311\320\321#\207" [diogenes-corpus-edit-mode-abbrev-table diogenes-corpus-edit-mode-map variable-documentation put purecopy "Keymap for `diogenes-corpus-edit-mode'." boundp diogenes-corpus-edit-mode-syntax-table definition-name diogenes-corpus-edit-mode defvar-1 nil make-syntax-table "Syntax table for `diogenes-corpus-edit-mode'." define-abbrev-table "Abbrev table for `diogenes-corpus-edit-mode'." derived-mode-parent text-mode] 5)#@274 Mode for editing one freshly created Diogenes corpora.
In addition to any hooks its parent mode `text-mode' might have run,
this mode runs the hook `diogenes-corpus-edit-mode-hook', as the final
or penultimate step during initialization.
\{diogenes-corpus-edit-mode-map}
(defalias 'diogenes-corpus-edit-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324\325\"\204R =\204R \326\325 C#\210\327 !\210\330\f!\210 \306\331!\210\307 )\332\333!\207" [delay-mode-hooks major-mode mode-name diogenes-corpus-edit-mode-map diogenes-corpus-edit-mode-syntax-table diogenes-corpus-edit-mode-abbrev-table make-local-variable t text-mode diogenes-corpus-edit-mode "Diogenes edit corpus" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table diogenes--corpus-edit-callback run-mode-hooks diogenes-corpus-edit-mode-hook local-abbrev-table buffer-read-only] 5 (#$ . 7630) nil])#@65 Return t if more than one corpus is open in zhe current buffer.
(defalias 'diogenes--other-corpora-visited-p #[0 "\212\214~\210eb\210\300\301!\205 \300\301!\205 \302*\207" [text-property-search-forward corpus-id t] 2 (#$ . 8789)])#@144 Get all names of the corpora that are defined.
This function searches both diogenes--user-corpora and the
dedicated *diogenes-corpora* buffer.
(defalias 'diogenes--get-defined-corpus-names #[0 "\302\303\304\211T\262GW\203$ H\262\203 \305\306\"B\262\202 \211\237\266\204\307\310!\205c r\310q\210\212eb\210\304\211\211\311\312!\262\203^ \313! >\204Q \314\315\316D\"\210\317HB\262\304\262\2029 \237\266\203*\"\207" [diogenes--user-corpora cl-struct-prop-match-tags cl-union -1 nil plist-get :name get-buffer "*diogenes-corpora*" text-property-search-forward corpus-name type-of signal wrong-type-argument prop-match 3] 9 (#$ . 9028)])#@12
(fn POS)
(defalias 'diogenes--get-corpus-element #[257 "\300\301\"\203\f \302\301\"\207\300\303\"\205 \302\303\"\207" [get-text-property work-num diogenes--get-text-prop-boundaries author-num] 4 (#$ . 9688)])#@18
(fn CORPUS ID)
(defalias 'diogenes--print-user-corpus #[514 "\300\301\"\300\302\"\300\303\"\211\206 \304\305\302D!\306\211\247\203+ \307\310 T $\2021 \307\311#\312\313#\314!\203t \315\316\211\317\316T\262\fGW\203n H\262\320 \"@\262\306\307\321\"\322#P\262\316\262\202@ \266\205\202\"<\205\"\316\211\211\211\211\211\317\316:\203 \262\211A\262\242\262@\262\323!\262\320\"@\262\324\302D\"\262\306\307\321\"\314\n!\203\371 \315\316\211\317\316T\262GW\203\363 H\262\320\f\"@\262\306\307\325\"\326#P\262\316\262\202\305 \266\205\202 \327=\203\317\202 \330\331 #P\322#P\262AA\262 \316\262\202\204 \266\211P\332\333\334 &\207" [plist-get :authors :type :name "Anonymous corpus" diogenes--get-author-list propertize format "[%d] %s (%s):\n\n" "[] %s (%s):\n\n" font-lock-face shr-h2 vectorp -1 nil "" diogenes--assoc-cadr "- %s\n" author-num diogenes--keyword->string diogenes--get-works-list " - %s\n" work-num 1 error "Illegal value %s for author %s" corpus-id corpus-type corpus-name] 31 (#$ . 9909)])#@115 Read a corpus from BUFFER at POS and return it.
BUFFER defaults to the current buffer.
(fn POS &optional BUFFER)
(defalias 'diogenes--read-user-corpus #[513 "r\211\206 pq\210\212\214\301\302\"\303\304\"\303\305\"\306\307\"\210eb\210\310\311!\312eb\210\312\211\310\313!\262\203\315 \314!>\204? \315\316\317D\"\210\320H\314!>\204Q \315\316\317D\"\210\321H\314!>\204d \315\316\317D\"\210\322H\312\203\277 \212\214}\210eb\210\312\211\310\311!\262\203\235 \314!>\204\220 \315\316\317D\"\210\322HB\262\312\262\202x \266\323\324P!B\262\211\203\263 \325!\202\264 \320*B\262\266\202\307 B\262\266\312\262\202' \266\326\327\330\203\337 \237\202\344 \325\237!\257\266\205+\207" [cl-struct-prop-match-tags diogenes--get-text-prop-boundaries corpus-id get-text-property corpus-type corpus-name apply narrow-to-region text-property-search-forward work-num nil author-num type-of signal wrong-type-argument prop-match 1 2 3 intern ":" vconcat :name :type :authors] 19 (#$ . 11024) "d"])#@12
(fn POS)
(defalias 'diogenes--add-author-to-corpus #[257 "\302\303\"\211\205\f \304\305\"\211\205 \304\303\"\211\205+ \212\214\306\307\"\210b\210\310\311\"\206* d*\211\2054 \312\313D!\211\205y \212\214\306\307\"\210eb\210\314\211\211\315\311!\262\203k \316!>\204^ \317\320\321D\"\210\322HB\262\314\262\202F \237\266\203*\323\324\325\"\"\262\211\205\203 \326\327\314\330$\211\205\235 \331\332\333\"\305\303 \311\334 \"A@&\211\205\242 \330\211\205\257 b\210\211c\210\335u)\207" [cl-struct-prop-match-tags inhibit-read-only diogenes--get-text-prop-boundaries corpus-id get-text-property corpus-type apply narrow-to-region next-single-property-change author-num diogenes--get-author-list :type nil text-property-search-forward type-of signal wrong-type-argument prop-match 3 cl-remove-if make-closure #[257 "\211A@\300\235\207" [V0] 3 "\n\n(fn X)"] completing-read "Author: " t propertize format "- %s\n" assoc -1] 19 (#$ . 12061) "d"])#@12
(fn POS)
(defalias 'diogenes--add-work-to-corpus #[257 "\302\303!!\211\205 \304\305\"\211\205 \306\307\"\211\205, \212\214\310\311\"\210b\210\312\313\"\206+ d*\211\205: \314\315D\304\307\"\"\211\205~ \212\214\310\311\"\210eb\210\316\211\211\317\313!\262\203p \320!>\204c \321\322\323D\"\210\324HB\262\316\262\202K \237\266\203*\325\326\327\"\"\262\211\205\210 \330\331\316\332$\211\205\240 \310\333\334\335\"\336\n\313\337\n\"A@##\211\205\245 \332\211\205\262 b\210\211c\210\340u)\207" [cl-struct-prop-match-tags inhibit-read-only copy-list text-properties-at plist-get corpus-type diogenes--get-text-prop-boundaries author-num apply narrow-to-region next-single-property-change work-num diogenes--get-works-list :type nil text-property-search-forward type-of signal wrong-type-argument prop-match 3 cl-remove-if make-closure #[257 "\211A@\300\235\207" [V0] 3 "\n\n(fn X)"] completing-read "Work: " t propertize format " - %s\n" plist-put assoc -1] 18 (#$ . 13035) "d"])#@267 Delete the element of a corpus at POS.
If LIMIT is supplied, repeat for all entries until LIMIT.
If called interactively, pos defaults to the point in the
current buffer. If the region is active or, remove all entries
inside the region.
(fn POS &optional LIMIT)
(defalias 'diogenes--corpus-remove-element #[513 "\301\302!\303!\210\304\305\"\304\306\"\307\211\2035 W\2035 \302T!\262\2035 A@\262\307\262\202 \266\205B \211\205B |\262\266\202)\207" [inhibit-read-only t diogenes--get-corpus-element seqp seq--elt-safe 1 0 nil] 10 (#$ . 14048) (byte-code "\300 \203 \301 \302 D\207`C\207" [use-region-p region-beginning region-end] 2)])#@29 Rename the corpus at point.
(defalias 'diogenes--corpus-rename #[0 "\302`\303\"\304`\303\"\204 \305\306!\210\307\304`\310\"\311\312\313\206 \314\"!\315\211\316 \235\203, \305\317\"\210\320@A@\310$\210\212@b\210\321\322\323 !\324Q\307\315#\205Y \325\326\224!\327\330\331#\307\211\211\332%\262*\207" [inhibit-read-only diogenes--corpora-abbrevs diogenes--get-text-prop-boundaries corpus-id get-text-property error "No corpus under point!" nil corpus-name read-from-minibuffer format "Rename %s to: " "anonymous corpus" t diogenes--get-defined-corpus-names "Name `%s' already in use!" put-text-property re-search-forward "^\\[[0-9]*\\] \\(.*\\) (" regexp-opt "):$" text-properties-at 0 replace-match apply propertize 1] 11 (#$ . 14714) nil])#@42 Make a duplicate of the corpus at point.
(defalias 'diogenes--corpus-make-duplicate #[0 "\302`\303\"\304`\303\"\206 \305\306!\304`\307\"\211\203 \310\311\"\202 \312\313 \314\315\310\316\250\2032 T\2023 \317#!\205\250 \320\321\"\315\322!\203h \323\211\211\211\324\325!\262\235\204] \262\323\211\262\203c \323\262\202G \266\203\206p \205p \310\326\"db\210\327c\210\212\330\303\331 \307%c)\210\212\332\333\334 !\335Q\323\314#\205\245 \336\337\224!\340\320\330\310\341\"#\323\211\211\342%\262)\266\202)\207" [inhibit-read-only diogenes--corpora-abbrevs diogenes--get-text-prop-boundaries corpus-id get-text-property error "No corpus under point!" corpus-name format "corpus `%s'" "anonymous corpus" diogenes--get-defined-corpus-names t y-or-n-p "Make duplicate of %s [%s]" "" apply buffer-substring "Rename corpus? " nil read-from-minibuffer "Enter new name: " "Duplicate of `%s'" "\n" propertize gensym re-search-forward "^\\[\\(.*\\)(" regexp-opt "):$" text-properties-at 0 replace-match "] %s " 1] 14 (#$ . 15470) nil])#@67 Delete the corpus at point, both from the buffer and from memory.
(defalias 'diogenes--corpus-delete-corpus #[0 "\301`\302\"\303`\302\"\206 \304\305!\303`\306\"\211\203 \307\310\"\202 \311\262\312 \313\250\203N \314\307\315\"!\205p \316 \210\317\320\"\210\321 \210\322!\210\323 \210\211?\205p \324 \202p \211\203e \314\307\325\"!\205p \317\320\"\210\321 \202p \314\307\326\"!\205p \324 )\207" [inhibit-read-only diogenes--get-text-prop-boundaries corpus-id get-text-property error "No corpus under point!" corpus-name format "corpus `%s'" "anonymous corpus" diogenes--other-corpora-visited-p t y-or-n-p "Delete %s (changes cannot be undone)? " buffer-disable-undo apply delete-region delete-blank-lines diogenes--remove-user-corpus buffer-enable-undo kill-buffer "Delete %s? " "Delete %s and quit? "] 8 (#$ . 16522) nil])#@33 Save the changes in the corpora
(defalias 'diogenes--corpora-save #[0 "p\303\304!=\204\f \305\306!\210\212eb\210\307\211\211\211\211\310\311!\262\203\344 \312!>\204. \313\314\315D\"\210\316H\262\317\312!>\204D \313\314\315D\"\210\320H!\262\321\322\"\323\211\204\324 \212\312!>\204e \313\314\315D\"\210\320Hb\210\324\325\326\"\211\327\267\202\313 \307\211\211\211\330\331\332\333#!\262\334 \235\204\246 \335\322#\262B B\211\262\f\262\307\211\262\203\302 \336\337!\204\274 \340\341!\203\274 \307\262\307\211\262\203\302 \307\262\202x \266\202\320 \210\202\320 \305\342!\266)\202\334 BB\262)\210\307\262\202 \266\211\237\307\211:\203#@\262@\250\203\n@<\203\f\211\233A\240\266\202 AI\266\202 AB\262A\262\202\352 \211\237\266\203\343\n\"\210\344 \210\345 )\207" [cl-struct-prop-match-tags read-answer-short diogenes--user-corpora get-buffer "*diogenes-corpora*" error "Not in Diogenes Corpora!" nil text-property-search-forward corpus-id type-of signal wrong-type-argument prop-match 3 diogenes--read-user-corpus 1 plist-get :name t read-answer "Anonymous corpus encountered: (r)ename or (d)iscard " (("rename" 114 "rename the corpus") ("discard" 100 "discard the corpus")) #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("rename" 116 "discard" 199)) read-from-minibuffer format "Rename %s to: " "anonymous corpus" diogenes--get-defined-corpus-names plist-put y-or-n-p "Name already in use! Choose another name?" y-or-n-q "Are you sure you want to discard it?" "Flow error!" vconcat diogenes--save-user-corpora kill-buffer] 16 (#$ . 17362) nil])#@110 Execute diogenes--corpus-edit-callback.
If this variable is not bound in the current buffer, raise an
error.
(defalias 'diogenes--corpus-submit #[0 "p\301\302!=\204\f \303\304!\210\305\300!\204 \303\306!\210\307e!\310 \210!\207" [diogenes--corpus-edit-callback get-buffer "*diogenes-edit-corpus*" error "Not in Diogenes Edit Corpus" boundp "I do not know what to do, since the continuation function is not properly defined!" diogenes--read-user-corpus kill-buffer] 4 (#$ . 19026) nil])#@34 Manage all user defined corpora.
(defalias 'diogenes-manage-user-corpora #[0 "\302\303!\211\203 \304!\207\305 \210\304\306\303!!\210\307 \210\212\310\311 GS \312\313\211X\203L T\262GW\203L H\262\203E \314\"B\262T\262\202\" \211\237\266\206\315\316\317#\266\202c*\207" [inhibit-read-only diogenes--user-corpora get-buffer "*diogenes-corpora*" pop-to-buffer diogenes--load-user-corpora get-buffer-create diogenes-corpus-mode t 0 -1 nil diogenes--print-user-corpus "\n" mapconcat identity] 10 (#$ . 19521) nil])#@30 Add a new corpus after point
(defalias 'diogenes-add-user-corpus #[0 "\300 \301\302\303\304\305\306\257!\207" [diogenes--select-database #[257 "\301 \210db\210\302o\204 \303 \210\212\304\305 \"c*\207" [inhibit-read-only diogenes-manage-user-corpora t newline diogenes--print-user-corpus gensym] 4 "\n\n(fn CORPUS)"] diogenes--tr--create-user-corpus :type :callback :no-ask no] 9 (#$ . 20057) nil])#@186 Edit a user defined CORPUS.
If callback is supplied, it should either be nil or contain a
function that will be called when the user submits the corpus.
(fn CORPUS &optional CALLBACK)
(defalias 'diogenes-edit-user-corpus #[513 "\302\303\304!!\210\305 \210\211\306\307\310 \"c)\207" [diogenes--corpus-edit-callback inhibit-read-only pop-to-buffer get-buffer-create "*diogenes-edit-corpus*" diogenes-corpus-edit-mode t diogenes--print-user-corpus gensym] 5 (#$ . 20467)])#@210 QUERY if the CORPUS should be modified. If not, either return the
corpus or, when supplied, call CALLBACK on it. If NO-ASK is not nil, it should be the symbol YES or NO.
(fn CORPUS &optional CALLBACK NO-ASK)
(defalias 'diogenes--edit-user-corpus-or-execute #[769 "\204 \300\301!\210\211\302=\204 \211\204 \303\304!\203 \305\"\207\211\203, \211\306=\204, \300\307\"\207\2034 !\207\207" [error "Corpus must not be empty!" yes y-or-n-p "Show and edit selected authors and works? " diogenes-edit-user-corpus no "NO-ASK must be YES, NO, OR NIL, but is %s"] 6 (#$ . 20947)])#@90 Define a subset of the databases to be used for searching.
(fn TYPE &rest AUTHOR-PLIST)
(defalias 'diogenes--define-user-corpus #[385 "\300\301\302D#\211\205 \302\303F\207" [diogenes--get-info diogenes--define-corpus-script :type :authors] 7 (#$ . 21534)])#@77 Define a simple corpus for searching the Diogenes database TYPE.
(fn TYPE)
(defalias 'diogenes--define-simple-corpus #[257 "\300\301D!\211\205 \301\302F\207" [diogenes--select-author-nums :type :authors] 6 (#$ . 21802)])#@63 Define a corpus for searching using a perl regexp.
(fn TYPE)
(defalias 'diogenes--define-regexp-corpus #[257 "\300\301!\211\205\f \302\303#\207" [read-from-minibuffer "Select authors matching perl regex: " diogenes--define-user-corpus :author-regex] 6 (#$ . 22033)])#@78 Define a complex corpus for searching the TLG database.
(fn &optional ARGS)
(defalias 'diogenes--define-complex-tlg-corpus #[256 "\301\302 !\3032\304 \304\305\211\306\307\310\311\312\"\"\"\262\313\267\202\224 \305\262\314\315!\210\316\303\305\"\210\202\273 \2039 \316\303\305\"\210\202\273 \314\317!\210\320\321!\210\202\273 \322\323\324\325!#\262\202\273 \326\327\"\330\331\305\332$\330\333\305\332$\334\335!\205g \336\334\337!\205n \340\322\n\327F#\262\n\266\202\273 \322\341\334\342!\205\216 \343C#\262\202\273 \322\344\326\302 \"\345\346\347 !\"\350\326\f\n\"\351\352\353\354\355\356\357\360\361\362&#\262\305\262\202 \266\2030\210?\206S\363\334\305\211\211\315:\203\373 \262\211A\262\242\262@\262\211\345\364\347!#P\262AA\262\202\322 \266\204\365P!)\203N\366\367\370G\371\245\211\321V\203I\322\372\330\373\374\375\371V\205=\371S\305X\2039\376!B\262T\262\202%\211\237\266\203\"\305\332\305\211\377&#\202J\262#\207\201@ !\207" [max-mini-window-height copy-tree diogenes--get-tlg-categories --cl-block-nil-- ((103 . :genre) (120 . :genre_clx) (101 . :epithet) (108 . :location) (115 . :gender) (100 . :date) (97 . :author-regex) (99 . :confirm) (113 . :quit)) nil alist-get read-char-from-minibuffer "Select category [(c)onfirm, (q)uit]:\n(g)enre, genre_cl(x), (e)pithet, (l)ocation, (s)ex, (d)ate, (a)uthor regex: " mapcar car #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (:quit 30 :confirm 45 :author-regex 68 :date 80 :gender 131)) message "" throw "No values set; to quit, press q!" sit-for 1 plist-put :author-regex read-from-minibuffer "Select authors matching (perl) regex: " plist-get :date completing-read "Select a start date: " t "Select an end date: " y-or-n-p "Include varia? " :varia "Include incerta? " :incerta :gender "Filter for women authors?" "Femina " diogenes--filter-in-minibuffer format "Select a %s: " diogenes--keyword->string :initial-selection :remove-prompt "Remove from selection: " :remove-string "REMOVE" :all-string "ALL" :regexp-string "REGEXP" :commit-string "FINISHED" 0.8 "%s: %s\n" "\nPlease confirm this selection: " apply diogenes--define-user-corpus "tlg" 2 :criteria "How many of the categories should match? " append ("all" "any") number-to-string "all" diogenes--define-complex-tlg-corpus] 23 (#$ . 22308)])#@44 Construct a new corpus of TYPE.
(fn TYPE)
(defalias 'diogenes--new-user-corpus #[257 "\301\302B\303\304B\305!\205 \306\307B\310\230\205 \311\312BF\313\314\305!\205\" \315\310\230\205) \316F\317\320\321\322\323\324\"\"\323\324\"\"A!)\207" [read-answer-short "manual" diogenes--define-simple-corpus "regexp" diogenes--define-regexp-corpus diogenes--user-corpora-exist-p "saved" diogenes--select-user-corpus "tlg" "complex" #[257 "\300 \207" [diogenes--define-complex-tlg-corpus] 2 "\n\n(fn JUNK)"] ("manual" 109 "select authors manually") ("regexp" 114 "select authors matching (perl) regexp") ("saved" 115 "use a saved corpus") ("complex" 99 "define a complex corpus") t assoc read-answer "How would you like to define the corpus " cl-remove-if null] 9 (#$ . 24686)])#@17
(fn CATEGORY)
(defalias 'diogenes--define-tlg-category-argument '(macro . #[257 "\300\301\302\303\"!\304\305\306\307\302\310\"\311\302\312\n\313P\"\314\315\316\302\310\"\317\320\321\322\323\324\325\326\327\330\331\332\333\334!E\335BBEDEE\257\207" [transient-define-argument intern format "diogenes--tlg-%s" nil :class 'transient-option :description "Select a %s" :argument "%-14s" ": " :format " %k %d %v" :prompt :always-read t :reader let ((previous-selection nil)) lambda (prompt initial-input history) prin1-to-string setq previous-selection diogenes--filter-in-minibuffer plist-get (diogenes--get-tlg-categories) diogenes--string->keyword (prompt :initial-selection previous-selection :remove-prompt "Remove from selection: " :remove-string "REMOVE" :all-string "ALL" :regexp-string "REGEXP" :commit-string "FINISHED")] 29 (#$ . 25469)]))
(byte-code "\300\301\302\"\210\303\301\304\305#\210\303\301\306\307#\210\303\301\310\311#\210\303\301\312\313\314\301\315\316\317\320\321\322\323\316\324\305\325\311C\326\327\"\262&#\210\300\330\302\"\210\303\330\304\305#\210\303\330\306\307#\210\303\330\310\311#\210\303\330\312\313\314\330\315\331\317\332\321\322\323\331\324\305\325\311C\326\333\"\262&#\210\300\334\302\"\210\303\334\304\305#\210\303\334\306\307#\210\303\334\310\311#\210\303\334\312\313\314\334\315\335\317\336\321\322\323\335\324\305\325\311C\326\337\"\262&#\210\300\340\302\"\210\303\340\304\305#\210\303\340\306\307#\210\303\340\310\311#\210\303\340\312\313\314\340\315\341\317\342\321\322\323\341\324\305\325\311C\326\343\"\262&#\210\300\344\302\"\210\303\344\304\305#\210\303\344\306\307#\210\303\344\310\311#\210\303\344\312\313\314\344\317\345\321\322\323\346\324\305\325\347&\f#\210\300\350\302\"\210\303\350\304\305#\210\303\350\306\307#\210\303\350\310\311#\210\303\350\312\313\314\350\317\351\321\322\325\352&#\210\300\353\302\"\210\303\353\304\305#\210\303\353\306\307#\210\303\353\310\311#\207" [defalias diogenes--tlg-genre transient--default-infix-command put interactive-only t completion-predicate transient--suffix-only function-documentation nil transient--suffix transient-option :command :description "Select a genre" :argument "genre: " :format " %k %d %v" :prompt :always-read :reader make-closure #[771 "\301\300\302\303\304 \305\"\306\300\242\307\310\311\312\313\314\315\316\317\320&\240!\207" [V0 prin1-to-string diogenes--filter-in-minibuffer plist-get diogenes--get-tlg-categories :genre :initial-selection :remove-prompt #1="Remove from selection: " :remove-string #2="REMOVE" :all-string #3="ALL" :regexp-string #4="REGEXP" :commit-string #5="FINISHED"] 20 "\n\n(fn PROMPT INITIAL-INPUT HISTORY)"] diogenes--tlg-genre_clx "Select a genre_clx" "genre_clx: " #[771 "\301\300\302\303\304 \305\"\306\300\242\307\310\311\312\313\314\315\316\317\320&\240!\207" [V0 prin1-to-string diogenes--filter-in-minibuffer plist-get diogenes--get-tlg-categories :genre_clx :initial-selection :remove-prompt #1# :remove-string #2# :all-string #3# :regexp-string #4# :commit-string #5#] 20 "\n\n(fn PROMPT INITIAL-INPUT HISTORY)"] diogenes--tlg-epithet "Select a epithet" "epithet: " #[771 "\301\300\302\303\304 \305\"\306\300\242\307\310\311\312\313\314\315\316\317\320&\240!\207" [V0 prin1-to-string diogenes--filter-in-minibuffer plist-get diogenes--get-tlg-categories :epithet :initial-selection :remove-prompt #1# :remove-string #2# :all-string #3# :regexp-string #4# :commit-string #5#] 20 "\n\n(fn PROMPT INITIAL-INPUT HISTORY)"] diogenes--tlg-location "Select a location" "location: " #[771 "\301\300\302\303\304 \305\"\306\300\242\307\310\311\312\313\314\315\316\317\320&\240!\207" [V0 prin1-to-string diogenes--filter-in-minibuffer plist-get diogenes--get-tlg-categories :location :initial-selection :remove-prompt #1# :remove-string #2# :all-string #3# :regexp-string #4# :commit-string #5#] 20 "\n\n(fn PROMPT INITIAL-INPUT HISTORY)"] diogenes--tlg-date "date: " "Select a genre: " #[771 "\300\301\302 \303\"\304\305\306\307&\304\310\306\307 &\311\312!\205# \313\311\314!\205* \315F\266\205!\207" [prin1-to-string plist-get diogenes--get-tlg-categories :date completing-read "Select a start date: " nil t "Select an end date: " y-or-n-p "Include varia? " :varia "Include incerta? " :incerta] 13 "\n\n(fn PROMPT INITIAL-INPUT HISTORY)"] diogenes--tlg-gender "gender: " #[128 "\300\301!\207" [prin1-to-string ("Femina ")] 3 "\n\n(fn &rest _)"] diogenes--tlg-author-regex] 21)
(byte-code "\300\301\302\303\304\301\305\306\307\310\311\312\313\314&\n#\210\315\316\317\"\210\300\316\320\321#\210\300\316\322\323#\210\300\316\324\325#\210\300\316\302\303\304\316\305\326\311\312\307\327\330\331\332\321\333\325\334\335&#\207" [put diogenes--tlg-author-regex transient--suffix transient-option :command :argument "author-regex: " :prompt "Select authors matching (perl) regex: " :format " %k %d %v" :reader #[771 "\300\301#!\207" [prin1-to-string read-string] 8 "\n\n(fn PROMPT INITIAL-INPUT HISTORY)"] defalias diogenes--tlg-criteria transient--default-infix-command interactive-only t completion-predicate transient--suffix-only function-documentation nil "criteria: " "How many of the categories should match? " :choices ("any" "2" "3" "4" "5" "6" "all") :always-read :allow-empty :init-value #[257 "\300\301\302#\207" [eieio-oset value "any"] 5 "\n\n(fn O)"]] 20)#@14
(fn SCOPE)
(defalias 'diogenes--tr--complex-tlg-corpus #[257 "\300\301\302\211\303%\207" [transient-setup diogenes--tr--complex-tlg-corpus nil :scope] 7 (#$ . 30865) (byte-code "\3001\n \301 0\202 \210\202 \206 \302\303DC\207" [(error) transient-scope :type "tlg"] 2)])
(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\303D\313\316\317\320\321\322\310\323\257E\313\316\317\324\321\325\310\326\257E\313\316\317\327\321\330\310\331\257E\313\316\317\332\321\333\310\334\257E\313\316\317\335\321\336\310\337\257E\313\316\317\340\321\341\310\342\257E\313\316\317\343\321\344\310\345\257E\346\313\316\317\347\321\350\310\351\257E\313\316\317\352\321\353\310\300\354\302\303#\210\300\354\355\356#\210\357\354\360\"\210\354\257E\257\n$C#\207" [put diogenes--tr--complex-tlg-corpus interactive-only t function-documentation "Define a complex tlg corpus using transient." transient--prefix transient-prefix :command transient--layout vector 1 transient-column :pad-keys transient-suffix :key "a" :description "Author name " diogenes--tlg-author-regex "d" "Author's date " diogenes--tlg-date "l" "Author's location " diogenes--tlg-location "w" "Women authors only " diogenes--tlg-gender "e" "Author's epithet " diogenes--tlg-epithet "g" "Text Genre " diogenes--tlg-genre "x" "Text Genre (ext.) " diogenes--tlg-genre_clx "" "c" "Criteria to match " diogenes--tlg-criteria "<RET>" "CONFIRM" transient:diogenes--tr--complex-tlg-corpus:CONFIRM completion-predicate transient--suffix-only defalias #[0 "\300\301!\302\211\211\211\211\211:\203H @\262\303\304\"\262\211A\262\242\262@\262\305!\306\230\2034 \2027 \307!D\237\244\262A\262\302\262\202 \237\266\207\310\311\312#\211\203c \313\314\315 \316\"\314\315 \317\"#\207\320\321!\210\322\301\302\211\323\315 %\207" [transient-args diogenes--tr--complex-tlg-corpus nil diogenes--split-once ":[[:space:]]+" diogenes--string->keyword "criteria" read apply diogenes--define-user-corpus "tlg" diogenes--edit-user-corpus-or-execute plist-get transient-scope :callback :no-ask message "No results for these criteria!" transient-setup :scope] 10 nil nil]] 27)#@15
(fn METHOD)
(defalias 'diogenes--tr--define-user-corpus #[257 "\211\300\267\202 \301\202 \302\202 \303\304\305 \306\"!\211\203' \307\304\305 \310\"\304\305 \311\"#\207\312\313!\210\314\315\316\211\317\305 %\207" [#s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (saved 6 regexp 10)) diogenes--select-user-corpus diogenes--define-regexp-corpus diogenes--define-simple-corpus plist-get transient-scope :type diogenes--edit-user-corpus-or-execute :callback :no-ask message "No results for these criteria!" transient-setup diogenes--tr--create-user-corpus nil :scope] 8 (#$ . 33087)])#@14
(fn SCOPE)
(defalias 'diogenes--tr--create-user-corpus #[257 "\300\301\302\211\303%\207" [transient-setup diogenes--tr--create-user-corpus nil :scope] 7 (#$ . 33715) (byte-code "\203 \301 \202 \302\303 DC\207" [transient--prefix transient-scope :type diogenes--select-database] 2)])
(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\300\323\302\303#\210\300\323\324\325#\210\326\323\327\"\210\323\257E\313\317\320\330\315\331\310\300\332\302\303#\210\300\332\324\325#\210\326\332\333\"\210\332\257E\313\317\320\334\315\335\310\300\336\302\303#\210\300\336\324\325#\210\326\336\337\"\210\336\340\341\257E\313\317\320\342\315\343\310\344\340\345\257EF$C#\210\346\347!\207" [put diogenes--tr--create-user-corpus interactive-only t function-documentation "Construct a new corpus of TYPE." transient--prefix transient-prefix :command transient--layout vector 1 transient-column :description "How would you like to define the corpus?" transient-suffix :key "m" "Select authors manually" transient:diogenes--tr--create-user-corpus:m completion-predicate transient--suffix-only defalias #[0 "\300\301!\207" [diogenes--tr--define-user-corpus simple] 2 nil nil] "r" "Select authors matching (perl) regexp" transient:diogenes--tr--create-user-corpus:r #[0 "\300\301!\207" [diogenes--tr--define-user-corpus regexp] 2 nil nil] "s" "Use saved user corpus" transient:diogenes--tr--create-user-corpus:s #[0 "\300\301!\207" [diogenes--tr--define-user-corpus saved] 2 nil nil] :if #[0 "\300\301\302 \303\"!\207" [diogenes--user-corpora-exist-p plist-get transient-scope :type] 4] "c" "Define a complex TLG corpus" diogenes--tr--complex-tlg-corpus #[0 "\300\301 \302\"\303\230\207" [plist-get transient-scope :type "tlg"] 3] provide diogenes-corpora] 20)