diogenes-perseus.elc

;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!\207" [require cl-lib seq diogenes-lisp-utils diogenes-utils diogenes-perl-interface] 2)#@17 

(fn STR LANG)
(defalias 'diogenes--perseus-ensure-utf8 #[514 "\211\300\230\203\n\301!\207\302\303\304\302\305\306##\207" ["greek" diogenes--perseus-beta-to-utf8 replace-regexp-in-string "\\^" "̆" "_" "̄"] 9 (#$ . 245)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put diogenes--perseus-ensure-utf8 speed -1 put byte-optimizer byte-compile-inline-expand] 5)#@64 Keymap that calls the perseus-action-command on certain
words.
(defconst diogenes-perseus-action-map (byte-code "\300 \301
\302\303#\210\301
\304\303#\210\301
\305\303#\210\301
\306\303#\210\207" [make-sparse-keymap keymap-set "RET" diogenes-perseus-action "C-c C-c" "<double-mouse-1>" "<mouse-2>"] 5) (#$ . 633))#@85 Try to read forward from a file until the next newline.

(fn FILE FILE-POS BUFSIZE)
(defalias 'diogenes--read-forward-until-newline #[771 "
\205Y\300\211\211\211\211\301\302\300\303#\262\203!D\262
\300\211\262\202\"\303\203Wdb\210\304\300	\211\n\\$A@\262\305U\203G\300\262
\300\211\262\202H\303\203W\\\262\300\262\202	\266\204\207" [nil re-search-forward "\n" t insert-file-contents-literally 0] 14 (#$ . 952)])#@87 Try to read backward from a file untilg the next newline.

(fn FILE FILE-POS BUFSIZE)
(defalias 'diogenes--read-backward-until-newline #[771 "
\205{\300\211\211\211\211\301\302\300\303#\262\203\"TD\262
\300\211\262\202#\303\203y\211\304W\262
\2034\305\306!\210eb\210\307\300		Z\211\304V\203J\211\202K\304\262
\n$A@\262\304U\203f\310\304D\262
\300\211\262\202g\303\203yu\210Z\262\300\262\202	\266\204\207" [nil re-search-backward "\n" t 0 error "No further entries!" insert-file-contents-literally 1] 14 (#$ . 1395)])#@217 Jump at POS into a FILE, and returns the next complete line.
It returns additionally the start and end offsets of the line.
If file-length is not supplied, it will be determined.

(fn FILE POS &optional FILE-LENGTH)
(defalias 'diogenes--get-dict-line #[770 "\211\206\f\300!\301
8\262
\262
\302\303\304\305\306\307\"r\211q\210\310\311\"\216\302U\204A\312\313#\314
!\210\315
\303\"\315\302\"
\262\262\266db\210\316\313#\314
!\210\315
\302\"\262\210\205k
\205k
S\262{S\\S\\E*\207" [file-attributes 7 0 1 nil generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] diogenes--read-backward-until-newline 5000 seqp seq--elt-safe diogenes--read-forward-until-newline] 12 (#$ . 1951)])#@12 

(fn A B)
(defalias 'diogenes--ascii-sort-function #[514 "
\300\301\"\262
\227
\300\301\"\262
\227\211\231\203\302\207

\231\203 \303\207\304\207" [cl-remove-if-not diogenes--ascii-alpha-p a b nil] 7 (#$ . 2718)])#@34 The greek alphabet in beta code.
(defconst diogenes--beta-code-alphabet [48 97 98 103 100 101 118 122 104 113 105 107 108 109 110 99 111 112 114 115 116 117 102 120 121 119] (#$ . 2944))#@12 

(fn A B)
(defalias 'diogenes--beta-sort-function #[514 "
\301\302\"\262
\227
\301\302\"\262
\227\303GG^S\304\211\211\211\211X\203\210\305	\234\"\262\305\234\"\262\204H\306\307\n	\234\"\210\202U\204U\306\307		\234\"\210V\203e\310\262
\304\211\262\202f\311\203\210V\203y\312\262
\304\211\262\202z\311\203\210T\262\304\262\202\266\206\211\313\267\202\224\310\207\312\207GGV\203\236\310\207
GGV\203\250\312\207\304\207" [diogenes--beta-code-alphabet cl-remove-if-not diogenes--ascii-alpha-p 0 nil cl-position error "Illegal character %c" a t b #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (a 144 b 146))] 15 (#$ . 3136)])#@12 

(fn BUF)
(defalias 'diogenes--tab-key-fn #[257 "\300\301\"\211\205
\302OT\303OD\207" [string-match "	" 0 nil] 6 (#$ . 3854)])#@12 

(fn BUF)
(defalias 'diogenes--xml-key-fn #[257 "\300\301\"\203\302\303\"
D\207\304\305\"\207" [string-match "key\\s-*=\\s-*\"\\([^\"]*\\)\"" match-string-no-properties 1 error "Could not find key in str:\n %s"] 4 (#$ . 3993)])#@303 A binary search for finding entries in the lexicographical files. 
Upon success, it returns a list containing the entry, its start
and end offsets, and the symbol t to indicate success. Otherwise,
the nearest entry and its offsets are returned.

(fn DICT-FILE COMP-FN KEY-FN WORD &optional START STOP)
(defalias 'diogenes--binary-search #[1540 "\300!\301
8\262
\206\302\206
\303\211\211\211\211\211\211\211\211\211\211\211

W\2047\n\n\nE\262
\303\211\262\203\254\304\\\305\"\262\f\306
#\262\211A\262	\242\262\211A\262	\242\262\n@\262	!\262\211A\262\242\262@\262\"\262\204\223\n\n\n\307F\262
\303\211\262\203\254\310\267\202\246	S\262
\202\246T\262\303\262\202\207" [file-attributes 7 0 nil floor 2 diogenes--get-dict-line t #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (a 153 b 161))] 25 (#$ . 4233)])#@68 Loads a whole analyses file as a hashtable into memory.

(fn FILE)
(defalias 'diogenes--analyses-file-to-hashtable #[257 "\300\301\"\210\302\303\304\"r\211q\210\305\306\"\216\307!\210\310\311\312\313\314$\315\316\211\211\211\211\211\317\320\316\304#\262\2049\262
\316\211\262\203aS{\262\317\321\316\304#\206Jd\262\322S{\n#\210\262\316\262\202#*\266\207\262
\300\323!\210\207" [message "Parsing %s, this may take a while..." generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents-literally make-hash-table :test equal :size 950000 1 nil re-search-forward "	" "\n" puthash "Parsed."] 14 (#$ . 5147)])#@52 Loads a whole lemmata file into memory.

(fn FILE)
(defalias 'diogenes--lemmata-file-to-hashtable #[257 "\300\301\"\210\302\303\304\"r\211q\210\305\306\"\216\307!\210\310\311\312\313\314$\315\316\211\211\211\211\211\211\211\211\211\211\317\320\316\304#\262\317\320\316\304#\262\n	\204F\f\262
\316\211\262\203\244S{\262	\321\322\n\"\203_\323\211\224O\202a\262\324S{!\262\317\325\316\304#\206vd\262\326\nS{\320\"\262D\244\262\327\330\"B#\210\262\f\316\262\202(\266\214\300\331!*\210\207" [message "Parsing %s, this may take a while..." generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents-literally make-hash-table :test equal :size 950000 1 nil re-search-forward "	" string-match "[0-9]$" 0 string-to-number "\n" split-string puthash gethash "Parsed."] 21 (#$ . 5856)])#@13 

(fn FILE)
(defalias 'diogenes--read-analyses-index-script #[257 "\301\302\"\303\304\305\306\307\310\311\312\301\313\"\314\315\316\317\320\321\257\322\323\324#\207" [diogenes-perl-min-version format "use v%.2f;" "use strict;" "use warnings;" "sub quote {" "  local $_ = shift;" "  s/\\\\/\\\\\\\\/g;" "  s/\\\"/\\\\\\\"/gr" "}" "my (%index_start, %index_end, $index_max);" "open my $fh, '<', '%s' or die $!;" "eval do { undef local $/; <$fh> };" "print '(:index-start (';" "while ( my ($k, $v) = each %index_start ) { printf '(\"%s\" . %s)', quote($k), $v }" "print ') :index-end (';" "while ( my ($k, $v) = each %index_end   ) { printf '(\"%s\" . %s)', quote($k), $v }" "print qq') :index-max $index_max)';" "\n" mapconcat identity] 17 (#$ . 6760)])#@13 

(fn LANG)
(defalias 'diogenes--read-analyses-index #[257 "\301 \302\303R\304
!\204\305\306#\210\307
!\204\305\310#\210\311\312\313\314\"r\211q\210\315\316\"\216\317\320\321\320\322\323	!&\324U\204A\305\325!\210\326 *\262
!\207" [diogenes-perl-executable diogenes--perseus-path "/" "-analyses.idt" file-exists-p error "Cannot find %s idt file %s" file-readable-p "Cannot read %s idt file %s" read generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] call-process nil (t nil) "-e" diogenes--read-analyses-index-script 0 "Perl exited with errors, no data received!" buffer-string] 12 (#$ . 7523)])#@12 

(fn STR)
(defalias 'diogenes--lookup-insert-and-format #[257 "`\301
c\210\302
`\"\210\303\304!\210\211b)\207" [inhibit-read-only t fill-region recenter -1] 5 (#$ . 8198)])#@40 Print a separator line between entries
(defalias 'diogenes--lookup-print-separator #[0 "\301c\210\211S\211\262\302Y\203\303c\210\202\210\301c\207" [fill-column "\n\n" 0 "—"] 3 (#$ . 8378)])#@85 Try to parse a string containing the XML of a dictionary entry.

(fn STR BEGIN END)
(defalias 'diogenes--dict-parse-xml #[771 "\300\301\302\"r\211q\210\303\304\"\216\305!c\210\3061\307 @0\202\210\310*\262
\211\205/\311
\312\313F\"\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] diogenes--try-correct-xml (error) xml-parse-region nil diogenes--dict-process-elt begin end] 10 (#$ . 8581)])#@173 Process a parsed XML element of a dictionary entry recursively.
The properties list is an accumulator that holds all properties
of the active element.

(fn ELT PROPERTIES)
(defalias 'diogenes--dict-process-elt #[514 "
;\203\300\301#\207
<\205!\302\303!\"\304\305\306\"AA\"\262
\207" [apply propertize append diogenes--dict-handle-elt mapconcat make-closure #[257 "\301
\300\"\207" [V0 diogenes--dict-process-elt] 4 "\n\n(fn E)"]] 7 (#$ . 9056)])#@61 Try to hotfix invalid xml in the greek LSJ files.

(fn XML)
(defalias 'diogenes--try-correct-xml #[257 "\300\301\302#\207" [replace-regexp-in-string "<\\([[:multibyte:][:space:]]+\\)>" "&lt;\\1&gt;"] 5 (#$ . 9516)])#@75 An alist of property lists to be applied to a simple tag in a dictionary.
(defvar diogenes--dict-xml-handlers-extra '((i font-lock-face warning) (b font-lock-face bold)) (#$ . 9738))#@533 Handle the more complicated tags of a Diogenes dictionary file.
Each element is a list whose car is the element, whose cadr is an
a-list containing all the properties, and whose cddr is the
actual contents of the list. This function selects an approriate
handler based on the car and returns a property list that
represents the properties of the element. It may also manipulate
the contents of the element (cddr). Elements that only require
special formatting are handled by th
diogenes--dict-xml-handlers-extra variable.

(fn ELT)
(defalias 'diogenes--dict-handle-elt #[257 "\211@\302\303A@\"\206\f\304\303
D\305\267\202\306A@\236A\211\203%A
C\241\210\210\307\202\204\310\311\312A@\236A\2067\313\314\315#\316QA
AAB\241\266\317\202\204\312A@\236A\314\320\321\322\323\211\324	\325\326\257\f\262
\202\204AA@;\203{AA\211AA@\316P\240\266\317\202\204\327	\"A\244\207" [diogenes-perseus-action-map diogenes--dict-xml-handlers-extra alist-get lang "english" #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (head 21 sense 42 bibl 75 quote 102)) orth_orig (font-lock-face shr-h1) "\n\n" propertize n "" font-lock-face success " " nil link keymap action bibl help-echo rear-nonsticky t assoc] 17 (#$ . 9927)])
(byte-code "\300C\301\302\303\304\"\"\210\207" [0 defalias diogenes--lookup-insert-xml make-closure #[1028 "\306\307\"\205\310\311\"\211\206\300\211\242T\240\312\313\314!\210\315\316!\317\301\312\320\321 \322
\323\324#\210\211\262
\325
\326&c\210\211\211)\207" [V0 inhibit-read-only diogenes--lookup-buffer diogenes--lookup-entry-id diogenes--lookup-bufstart diogenes--lookup-bufend string-match "key=\"\\([^\"]+\\)\"" match-string 1 t message "Invalid xml in entry: Showing entry!" propertize diogenes--fontify-nxml invalid-xml keymap make-sparse-keymap keymap-set "q" self-insert-command begin end] 18 "Give the user the change to fix invalid XML in the dictionaries.\n\n(fn XML START END BUFFER)"]] 6)#@73 Try to validate, parse, format and insert a corrected dictionary entry.
(defalias 'diogenes--lookup-xml-validate #[0 "\301`\302\"\206\n\303\304!\301`\305\"\301`\306\"\307`\302\"\310\311\"\312
#\313\310\314\"\210\211\2030\315
!\202B\316\317!\302\300\313\305\306\f&	c)\207" [inhibit-read-only get-text-property invalid-xml error "No XML here to validate!" begin end diogenes--get-text-prop-boundaries apply buffer-substring diogenes--dict-parse-xml t delete-region diogenes--lookup-insert-and-format propertize diogenes--fontify-nxml] 16 (#$ . 11926) nil])#@121 Use nxml-mode to fontify a string. 
All overlays added by rng-validate-mode are converted to text
properties.

(fn STR)
(defalias 'diogenes--fontify-nxml #[257 "\300\301\302\"r\211q\210\303\304\"\216\305p!\210
c\210\306 \210\307 \210\310 \210\311ed\"\312\211\211\211\211:\203b@\262\313!\262\314!\262\315!\262\316\317\"\320=\203X\321\322\320\323\320\324\316\n\324\"\257#\210A\262\312\262
\202&\266\325 \326
\327\330#\210\326
\331\332#\210\333\334 \335#*\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] pop-to-buffer nxml-mode rng-validate-mode font-lock-ensure overlays-in nil overlay-start overlay-end overlay-properties plist-get category rng-error add-text-properties face font-lock-face help-echo make-sparse-keymap keymap-set "C-c C-c" diogenes--lookup-xml-validate "C-c '" diogenes--lookup-xml-edit propertize buffer-string keymap] 19 (#$ . 12501)])#@45 Edit a corrupt dictionary entry in XML-mode
(defalias 'diogenes--lookup-xml-edit #[0 "\300`\301\"\206\n\302\303!\304`\301\"\305\306\"p\307\310!\311 \312
\313\314#\210\315!\210\316 \210\317\320\321\n\322\323	&	c\210eb\207" [get-text-property invalid-xml error "No corrupt XML at point to edit!" diogenes--get-text-prop-boundaries apply buffer-substring diogenes--get-fresh-buffer "xml" make-sparse-keymap keymap-set "C-c C-c" diogenes--xml-submit pop-to-buffer nxml-mode propertize lookup-buffer id prop-boundaries keymap] 16 (#$ . 13453) nil])#@45 Try to submit a fixed XML dictionary entry.
(defalias 'diogenes--xml-submit #[0 "\302`\303\"\206\n\304\305!\306`\303\"\210\307\302`\310\"pr
q\210\212eb\210\311\303\312#*\313
!>\2042\314\315\316D\"\210\211\317H\313!>\204D\314\315\316D\"\210
\320H\302\321\"\302\322\"\323\324 #\312\211\203o\325!\210\326!\210|\210\327
!\202q\330 )\207" [cl-struct-prop-match-tags inhibit-read-only get-text-property invalid-xml error "No corrupt XML at point to edit!" diogenes--get-text-prop-boundaries nil lookup-buffer text-property-search-forward t type-of signal wrong-type-argument prop-match 1 2 begin end diogenes--dict-parse-xml buffer-string kill-buffer pop-to-buffer diogenes--lookup-insert-and-format rng-first-error] 13 (#$ . 14011) nil])#@176 Search for a word in a Diogenes dictionary.
The lines in dictionary file must be sorted according to SORT-FN,
while KEY-FN must return the key.

(fn WORD LANG SORT-FN KEY-FN)
(defalias 'diogenes--search-dict #[1028 "\304\305!$\306
!\210\307
\310\"\307\311\"\307\312\"\307\313\"\204'\314\315\n\"\210\316
\317\"\320
#\321\322!\323
!\210\324 \210\305!\n
\203O\325!\207\326$\207" [diogenes--lookup-file diogenes--lookup-bufstart diogenes--lookup-bufend diogenes--lookup-lang diogenes--binary-search diogenes--dict-file seqp seq--elt-safe 3 2 1 0 message "No results for %s! Showing nearest entry" decode-coding-string utf-8 diogenes--dict-parse-xml diogenes--get-fresh-buffer "lookup" pop-to-buffer diogenes-lookup-mode diogenes--lookup-insert-and-format diogenes--lookup-insert-xml] 17 (#$ . 14772)])#@82 Search for a word in a Diogenes dictionary. Dispatcher function.

(fn WORD LANG)
(defalias 'diogenes--lookup-dict #[514 "\211\300\267\202\301\302!!\303
\304\305\306$\207\303\307\310\306$\207\311\207" [#s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("greek" 6 "latin" 18)) diogenes--beta-normalize-gravis diogenes--greek-ensure-beta diogenes--search-dict "greek" diogenes--beta-sort-function diogenes--xml-key-fn "latin" diogenes--ascii-sort-function nil] 8 (#$ . 15606)])#@136 Find and show the next entry in the active dictionary.
When called with a numerical prefix, show the next N entries.

(fn &optional N)
(defalias 'diogenes-lookup-next #[256 "\304=\204\n\305\306!\210\307	\nT\"\310
!\210\311
\312\"\311\313\"\311\314\"\211\204'\305\315!\210\316
\317\"\320
#\321db\210\322 \210\211\203F\323
!\210\202N\324p$\210\205_\313V\205_\325S!)\207" [major-mode diogenes--lookup-file diogenes--lookup-bufend inhibit-read-only diogenes-lookup-mode error "Not in Diogenes Lookup Mode!" diogenes--get-dict-line seqp seq--elt-safe 2 1 0 "No further entries!" decode-coding-string utf-8 diogenes--dict-parse-xml t diogenes--lookup-print-separator diogenes--lookup-insert-and-format diogenes--lookup-insert-xml diogenes-lookup-next] 12 (#$ . 16129) "p"])#@144 Find and show the previous entry in the active dictionary.
When called with a numerical prefix, show the previous N entries.

(fn &optional N)
(defalias 'diogenes-lookup-previous #[256 "\304=\204\n\305\306!\210\307	\nS\"\310
!\210\311
\312\"\311\313\"\311\314\"\211\204'\305\315!\210\316
\317\"\320
#\321eb\210\322 \210eb\210\211\203I\323
!\210\202Q\324p$\210eb\210\205e\313V\205e\325S!)\207" [major-mode diogenes--lookup-file diogenes--lookup-bufstart inhibit-read-only diogenes-lookup-mode error "Not in Diogenes Lookup Mode!" diogenes--get-dict-line seqp seq--elt-safe 2 1 0 "No further entries!" decode-coding-string utf-8 diogenes--dict-parse-xml t diogenes--lookup-print-separator diogenes--lookup-insert-and-format diogenes--lookup-insert-xml diogenes-lookup-previous] 12 (#$ . 16928) "p"])#@116 Parse a DICT bibliography reference string.
Returns a list that diogenes--browse-work can be applied to.

(fn STR)
(defalias 'diogenes--lookup-parse-bibl-string #[257 "\300\301\302\303#\304\"\305
!\210\306
\307\"\306\310\"\306\311\"\300\312\"\305
!\210\313
\310\"\306\311\"
\314\315DD\"GGZ\211\311W\203F\316\317\"\210\202h\211\311V\203h\310\320
X\203a\303
B\262

T\262\202O\211\237\266\202\244\262\315D\321D\"D\207" [split-string replace-regexp-in-string "^Perseus:abo:" "" "," seqp seq--elt-safe 2 1 0 ":" seq-drop diogenes--get-work-labels :type error "Too many labels! %s" nil append] 15 (#$ . 17757)])#@20 

(fn &optional N)
(defalias 'diogenes-lookup-forward-line #[256 "\211y\210m\205	\300 \207" [diogenes-lookup-next] 2 (#$ . 18396) "p"])#@20 

(fn &optional N)
(defalias 'diogenes-lookup-backward-line #[256 "\211[y\210o\205\n\300 \207" [diogenes-lookup-previous] 2 (#$ . 18538) "p"])#@20 

(fn &optional N)
(defalias 'diogenes-lookup-beginning-of-buffer #[256 "\211\204o\203\300 \210\301
!\207" [diogenes-lookup-previous beginning-of-buffer] 3 (#$ . 18687) "^P"])#@20 

(fn &optional N)
(defalias 'diogenes-lookup-end-of-buffer #[256 "\211\204m\203\300 \210\301
!\207" [diogenes-lookup-next end-of-buffer] 3 (#$ . 18872) "^P"])#@46 Basic mode map for the Diogenes Lookup Mode.
(defvar diogenes-lookup-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\207" [text-mode-map make-sparse-keymap keymap-set "<remap> <previous-line>" diogenes-lookup-backward-line "<remap> <next-line>" diogenes-lookup-forward-line "<remap> <beginning-of-buffer>" diogenes-lookup-beginning-of-buffer "<remap> <end-of-buffer>" diogenes-lookup-end-of-buffer "C-c C-n" diogenes-lookup-next "C-c C-p" diogenes-lookup-previous "C-c C-c" diogenes-perseus-action "q" diogenes--quit] 5) (#$ . 19041))
(defvar diogenes-lookup-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-lookup-mode-hook variable-documentation put "Hook run after entering Diogenes Lookup 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-lookup-mode-map definition-name diogenes-lookup-mode] 4)
(defvar diogenes-lookup-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-lookup-mode-abbrev-table diogenes-lookup-mode-map variable-documentation put purecopy "Keymap for `diogenes-lookup-mode'." boundp diogenes-lookup-mode-syntax-table definition-name diogenes-lookup-mode defvar-1 nil make-syntax-table "Syntax table for `diogenes-lookup-mode'." define-abbrev-table "Abbrev table for `diogenes-lookup-mode'." derived-mode-parent text-mode] 5)#@241 Major mode to browse databases.

In addition to any hooks its parent mode `text-mode' might have run,
this mode runs the hook `diogenes-lookup-mode-hook', as the final or
penultimate step during initialization.

\{diogenes-lookup-mode-map}
(defalias 'diogenes-lookup-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
\306\331!\210\306\332!\210\306\333!\210\306\334!\210\307 )\335\336!\207" [delay-mode-hooks major-mode mode-name diogenes-lookup-mode-map diogenes-lookup-mode-syntax-table diogenes-lookup-mode-abbrev-table make-local-variable t text-mode diogenes-lookup-mode "Diogenes Lookup" 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--lookup-file diogenes--lookup-bufstart diogenes--lookup-bufend diogenes--lookup-lang run-mode-hooks diogenes-lookup-mode-hook local-abbrev-table buffer-read-only] 5 (#$ . 20915) nil])
(byte-code "\300\301\302\"\303\304\305\306\"\"\210\303\307\305\310\"\"\210\303\311\305\312\"\"\210\207" [make-hash-table :test equal defalias diogenes--get-all-analyses make-closure #[257 "\301
\302B\300\"\206\211\302B\303
\304\305\306 \307P\"!\300#\262
\207" [V0 gethash analyses puthash diogenes--analyses-file-to-hashtable file-name-concat diogenes--perseus-path "-analyses.txt"] 9 "Returns the entirety of an analysis file as a hash table.\nThis function is cached, so that it actually reads and parses teh\nfile only at the first call.\n\n(fn LANG)"] diogenes--get-analyses-index #[257 "\301
\302B\300\"\206\211\302B\303
\304!\300#\262
\207" [V0 gethash index puthash diogenes--read-analyses-index] 6 "Returns the indices of an analysis file written by Diogenes.\n This function is cached, so that it actually reads and parses\nthe file only at the first call.\n\n(fn LANG)"] diogenes--get-all-lemmata #[257 "\301
\302B\300\"\206\211\302B\303
\304\305\306 \307P\"!\300#\262
\207" [V0 gethash lemmata puthash diogenes--lemmata-file-to-hashtable file-name-concat diogenes--perseus-path "-lemmata.txt"] 9 "Returns the entirety of a lemmata file as a hash table.\n This function is cached, so that it actually reads and parses\nthe file only at the first call.\n\n(fn LANG)"]] 6)#@69 On a heading in analysis mode, show or hide its contents.

(fn POS)
(defalias 'diogenes-analysis-cycle #[257 "\300
\301\"\211\205\f\302\"\211\205\302
\"\206d\211\205'\303\304\305\304\"?$\207" [get-char-property heading next-single-property-change put-text-property invisible get-text-property] 11 (#$ . 23404) "d"])#@48 Basic mode map for the Diogenes Analysis Mode.
(defvar diogenes-analysis-mode-map (byte-code "\301 \244\302
\303\304#\210\207" [text-mode-map make-sparse-keymap keymap-set "TAB" diogenes-analysis-cycle] 5) (#$ . 23738))
(defvar diogenes-analysis-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-analysis-mode-hook variable-documentation put "Hook run after entering Diogenes Analysis 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-analysis-mode-map definition-name diogenes-analysis-mode] 4)
(defvar diogenes-analysis-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-analysis-mode-abbrev-table diogenes-analysis-mode-map variable-documentation put purecopy "Keymap for `diogenes-analysis-mode'." boundp diogenes-analysis-mode-syntax-table definition-name diogenes-analysis-mode defvar-1 nil make-syntax-table "Syntax table for `diogenes-analysis-mode'." define-abbrev-table "Abbrev table for `diogenes-analysis-mode'." derived-mode-parent text-mode] 5)#@246 Display analysis of search term.

In addition to any hooks its parent mode `text-mode' might have run,
this mode runs the hook `diogenes-analysis-mode-hook', as the final or
penultimate step during initialization.

\{diogenes-analysis-mode-map}
(defalias 'diogenes-analysis-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
)\331\332!\207" [delay-mode-hooks major-mode mode-name diogenes-analysis-mode-map diogenes-analysis-mode-syntax-table diogenes-analysis-mode-abbrev-table make-local-variable t text-mode diogenes-analysis-mode "Diogenes Analysis" 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-analysis-mode-hook local-abbrev-table] 5 (#$ . 25196) nil])#@213 Split a bytestring as retrieved form the analyses file into a
list of the corresponding entries. Each entry consists of the headword, the
lemma, the lemma-number, translation and analysis.

(fn ENCODED-STR LANG)
(defalias 'diogenes--process-parse-result #[514 "\300\301\"\302\303\304\"A@\305\306\307$\310\211\211\211\211\211\211\211\211\211\211\211\211\211:\203\220@\262\302\311\310\307$\262\n	\211A\262\242\262
	\211A\262\242\262\f	@\262\302
!\262\211A\262\242\262	\211A\262\242\262@\262\302\312\306\307$\262\211A\262\242\262@\262\n\257B\262A\262\310\262
\202
\237\207" [decode-coding-string utf-8 split-string diogenes--split-once "	+" "[{}]\\(?:\\[[0-9]+\\]\\)*" t "\\s-" nil "	" ","] 23 (#$ . 26241)])#@157 Process a lemma entry as returned from `diogenes--get-all-lemmata'.
Returns a list with the form (lemma raw-lemma lemma-nr &rest analyses)

(fn LEMMA LANG)
(defalias 'diogenes--process-lemma #[514 "
\2051
@
\211\300\230\203\301!\266\202\202!\302\303\304\302\305\306##\266\202@A@E\307\310\311\"AA\"\244\207" [#1="greek" diogenes--perseus-beta-to-utf8 replace-regexp-in-string #2="\\^" #3="̆" #4="_" #5="̄" mapcar make-closure #[257 "\301\302\"\303
!\210\304
\305\"\304\306\"\211\300\211\307\230\203 \310!\266\202\202,\311\312\313\311\314\315##\266\202\316\317\320\"r\211q\210\321\322\"\216c\210eb\210\323\211\211\211\211\211\324`\305\"\262\203]`TS{C\244\262\202g\262
\323\211\262\203qTb\210\323\262\202E*\266\205\262
B\207" [V0 diogenes--split-once "\\s-" seqp seq--elt-safe 1 0 #1# diogenes--perseus-beta-to-utf8 replace-regexp-in-string #2# #3# #4# #5# generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] nil scan-sexps] 15 "\n\n(fn E)"]] 11 (#$ . 27001)])#@121 Search the ananlyses file of lang for word using a binary search.
Returns the nearest hit to the query.

(fn WORD LANG)
(defalias 'diogenes--parse-word #[514 "\300\301!!\227\302\303 \304P\"\305!G\306V\203\307\306O\202\310
\311\312\"\"A\211\2031\211\313Z\2022\307\262
\310\311\314\"\"A\206C\311\315\"\316\317\320	&\306
8\204[\321\322\n\"\210\211@\205f\323
@	\"
AB\207" [diogenes--beta-normalize-gravis diogenes--greek-ensure-beta file-name-concat diogenes--perseus-path "-analyses.txt" diogenes--get-analyses-index 3 0 assoc plist-get :index-start 2 :index-end :index-max diogenes--binary-search diogenes--ascii-sort-function diogenes--tab-key-fn message "No result for %s! Showing nearest entry" diogenes--process-parse-result] 15 (#$ . 28061)])
(byte-code "\300\301\302\"\303\304\305\306\"\"\210\207" [make-hash-table :test equal defalias diogenes--all-matches-in-hashtable make-closure #[1285 "\206\301\205\n\302\205\302
\203\211\203\303\202(
\203#\304\202(\211\205(\305\2045
\2045\2029\211	!\204F\204F\202p\306	E\300\"\206pE\307
\310\311\312\313\314$\315\316\317	#\"\210\211\262
\300#\262
\301=\203\207\306\"\211\205\202
BC\262
\202\232\320C\315\316\321$\"\210\211\242\237\262
\204\243\204\243\207\211\320\211\211:\203\347@\262\211A\262\242\262\322\320\211:\203\327@\262
\306\"B
B\262
A\262\202\274\211\237\266\203!
\244\262
A\262\202\247\211\237\207" [V0 string-equal t #[257 "\211\300\301\"\262
\227\207" [cl-remove-if-not diogenes--ascii-alpha-p] 5 "\n\n(fn X)"] downcase diogenes--ascii-alpha-only gethash puthash make-hash-table :test equal :size 50000 maphash make-closure #[514 "\301!\302
\303\300\"B\300#\207" [V0 V1 puthash gethash] 9 "\n\n(fn K --CL-VAR--)"] nil #[514 "\302\301\"\205\300B\300\242B\240\207" [V0 V1 V2] 5 "\n\n(fn K V)"] reverse] 24 "Search for all entries in the table where querey matches the key via filter.\nAdditionally, letter case and diacritics can be ignored.\n\n(fn QUERY HASH-TABLE FILTER IGNORE-CASE NO-DIACRITICS)"]] 6)#@233 Search all the forms in the analyses file.
Return all the entries whose keys match query when filter is applied to them.
Unless specified, filter defaults to string-equal.

(fn QUERY LANG &optional FILTER IGNORE-CASE NO-DIACRITICS)
(defalias 'diogenes--parse-all #[1282 "\300\301!%\211\205\302\303\304\"\"\207" [diogenes--all-matches-in-hashtable diogenes--get-all-analyses mapcar make-closure #[257 "\211@\301A\300\"B\207" [V0 diogenes--process-parse-result] 5 "\n\n(fn X)"]] 11 (#$ . 30147)])#@152 Get all attested forms of LEMMA in LANG.
As there vould be several entries for the same lemma, this
function returns a list of lists.

(fn LEMMA LANG)
(defalias 'diogenes--get-all-forms #[514 "\300\301\302\"\303\304!\206\305\306\"\"\"\207" [mapcar make-closure #[257 "\301
\300\"\207" [V0 diogenes--process-lemma] 4 "\n\n(fn L)"] gethash diogenes--get-all-lemmata error "No lemmata retrieved for %s"] 9 (#$ . 30660)])#@230 Search all lemmata in the lemmata file.
Return all the entries whose keys match query when filter is applied to them.
Unless specified, filter defaults to string-equal.

(fn QUERY LANG &optional FILTER IGNORE-CASE NO-DIACRITICS)
(defalias 'diogenes--query-all-lemmata #[1282 "\300\301!%\211\205\302\303\304\"\"\207" [diogenes--all-matches-in-hashtable diogenes--get-all-lemmata mapcar make-closure #[257 "\301
A@\300\"\207" [V0 diogenes--process-lemma] 4 "\n\n(fn L)"]] 11 (#$ . 31091)])#@144 Try to parse a word by looking it up in the morphological files,
and show the entry for it in the lexica. Dispatcher function.

(fn WORD LANG)
(defalias 'diogenes--parse-and-lookup #[514 "\303\"\304
!\210\305
\306\"\305\307\"\305\310\"\305\311\"\312\211\203\327\313!\211G\310U\203.\211@@\202\300\211\312\211\211\211\211\211\211\211\211	:\203\252	@\262	\262\211A\262\242\262\211A\262\242\262\211A\262\242\262@\262\314\315\"\262\316\317	\211\320\230\203~\321!\266\202\202\212\322\323\324\322\325\326##\266\202#\327\330\331\332#\266\202PEB\262	A\262\n\312\262
\2028
\237\266\212\333\334\335\316\336\"\"\"A@)\262
\211\203\312\337
\"\207\340\341	\n#\210\337\"\207\340\342\n\"\210\337		\"\207" [completion-extra-properties wor d diogenes--parse-word seqp seq--elt-safe 3 2 1 0 nil diogenes--assign-parse-result-to-lemmata mapcar cdr format "%s (%s)" "greek" diogenes--perseus-beta-to-utf8 replace-regexp-in-string "\\^" "̆" "_" "̄" "	" "," mapconcat identity (:annotation-function (lambda (s) (caddr (assoc s minibuffer-completion-table)))) assoc completing-read "Choose a lemma for %s: " diogenes--lookup-dict message "Trying to look %s up in the dictionaries!" "No results for %s, trying to look it up in the dictionaries!"] 31 (#$ . 31596)])#@67 Get or create an Diogenes Analysis buffer, and begin a new entry.
(defalias 'diogenes--add-parse-entry #[0 "\301\302\303!!\210db\210\304=\204\304 \210\305 ?\205\306c\207" [major-mode pop-to-buffer get-buffer-create "*Diogenes Analysis*" diogenes-analysis-mode diogenes--first-line-p "\n"] 3 (#$ . 32906)])#@109 Choose an approriate filter function for `diogenes--parse-and-show'.

(fn FILTER IGNORE-CASE NO-DIACRITICS)
(defalias 'diogenes--parse-and-show-choose-filter #[771 "\206F\300\301\302\303\304\211:\203!@\262
@
B\262
A\262\202\211\237\266\203\"\304\211\305%\211\2045\266\306\202F\211\307=\203C\310\311!\266\202\202F\211\266\202\204Q\312\313!?\202\\\314=\203[\304\202\\\315\204g\312\316!?\202r\314=\203q\304\202r\315E\207" [((108 . string-equal) (112 . string-prefix-p) (115 . string-suffix-p) (105 . string-search) (114 . string-match-p) (111 . other)) alist-get read-char-from-minibuffer "Match (l)iterally, or as (p)refix, (s)uffix, (i)nfix, (r)egular expression,(o)ther: " nil eql string-equal other read-minibuffer "Enter a function-object of two arguments, the query and the string: " y-or-n-p "Make the search case sensitive?" ignore t "Make the search diacritics sensitive?"] 12 (#$ . 33223)])#@291 Loop through the result of `diogenes--process-parse-result',
assigning the single results to their respective lemmata. Returns the lemmata as a list,
where each lemma is itself a list consisting of the LEMMA-NR, the LEMMA-WORD, the TRANSLATION
and the list on ANALYSES.

(fn PARSE-RESULTS)
(defalias 'diogenes--assign-parse-result-to-lemmata #[257 "\300
\300\211\211\211\211\211\211\211\211	:\203\215	@\262\211A\262\242\262	\211A\262\242\262\211A\262\242\262\211A\262\242\262@\262\301\f\"\262B\262\203[AAA\211@B\240\266\202\202\206b\302
\300\303\304$\266\204\203x\305\202zCFB\262	A\262\n\300\262
\202\n\207" [nil assoc "\\`[ 	\n
]*\\'" string-match t "No translation available"] 23 (#$ . 34156)])#@194 Process and format the results of `diogenes--process-parse-result'. 
Besides the fontification, it also checks for duplicate lemma
entries and orders them accordingly.

(fn QUERY LANG RESULTS)
(defalias 'diogenes--format-parse-results #[771 "\301
!\211\302\211\211\211\211\211\303\302:\203\341@\262\262\211A\262\242\262\211A\262\242\262\211A\262\242\262@\262
\304\305\306\307\211\310\230\203N\311!\266\202\202Z\312\313\314\312\315\316##\266\202\n#!\317\320\321\322\323
\324\325\326\327\330\331\332&\333\304\334\317\335\324\336\326\327\330\331\332&
\337\302\211\303:\203\316@\262\211A\262\242\262\211\304\306\340\211\310\230\203\262\311!\266\202\202\276\312\313\314\312\315\316##\266\202#\322\332#P\262
A\262\202\214\266\203\341\260P\262A\262	\302\262
\202\f
\207" [diogenes-perseus-action-map diogenes--assign-parse-result-to-lemmata nil "" propertize string-trim format "%s (%s)" "greek" diogenes--perseus-beta-to-utf8 replace-regexp-in-string "\\^" "̆" "_" "̄" font-lock-face link heading h3 lemma-nr action lookup lemma lang keymap rear-nonsticky t " " "[Attested Forms]" warning forms "\n\n" "%-20s → %s\n" "\n"] 35 (#$ . 34915)])#@266 Display all possible morphological analyses for query, with FILTER applied.
 Dispatcher function. IGNORE-CASE and NO-DIACRITICS should be either t or 'ignore; 
if nil, query interactively for their values

(fn QUERY LANG &optional FILTER IGNORE-CASE NO-DIACRITICS)
(defalias 'diogenes--parse-and-show #[1282 "\300#\301
!\210\302
\303\"\302\304\"\302\305\"\306		%\211\204)\307\310\"\210\311 \210\312\313\314\f\"\315\316\317\320%c\210\312\313\321\322=\203F\323\202K\313\324\"\203T\325\202U\326\203^\327\202_\330$\315\331\320\332%c\210\211\333\211:\203\254@\262
\211A\262\242\262
\312\313\334\335\230\203\213\336!\202\214\"\315\337\320\332\317\340&c\210\312\341#\320\332\340\332%c\210A\262\202j\266\333\207" [diogenes--parse-and-show-choose-filter seqp seq--elt-safe 2 1 0 diogenes--parse-all error "No results for %s!" diogenes--add-parse-entry propertize format "Results for %s:\n" font-lock-face shr-h1 heading h1 "(%s, %s, %s)\n\n" string-equal "No filter" "filtered by %s" "ignoring case" "case sensitive" "ignoring diacritics" "diacritics sensitive" italic t nil "Form %s:\n\n" "greek" diogenes--perseus-beta-to-utf8 success h2 diogenes--format-parse-results] 21 (#$ . 36129)])#@81 Format a LEMMA entry as returned by `diogenes--get-all-forms'.

(fn LEMMA LANG)
(defalias 'diogenes--format-lemma-and-forms #[514 "\301@\302\303\304\305\306\307\310\nA@\311\312AA@\313\314\315&\316AAA\317\211\320:\203x@\262\211A\262\242\262\211\301\321\322\"\301@\302\323#\324A\317\320:\203h@\262\211\325\326\327\"\301\302\323#\324QP\262
A\262\202I\266\202R\305\315#P\262
A\262\202%\266\203\324R\207" [diogenes-perseus-action-map propertize font-lock-face shr-h2 heading h2 action lookup lemma lang lemma-nr keymap rear-nonsticky t " \n" nil "" format "%-20s " italic "\n" make-string 21 32] 22 (#$ . 37363)])#@60 Show all attested forms of LEMMA in LANG.

(fn LEMMA LANG)
(defalias 'diogenes--show-all-forms #[514 "\300\"\211\204\301\302#\210\303\304\305!!\210\306 \210db\210\212\307\310\311\"\312\313\"\")\210\314\207" [diogenes--get-all-forms error "No result for %s in %s" pop-to-buffer get-buffer-create "*Diogenes Forms*" diogenes-analysis-mode mapc make-closure #[257 "\301
\300\"c\207" [V0 diogenes--format-lemma-and-forms] 4 "\n\n(fn X)"] sort #[514 "
@
@\300!\300!\231\207" [diogenes--strip-diacritics] 7 "\n\n(fn A B)"] t] 8 (#$ . 38009)])#@232 Show all lemmata that match QUERY in lang, with FILTER applied.
IGNORE-CASE and NO-DIACRITICS should be either t or 'ignore; 
if nil, query interactively for their values

(fn QUERY LANG &optional FILTER IGNORE-CASE NO-DIACRITICS)
(defalias 'diogenes--show-all-lemmata #[1282 "\300#\301
!\210\302
\303\"\302\304\"\302\305\"\306		%\211\204)\307\310\"\210\311\312\313!!\210\314 \210db\210\315\316\317\f\"\320\321\322\321%c\210\315\316\323\324=\203O\325\202T\316\326\"\203]\327\202^\330\203g\331\202h\332$\320\333\334\335%c\210\212\336\337\340\"\341\342\"\")\207" [diogenes--parse-and-show-choose-filter seqp seq--elt-safe 2 1 0 diogenes--query-all-lemmata error "No results for lemma %s!" pop-to-buffer get-buffer-create "*Diogenes Forms*" diogenes-analysis-mode propertize format "Results for %s:\n" font-lock-face shr-h1 heading "(%s, %s, %s)\n\n" string-equal "No filter" "filtered by %s" "ignoring case" "case sensitive" "ignoring diacritics" "diacritics sensitive" italic h1 t mapc make-closure #[257 "\301
\300\"c\207" [V0 diogenes--format-lemma-and-forms] 4 "\n\n(fn X)"] sort #[514 "
@
@\300!\300!\231\207" [diogenes--strip-diacritics] 7 "\n\n(fn A B)"]] 16 (#$ . 38562)])#@73 Callback for the links in Diogenes Lookup and Analysis Mode.

(fn CHAR)
(defalias 'diogenes-perseus-action #[257 "\300
\301\"\211\302\267\202*\303\304\305\300\306\"!\"\207\307\300\310\"\300\311\"\"\207\312\300\310\"\300\311\"\"\207\300\311\"\211\313\235\203;\314\315\316!\"\207\317\320!\207" [get-text-property action #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (bibl 10 lookup 20 forms 31)) apply diogenes--browse-work diogenes--lookup-parse-bibl-string bibl diogenes--lookup-dict lemma lang diogenes--show-all-forms ("latin" "greek") diogenes--parse-and-lookup thing-at-point word message "C-c C-c cannot do anything useful here!"] 8 (#$ . 39779) "d"])
(provide 'diogenes-perseus)