-
Notifications
You must be signed in to change notification settings - Fork 3
/
Copy pathdiogenes-search.elc
126 lines (92 loc) · 25.8 KB
/
diogenes-search.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
;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!\207" [require cl-lib seq replace transient diogenes-lisp-utils diogenes-user-interface diogenes-perseus diogenes-forms diogenes-corpora] 2)#@32 Dummmy function.
(fn PATTERN)
(defalias 'diogenes--process-pattern #[257 "\207" [] 2 (#$ . 349)])#@57 Determine the probable language of a corpus.
(fn TYPE)
(defalias 'diogenes--probable-corpus-language #[257 "\211\300\267\202 \301\207\302\207\303\207\304\207\305\306\"\207" [#s(hash-table size 7 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("ddp" 6 "tlg" 6 "phi" 8 "misc" 10 "chr" 10 "ins" 10 "cop" 12)) "greek" "latin" "" "coptic" error "Language not yet implemented for %s"] 4 (#$ . 453)])#@41 Basic mode map for the Diogenes Search.
(defvar diogenes-search-mode-map (byte-code "\301 \244\302\303\304#\210\302\305\304#\210\302\306\304#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\207" [text-mode-map make-sparse-keymap keymap-set "RET" diogenes-search-browse-passage "C-c C-c" "<double-mouse-1>" "n" diogenes-search-next "p" diogenes-search-previous "d" diogenes-search-delete "u" diogenes-undo "q" diogenes--ask-and-quit] 5) (#$ . 875))
(defvar diogenes-search-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-search-mode-hook variable-documentation put "Hook run after entering Diogenes Search 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-search-mode-map definition-name diogenes-search-mode] 4)
(defvar diogenes-search-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-search-mode-abbrev-table diogenes-search-mode-map variable-documentation put purecopy "Keymap for `diogenes-search-mode'." boundp diogenes-search-mode-syntax-table definition-name diogenes-search-mode defvar-1 nil make-syntax-table "Syntax table for `diogenes-search-mode'." define-abbrev-table "Abbrev table for `diogenes-search-mode'." derived-mode-parent text-mode] 5)#@251 Major mode to search Diogenes' databases.
In addition to any hooks its parent mode `text-mode' might have run,
this mode runs the hook `diogenes-search-mode-hook', as the final or
penultimate step during initialization.
\{diogenes-search-mode-map}
(defalias 'diogenes-search-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\306\332!\210\306\333!\210\307 \334 )\210\335\336!\207" [delay-mode-hooks major-mode mode-name diogenes-search-mode-map diogenes-search-mode-syntax-table diogenes-search-mode-abbrev-table make-local-variable t text-mode diogenes-search-mode "Diogenes Search" 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--search-active-block diogenes--search-language diogenes--search-corpus visual-line-mode run-mode-hooks diogenes-search-mode-hook local-abbrev-table buffer-read-only] 5 (#$ . 2584) nil])#@20
(fn PROC STRING)
(defalias 'diogenes--search-filter #[514 "\302\303!!\205\216 r\303!q\210m\205 o?\205 `\304\212\305!b\210\214``}\210c\210\305!`\306\223\210eb\210\307\310\311\"\210\212m\204\202 `\312=\203S \313\314\306\304#\203h \315\316\225\202e \315=\203h \313\317\306\304#\203h \312\316\225\206j db\320\321\267\202{ \322\202| \323\202| \306#\266\2028 +\211\205\213 \305!b*\262\207" [inhibit-read-only diogenes--search-active-block buffer-live-p process-buffer t process-mark nil mapc #[257 "\212\300@\301\302#\205 \303A!\210\202 )\207" [re-search-forward nil t replace-match] 5 "\n\n(fn SUBST)"] ((" " . "") ("~" . "_")) body re-search-forward "_\n" header 0 "\n\n" add-text-properties #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (header 115 body 119)) (header t font-lock-face shr-h2) (body t)] 11 (#$ . 3786)])#@141 Get the boundaries of the active passage.
Returns the start position, the boundary between header and body,
and the end as alist.
(fn POS)
(defalias 'diogenes--search-get-entry #[257 "\300\301\"\2032 \211eV\203 \300S\302\"\203 \211\206! \303\301\"\206! e\304\301\"\304\302\"\206- dE\207\300\302\"\203_ \304\302\"\206A d\300S\301\"\203N S\206R \303\301\"\303\301\"\206Z e\211E\207\305\306!\207" [get-text-property header body previous-single-property-change next-single-property-change error "No entry at point"] 7 (#$ . 4673)])#@69 Get the header of the active passage, as s list of lines.
(fn POS)
(defalias 'diogenes--search-get-header-lines #[257 "\300!\301\302@A@{!\303\"\207" [diogenes--search-get-entry split-string string-trim "\n"] 6 (#$ . 5225)])#@65 Returns the beginning and end of the entry after POS.
(fn POS)
(defalias 'diogenes--search-next-entry #[257 "\300!\211AA@dY\204 \301AA@T\302\"\204 \303\304!\207\300AA@T!\207" [diogenes--search-get-entry get-text-property header error "No further entry!"] 5 (#$ . 5458)])#@66 Returns the beginning and end of the entry before POS.
(fn POS)
(defalias 'diogenes--search-previous-entry #[257 "\300!\211@eX\203 \301\302!\207\300@S!\207" [diogenes--search-get-entry error "No previous entry!"] 4 (#$ . 5740)])#@105 Deletes the entry at POS.
This function makes sure that the full citation remains accessible.
(fn POS)
(defalias 'diogenes--search-delete-entry #[257 "\301!\302!\303\304\305@\"\211\205 \3061 \307!0\202 \210\310\211\205- \304\305\311@A@\"\"?\211\203I A@b\210\312\313!\210\314@\\`|\210\315\316\317!\"\210\266@AA@|\210\3201a \301`!A@b0\202c \210\310)\207" [inhibit-read-only diogenes--search-get-entry diogenes--search-get-header-lines t string-match "(\\([0-9]+\\): \\([0-9]+\\)) *$" (error) diogenes--search-next-entry nil buffer-substring-no-properties beginning-of-line -1 2 mapc #[257 "\211c\210\300 \207" [newline] 2 "\n\n(fn S)"] butlast (error)] 10 (#$ . 5979)])#@56 Get the full citation of the entry at point.
(fn POS)
(defalias 'diogenes--search-get-citation #[257 "\300!\301\302\303\304!@\305\"\"\306\307@\"\203# \310\311@\"\310\312@\"D\2028 \212\313\307!\2034 \310\311!\310\312!D\2027 \314\315!)\211\244\207" [diogenes--search-get-header-lines mapcar #[257 "\300\301\"\205 \302\303\"\207" [string-match "\\S-+$" match-string-no-properties 0] 4 "\n\n(fn S)"] split-string last "," string-match "(\\([0-9]+\\): \\([0-9]+\\)) *$" match-string-no-properties 1 2 re-search-backward error "Could not find full citation!"] 7 (#$ . 6670)])#@60 Move to the beginning of the next passage found.
(fn POS)
(defalias 'diogenes-search-next #[257 "\300!A@b\207" [diogenes--search-next-entry] 3 (#$ . 7255) "d"])#@64 Move to the beginning of the previous passage found.
(fn POS)
(defalias 'diogenes-search-previous #[257 "\300!A@b\207" [diogenes--search-previous-entry] 3 (#$ . 7423) "d"])#@40 Delete the passage at point.
(fn POS)
(defalias 'diogenes-search-delete #[257 "\300!\207" [diogenes--search-delete-entry] 3 (#$ . 7603) "d"])#@52 Open the passage at point in the browser
(fn POS)
(defalias 'diogenes-search-browse-passage #[257 "\301\302D\303!\"\207" [diogenes--search-corpus diogenes--browse-work :type diogenes--search-get-citation] 5 (#$ . 7752) "d"])#@22
(fn PROCESS EVENT)
(defalias 'diogenes--search-sentinel #[514 "\301\302!!\205+ r\302!q\210\211\303\232\205* \212\304db\210\305\306!\210\307\310\311\312\313!\314\315#P!*)\207" [inhibit-read-only buffer-live-p process-buffer "finished\n" t re-search-backward "\nPassages found: \\([0-9]+\\).*" replace-match "\nPassages found: " propertize match-string-no-properties 1 font-lock-face success] 8 (#$ . 7985)])#@98 Function that executes a search query in the Diogenes Databases.
(fn OPTIONS &optional AUTHORS)
(defalias 'diogenes--do-search #[513 "\303\304\305\"\306\307$\210\310 \210\311\312\313\"\314 !\211\207" [diogenes--search-active-block diogenes--search-corpus diogenes--search-language diogenes--start-perl "search" diogenes--search-script diogenes--search-filter diogenes--search-sentinel diogenes-search-mode header plist-get :type diogenes--probable-corpus-language] 7 (#$ . 8402)])#@244 Select a custom sub-corpus of TYPE.
When SIMPLE is supplied, construct a simple corpus manually. If
FUNCTION is supplied, allow the user to edit the corpus manually.
We he submits the corpus, call CALLBACK
(fn TYPE &optional SIMPLE CALLBACK)
(defalias 'diogenes--search-select-authors #[769 "\300\301\302\"!?\205 \203 \303!\202 \304!\203 \305\"\207\211\205* \306\307\310\"D\207" [y-or-n-p format "Search the whole %s? " diogenes--define-simple-corpus diogenes--new-user-corpus diogenes--edit-user-corpus-or-execute :author-nums plist-get :authors] 8 (#$ . 8896)])#@191 Search for a phrase in Diogenes database using the Diogenes Perl Module.
This function is the generic dispacher for all corpora.
(fn TYPE &optional OPTIONS-OR-PATTERN AUTHOR-PLIST PREFIX)
(defalias 'diogenes--search-database #[1025 "\211\300=\203 \301\302\303\304!!D\262\202\267 \211\203\237 \305\211\306\211\203% \302\303\307!!\202* \302\303\310!!\262\311\305\312\306$\266\204\204F B\262\305\262\202 \237\266\203\303\313!\314\315\316\317\320\305\321X\203j \322\323\"BB\262T\262\202S \211\237\266\202\"\305\306\305\211\324&\325\326\300\"\316\205\202 \327D\205\211 \330D\205\220 \331D\205\227 \332D$\262\266\202\267 ;\203\254 \301D\262\202\267 \333!\204\267 \334\335\"\210\336\337#\262\340\206\314 \341\300=\"\"\207" [1 :pattern diogenes--process-pattern read-from-minibuffer "Enter search term: " nil t "With pattern: " "And with pattern: " "\\`[ \n]*\\'" string-match "Without pattern: " completing-read "In context: " append (("sentence" . "sent") ("paragraph" . "para") ("1 line" . 1)) 2 100 format "%d lines" "sent" read-number "Minimum matches in context: " :pattern-list :reject-pattern :context :min-matches plistp error "%s must be either a string (pattern) or a plist!" plist-put :type diogenes--do-search diogenes--search-select-authors] 16 (#$ . 9479)])#@22
(fn PROCESS EVENT)
(defalias 'diogenes--indexed-search-sentinel #[514 "\301\302!!\205; r\302!q\210\211\303\232\205: \212\304db\210\305\306!\210\307\310\311\312\313!\314\315#P!\210\316\317!\210\307\320\311\312\313!\314\315#P!*)\207" [inhibit-read-only buffer-live-p process-buffer "finished\n" t re-search-backward "\nIncidence of all words as reported by word list: \\([0-9]+\\).*" replace-match "\nIncidence of all words as reported by word list: " propertize match-string-no-properties 1 font-lock-face success re-search-forward "\nPassages containing those words reported by Diogenes: \\([0-9]+\\).*" "\nPassages containing those words reported by Diogenes: "] 8 (#$ . 10799)])#@113 Function that executes an indexed search query in the Diogenes Databases.
(fn OPTIONS WORDS &optional AUTHORS)
(defalias 'diogenes--do-wordlist-search #[770 "\303\304\305#\306\307$\210\310 \210\311\312\313\"\314 !\211\207" [diogenes--search-active-block diogenes--search-corpus diogenes--search-language diogenes--start-perl "search" diogenes--indexed-search-script diogenes--search-filter diogenes--indexed-search-sentinel diogenes-search-mode header plist-get :type diogenes--probable-corpus-language] 9 (#$ . 11491)])#@43
(fn &optional PATTERN-OR-FORMS AUTHORS)
(defalias 'diogenes--tlg-wordlist-search #[512 "\206 \300\301!\211;\203 \302\303\304\"\305\306\"#\207\211<\203= \303\307\"\203+ \211\310D!\207\311\312!\2035 \211\313!\207\314\315\316\317F!\207\320\321\"\207" [read-from-minibuffer "Please enter a pattern for searching the TLG word-list: " diogenes--select-from-tlg-wordlist make-closure #[257 "\301\300\"\207" [V0 diogenes--tlg-wordlist-search] 4 "\n\n(fn L)"] format "Entries in the TLG word list matching %s:" #[257 "\301\302\303D\300\205 \304\305\306\"D#\207" [V0 diogenes--do-wordlist-search :type "tlg" :author-nums plist-get :authors] 8 "\n\n(fn CORPUS)"] :authors y-or-n-p "Search the whole TLG? " nil diogenes--tr--create-user-corpus :type "tlg" :callback error "Invalid type %s"] 9 (#$ . 12025)])#@73 Returns a list of all attested forms of LEMMA in LANG.
(fn LEMMA LANG)
(defalias 'diogenes--lemma-forms-list #[514 "\300\"\206 \301\302\"\211G\303V\203 \304\305\306\"\"\202 \211@\262\307\310\311AAA\"!\207" [diogenes--get-all-forms error "No results for %s" 1 assoc completing-read "Please choose a lemma: " cl-remove-duplicates mapcar car] 7 (#$ . 12843)])#@104 Returns a regexp that matches all forms of a given lemma.
(fn LEMMA LANG &optional RETAIN-DIACRITICS)
(defalias 'diogenes--lemma-regexp #[770 "\300\301\302\303#\304\"\"!\207" [regexp-opt mapcar make-closure #[257 "\300\203 \302\202 \303\301\304\230\203 \305\202 \302!!\207" [V0 V1 identity diogenes--strip-diacritics "greek" diogenes--beta-to-utf8] 4 "\n\n(fn E)"] diogenes--lemma-forms-list] 9 (#$ . 13217)])#@46
(fn TYPE &optional LEMMA-OR-FORMS AUTHORS)
(defalias 'diogenes--morphological-search #[769 "\206 \300\301\302\226\"!\211;\203& \303\304!\305!\306\307 #\301\310\"$\207\211<\203e \311\304\"\312\232\203> \306\313#\202D \306\314#\203N \211\315D!\207\316\301\317\"!\203\\ \211\320!\207\321\322\323F!\207\324\325\"\207" [read-from-minibuffer format "Please enter a lemma for searching the %s: " diogenes--select-forms diogenes--utf8-to-beta diogenes--probable-corpus-language make-closure #[257 "\302\301\300#\207" [V0 V1 diogenes--morphological-search] 5 "\n\n(fn L)"] "Search for the following forms of %s:" mapcar "tlg" #[257 "\302\303\301D\300\205 \304\305\306\"D#\207" [V0 V1 diogenes--do-wordlist-search :type :author-nums plist-get :authors] 8 "\n\n(fn CORPUS)"] #[257 "\302\303\301\304\300F\205 \305\306\307\"D\"\207" [V0 V1 diogenes--do-search :type :pattern-list :author-nums plist-get :authors] 7 "\n\n(fn CORPUS)"] :authors y-or-n-p "Search the whole %s? " nil diogenes--tr--create-user-corpus :type :callback error "Invalid type %s"] 11 (#$ . 13645)])
(defalias 'diogenes--search-test #[0 "\300\301!\207" [transient-setup diogenes--search-test] 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\300\323\302\303#\210\300\323\324\325#\210\326\323\327\"\210\323\330\331\257E\313\317\320\332\315\333\310\300\334\302\303#\210\300\334\324\325#\210\326\334\335\"\210\334\330\331\257E\313\317\320\336\315\337\310\300\340\302\303#\210\300\340\324\325#\210\326\340\341\"\210\340\330\331\257E\313\317\320\342\315\343\310\300\344\302\303#\210\300\344\324\325#\210\326\344\345\"\210\344\330\331\257E\313\317\320\346\315\347\310\300\350\302\303#\210\300\350\324\325#\210\326\350\351\"\210\350\330\331\257E\313\317\320\352\315\353\310\300\354\302\303#\210\300\354\324\325#\210\326\354\355\"\210\354\330\331\257E\257$C#\207" [put diogenes--search-test interactive-only t function-documentation "A simple test dispatcher." transient--prefix transient-prefix :command transient--layout vector 1 transient-column :description "Test Dispatcher" transient-suffix :key "g" "Search TLG" transient:diogenes--search-test:Search\ TLG completion-predicate transient--suffix-only defalias #[0 "\300\207" [nil] 1 nil nil] :transient transient--do-recurse "l" "Search PHI" transient:diogenes--search-test:Search\ PHI #[0 "\300\301\302\211\303\304\305D%\207" [transient-setup diogenes--search--select-mode nil :scope :type "phi"] 7 nil nil] "d" "Search the Duke Documentary Papyri" transient:diogenes--search-test:d #[0 "\300\301\302\211\303\304\305D%\207" [transient-setup diogenes--search--select-mode nil :scope :type "ddp"] 7 nil nil] "i" "Search the Classical Inscriptions" transient:diogenes--search-test:i #[0 "\300\301\302\211\303\304\305D%\207" [transient-setup diogenes--search--select-mode nil :scope :type "ins"] 7 nil nil] "c" "Search the Christian Inscriptions" transient:diogenes--search-test:c #[0 "\300\301\302\211\303\304\305D%\207" [transient-setup diogenes--search--select-mode nil :scope :type "chr"] 7 nil nil] "m" "Search the Miscellaneous PHI Texts" transient:diogenes--search-test:m #[0 "\300\301\302\211\303\304\305D%\207" [transient-setup diogenes--search--select-mode nil :scope :type "misc"] 7 nil nil]] 23)#@14
(fn SCOPE)
(defalias 'diogenes--search--select-mode #[257 "\300\301\302\211\303%\207" [transient-setup diogenes--search--select-mode nil :scope] 7 (#$ . 17015) (byte-code "\203\f \301\302 \303\"\202 \303\304 DC\207" [transient--prefix plist-get transient-scope :type diogenes--select-database] 3)])
(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\312\313\317\320\313\321\322\323\315\324\310\300\325\302\303#\210\300\325\326\327#\210\330\325\331\"\210\325\257E\313\321\322\332\315\333\310\300\334\302\303#\210\300\334\326\327#\210\330\334\335\"\210\334\257E\313\321\322\336\315\337\310\340\341\342\257E\313\321\322\343\315\344\310\300\345\302\303#\210\300\345\326\327#\210\330\345\346\"\210\345\347\350\257EF$C$C#\210\330\351\352\"\210\300\351\302\303#\210\300\351\326\327#\210\300\351\304\353#\210\300\351\354\355\310\351\356\320\357\360\361\362\363\364\365\366\367\303\370\303&#\207" [put diogenes--search--select-mode interactive-only t function-documentation "Select the mode of the search, and dispatch." transient--prefix transient-prefix :command transient--layout vector 1 transient-columns :description #[0 "\300\301\302\303 \304\"\226\"\207" [format "Select the mode for searching the %s" plist-get transient-scope :type] 5] transient-column nil transient-suffix :key "s" "Simple" transient:diogenes--search--select-mode:Simple completion-predicate transient--suffix-only defalias #[0 "\300\301\302 \303\"!\207" [diogenes--simple-search plist-get transient-scope :type] 4 nil nil] "l" "Lemma" transient:diogenes--search--select-mode:Lemma #[0 "\300\301\302 \303\"!\207" [diogenes--morphological-search plist-get transient-scope :type] 4 nil nil] "a" "Advanced" diogenes--advanced-search :transient transient--do-stay "w" "Wordlist" transient:diogenes--search--select-mode:Wordlist #[0 "\300 \207" [diogenes--tlg-wordlist-search] 1 nil nil] :if #[0 "\300\301 \302\"\303\230\207" [plist-get transient-scope :type "tlg"] 3] diogenes--search-mode-infix transient--default-infix-command "Infix for choosing the search mode." transient--suffix transient-option :allow-empty :argument "" :choices ("simple" "wordlist" "lemma") :init-value #[257 "\300\301\302#\207" [eieio-oset value "simple"] 5 "\n\n(fn OBJ)"] :format "%k %d %v" :always-read :unsavable] 25)#@84 Start a simple search in corpus of TYPE.
(fn TYPE &optional PATTERN AUTHOR-PLIST)
(defalias 'diogenes--simple-search #[769 "\300\301\302\206 \303\304\305!!F\206% \306\307\310\"!?\205% \311\312\301D!D\"\207" [diogenes--do-search :type :pattern diogenes--process-pattern read-from-minibuffer "Enter search term: " y-or-n-p format "Search the whole %s corpus? " :author-nums diogenes--select-author-nums] 10 (#$ . 19363)])#@94 Read search term for use in transient interface
(fn PROMPT &optional INITIAL-INPUT HISTORY)
(defalias 'diogenes--read-search-term #[769 "\300\3012 \211!0\207" [#[257 "\300\301!\211\302\300\303\304$\266\204\204 \305\306\"\262\300\202* \307\310!\210\311\312!\210\262\313\262\262\204 \207" [nil read-from-minibuffer "\\`[ \n]*\\'" string-match t format "\"%s\"" message "Input must not be blank!" sit-for 0.5 :recurse] 13 "\n\n(fn PROMPT)"] minibuffer-quit] 6 (#$ . 19797)])
(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\324\325\305&\f#\210\300\326\302\"\210\303\326\304\305#\210\303\326\306\307#\210\303\326\310\327#\210\303\326\312\313\314\326\315\330\331\332\317\320\321\333\323\334\325\305\335\336&#\210\300\337\302\"\210\303\337\304\305#\210\303\337\306\307#\210\303\337\310\340#\210\303\337\312\313\314\337\315\341\331\342\317\320\321\343\323\344\325\305\335\345&#\210\300\346\302\"\210\303\346\304\305#\210\303\346\306\307#\210\303\346\310\347#\210\303\346\312\313\314\346\315\350\331\351\317\320\321\352\325\305\353\354\355\356\335\357&#\210\300\360\302\"\210\303\360\304\305#\210\303\360\306\307#\210\303\360\310\361#\210\303\360\312\313\314\360\315\362\331\363\317\320\321\364\325\305\353\354\355\365\335\366&#\207" [defalias diogenes--search-pattern transient--default-infix-command put interactive-only t completion-predicate transient--suffix-only function-documentation "Enter a search pattern." transient--suffix transient-option :command :description "With pattern" :format " %k %v" :prompt "With pattern: " :reader diogenes--read-search-term :always-read diogenes--minimum-matches "The minium number of matches in the defined context" "Minimum matches" :argument "minimum matches: " "Minium matches: " transient-read-number-N+ :init-value #[257 "\300\301\302#\207" [eieio-oset value "1"] 5 "\n\n(fn OBJ)"] diogenes--in-context "The context of the search" "In context" "in context: " "In context: " #[771 "\300\301\302\303\304\305X\203 \306\307\"BB\262T\262\202 \211\237\266\202\"\304\310\311&\207" [completing-read append (("sentence" . "sent") ("paragraph" . "para") ("1 line" . 1)) 2 nil 100 format "%d lines" t "sent"] 12 "\n\n(fn PROMPT INITIAL-INPUT HISTORY)"] #[257 "\300\301\302#\207" [eieio-oset value "sentence"] 5 "\n\n(fn OBJ)"] diogenes--input-lang "The input language.\nFor this to work, `dynamic-type' has to be dynamically bound to\nthe the corpus (TYPE) that is to be searched" "The input language" "input language: " "Select input language: " :allow-empty nil :choices ("greek" "latin" "coptic") #[257 "\300\301 \302\"\205 \303\304\305\306\307\300\301 \302\"!\"#\207" [plist-get transient-scope :type eieio-oset value format "%s" diogenes--probable-corpus-language] 10 "\n\n(fn O)"] diogenes--input-encoding "The input encoding." "The input encoding" "input encoding: " "Select input encoding: " ("Unicode" "BETA code" "raw") #[257 "\300\301\302#\207" [eieio-oset value "Unicode"] 5 "\n\n(fn O)"]] 22)#@16
(fn PATTERN)
(defalias 'diogenes--search--ad-pattern #[257 "\300\301\302\303\304D#\210\305\301!\207" [transient-insert-suffix diogenes--advanced-search (0 0) "p" pwd transient-setup] 6 (#$ . 22886) "sWith pattern: "])#@33
(fn SCOPE &optional PATTERNS)
(defalias 'diogenes--advanced-search #[513 "\300\211\301X\203 \302\303\300\304\305\306\\\"D\"\210\211T\262\202 \210\300\306\307:\203f @\262\211\203f \310\303\300D\304\305\"\311\304\312\nT\"\313\314\315\316\317\320\321\322\323\324\325\326\327\330\304\331\"FE\257#\210T\262T\262A\262\202 \266\332\303\307\211\333%\207" [0 25 transient-remove-suffix diogenes--advanced-search format "p%c" 97 nil transient-insert-suffix "With pattern" "pattern %d: " :class transient-option :format " %k %v" :prompt "With pattern: " :reader diogenes--read-search-term :init-value lambda (o) oset o value "\"%s\"" transient-setup :scope] 29 (#$ . 23111) (byte-code "\3001\n \301 0\202 \210\202 \206 \302\303 D\304\211\305\211\203$ \306\307\310!!\202) \306\307\311!!\262\312\304\313\305$\266\204\204E B\262\304\262\202 \237\266\203D\207" [(error) transient-scope :type diogenes--select-database nil t diogenes--process-pattern read-from-minibuffer "With pattern: " "And with pattern: " "\\`[ \n]*\\'" string-match] 13)])
(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\310\322\323\324\325\326\327\330\257\nEC$\312\313\314\331\313\317\320\332\310\333FE\313\317\320\334\310\335FE\313\317\320\336\310\337FE\313\317\320\340\310\341FEF$\312\313\314\331\313\317\320\342\315\343\310\300\344\302\303#\210\300\344\345\346#\210\347\344\350\"\210\344\257EC$E#\210\351\352!\207" [put diogenes--advanced-search interactive-only t function-documentation "Start a advanced search." transient--prefix transient-prefix :command transient--layout vector 1 transient-column :description #[0 "\300\301\302\303 \304\"\206 \305\226\"\207" [format "ADVANCED %s SEARCH" plist-get transient-scope :type ""] 5] transient-suffix :key "r" diogenes--search-pattern :argument "reject pattern: " :prompt "Without pattern: " :format " %k %v" nil "c" diogenes--in-context "m" diogenes--minimum-matches "l" diogenes--input-lang "e" diogenes--input-encoding "<RET>" "DO SEARCH" transient:diogenes--advanced-search:DO\ SEARCH completion-predicate transient--suffix-only defalias #[0 "\300\301 \302\"\303\304\211\305\306!\304\211\211\211\211:\203g @\262\307\310\"\262\211A\262\242\262@\262\311\312\"\203? \313\314OB\262\202] \315\n\"AB\262\316\230\203W \313\314O\202X B\262A\262\304\262\202 \302\n\317\n\237F\237\244\266\210\320\321\"\322!\210\300\317\"\204\224 \323\324!\210\325 \210\326\306\304\211\327\301 %\207\330\331\332\"!\203\242 \211\304!\207\333\302\334F!\207" [plist-get transient-scope :type (("reject pattern" . :reject-pattern) ("in context" . :context) ("minimum matches" . :min-matches) ("input language" . :input-lang) ("input encoding" . :input-encoding)) nil transient-args diogenes--advanced-search diogenes--split-once ":[[:space:]]+" string-prefix-p "pattern" 1 -1 assoc "reject pattern" :pattern-list make-closure #[257 "\301\300\205\f \302\303\304\"D\"\207" [V0 diogenes--do-search :author-nums plist-get :authors] 7 "\n\n(fn CORPUS)"] print message "You have to specify at least one pattern!" transient-set transient-setup :scope y-or-n-p format "Search the whole %s? " diogenes--tr--create-user-corpus :callback] 14 nil nil] provide diogenes-search] 20)