-
Notifications
You must be signed in to change notification settings - Fork 3
/
Copy pathdiogenes-forms.elc
73 lines (59 loc) · 11.6 KB
/
diogenes-forms.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
;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-perseus] 2)#@209 Change the form entry at POS in `diogenes--select-forms'.
MARK should contain the marker string, FORM-STRING-FACE the face
that fontifies the form itself.
(fn POS PROPERTIES &optional FORM-STRING-FACE MARK)
(defalias 'diogenes--change-form-entry #[1026 "\302\303\"\205\246 \304\305\303\"\306@A@#\210\212\214\211@A@}\210eb\205) \307\310!eb\2051 \307\311!\203` \312\313! >\204E \314\315\316D\"\210\317H\313! >\204X \314\315\316D\"\210\320H\321 $\210\205\241 \313! >\204s \314\315\316D\"\210\211\320Hb\210\322!\210\313! >\204\213 \314\315\316D\"\210\211\317H\313! >\204\235 \314\315\316D\"\210\320H|\266\202+\266\202\207" [inhibit-read-only cl-struct-prop-match-tags get-text-property form t diogenes--get-text-prop-boundaries add-text-properties text-property-search-forward form-string mark put-text-property type-of signal wrong-type-argument prop-match 1 2 font-lock-face insert-and-inherit] 14 (#$ . 255)])
(defalias 'diogenes--goto-next-form #[0 "\300`\301\"\206 db\207" [next-single-property-change form] 3 nil nil])
(defalias 'diogenes--select-form-at-point #[0 "\300`\301\302\303\304F\305\306\307\310\311#$\210\312 \207" [diogenes--change-form-entry selected t marked nil bold propertize "✓" font-lock-face success diogenes--goto-next-form] 8 nil nil])
(defalias 'diogenes--unselect-form-at-point #[0 "\300`\301\302\303\302F\304\305$\210\306 \207" [diogenes--change-form-entry selected nil marked font-lock-comment-face " " diogenes--goto-next-form] 6 nil nil])
(defalias 'diogenes--mark-form-at-point #[0 "\300`\301\302D\303#\210\304 \207" [diogenes--change-form-entry marked t highlight diogenes--goto-next-form] 4 nil nil])
(defalias 'diogenes--unmark-form-at-point #[0 "\300`\301\302D\303`\304\"\203 \305\202 \306#\210\307 \207" [diogenes--change-form-entry marked nil get-text-property selected bold font-lock-comment-face diogenes--goto-next-form] 6 nil nil])
(defalias 'diogenes--toggle-form-at-point #[0 "\300`\301\"\203\n \302 \207\303 \207" [get-text-property selected diogenes--unselect-form-at-point diogenes--select-form-at-point] 3 nil nil])
(defalias 'diogenes--select-all-forms #[0 "\212eb\210m?\205 \300 \210\202 )\207" [diogenes--select-form-at-point] 1 nil nil])
(defalias 'diogenes--unselect-all-forms #[0 "\212eb\210m?\205 \300 \210\202 )\207" [diogenes--unselect-form-at-point] 1 nil nil])
(defalias 'diogenes--mark-all-forms #[0 "\212eb\210m?\205 \300 \210\202 )\207" [diogenes--mark-form-at-point] 1 nil nil])
(defalias 'diogenes--unmark-all-forms #[0 "\212eb\210m?\205 \300 \210\202 )\207" [diogenes--unmark-form-at-point] 1 nil nil])#@17
(fn FUNCTION)
(defalias 'diogenes--execute-on-marked-forms #[257 "\212eb\210\301\211\302\303!\262\203, \304!>\204 \305\306\307D\"\210\310Hb\210 \210\301\262\202 \266)\301\207" [cl-struct-prop-match-tags nil text-property-search-forward marked type-of signal wrong-type-argument prop-match 1] 7 (#$ . 2867)])
(defalias 'diogenes--select-marked-forms #[0 "\300\301!\207" [diogenes--execute-on-marked-forms diogenes--select-form-at-point] 2 nil nil])
(defalias 'diogenes--unselect-marked-forms #[0 "\300\301!\207" [diogenes--execute-on-marked-forms diogenes--unselect-form-at-point] 2 nil nil])
(defalias 'diogenes--select-marked-or-all-forms #[0 "\212eb\210\300\301!\203 \302 \202 \303 )\207" [text-property-search-forward marked diogenes--select-marked-forms diogenes--select-all-forms] 2 nil nil])
(defalias 'diogenes--unselect-marked-or-all-forms #[0 "\212eb\210\300\301!\203 \302 \202 \303 )\207" [text-property-search-forward marked diogenes--unselect-marked-forms diogenes--unselect-all-forms] 2 nil nil])#@23
(fn REGEXP COMMAND)
(defalias 'diogenes--match-forms-and-execute #[514 "\212eb\210m?\205) \300`\301\"\203# \302\303\304\305`\301\"\"\"\203# \211 \210\202 \306 \210\202 )\207" [get-text-property form string-match apply buffer-substring-no-properties diogenes--get-text-prop-boundaries diogenes--goto-next-form] 9 (#$ . 3899)])#@15
(fn REGEXP)
(defalias 'diogenes--regexp-mark-forms #[257 "\300\301\"\207" [diogenes--match-forms-and-execute diogenes--mark-form-at-point] 4 (#$ . 4235) (byte-code "\300\301!C\207" [read-regexp "Mark forms matching regexp: "] 2)])#@15
(fn REGEXP)
(defalias 'diogenes--regexp-unmark-forms #[257 "\300\301\"\207" [diogenes--match-forms-and-execute diogenes--unmark-form-at-point] 4 (#$ . 4474) (byte-code "\300\301!C\207" [read-regexp "Unmark forms matching regexp: "] 2)])#@15
(fn REGEXP)
(defalias 'diogenes--regexp-select-forms #[257 "\300\301\"\207" [diogenes--match-forms-and-execute diogenes--select-form-at-point] 4 (#$ . 4719) (byte-code "\300\301!C\207" [read-regexp "Mark forms matching regexp: "] 2)])#@15
(fn REGEXP)
(defalias 'diogenes--regexp-unselect-forms #[257 "\300\301\"\207" [diogenes--match-forms-and-execute diogenes--unselect-form-at-point] 4 (#$ . 4962) (byte-code "\300\301!C\207" [read-regexp "Unmark forms matching regexp: "] 2)])#@155 Submit the selected forms in the Diogenes Select Forms buffer.
The forms are passed as a list to the function saved in
`diogenes--select-forms-function'.
(defalias 'diogenes--submit-forms #[0 "\303=\204\n \304\305!\210\306\211\211\211eb\210\307\310!\262\203D \311! >\204* \312\313\314D\"\210\315H\262\316\317\"\203> \316\310\"B\262\306\262\202 \237\266\204\n\320 \210\211!\207" [major-mode cl-struct-prop-match-tags diogenes--select-forms-function diogenes-select-forms-mode error "Not in `Diogenes Select Forms'!" nil text-property-search-forward form type-of signal wrong-type-argument prop-match 1 get-text-property selected kill-buffer] 8 (#$ . 5212) nil])#@41 Mode map for the Diogenes Select Forms.
(defvar diogenes-select-forms-mode-map (byte-code "\301 \244\302\303\304#\210\302\305\306#\210\302\307\306#\210\302\310\311#\210\302\305\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\331\332#\210\302\333\332#\210\302\334\332#\210\302\335\336#\210\302\337\340#\210\302\341\342#\210\302\343\344#\210\302\345\346#\210\207" [text-mode-map make-sparse-keymap keymap-set "RET" diogenes--toggle-form-at-point "m" diogenes--select-form-at-point "s" "d" diogenes--unselect-form-at-point diogenes--mark-form-at-point "u" diogenes--unmark-form-at-point "S" diogenes--select-marked-or-all-forms "D" diogenes--unselect-marked-or-all-forms "M" diogenes--mark-all-forms "U" diogenes--unmark-all-forms "%" diogenes--regexp-mark-forms "!" diogenes--regexp-unmark-forms "c" diogenes--submit-forms "x" "C-c C-c" "n" next-line "p" previous-line "f" forward-char "b" backward-char "q" diogenes--quit] 5) (#$ . 5894))
(defvar diogenes-select-forms-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-select-forms-mode-hook variable-documentation put "Hook run after entering Select Forms 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-select-forms-mode-map definition-name diogenes-select-forms-mode] 4)
(defvar diogenes-select-forms-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-select-forms-mode-abbrev-table diogenes-select-forms-mode-map variable-documentation put purecopy "Keymap for `diogenes-select-forms-mode'." boundp diogenes-select-forms-mode-syntax-table definition-name diogenes-select-forms-mode defvar-1 nil make-syntax-table "Syntax table for `diogenes-select-forms-mode'." define-abbrev-table "Abbrev table for `diogenes-select-forms-mode'." derived-mode-parent text-mode] 5)#@258 Mode for the forms selection buffer.
In addition to any hooks its parent mode `text-mode' might have run,
this mode runs the hook `diogenes-select-forms-mode-hook', as the
final or penultimate step during initialization.
\{diogenes-select-forms-mode-map}
(defalias 'diogenes-select-forms-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\307 )\333\334!\207" [delay-mode-hooks major-mode mode-name diogenes-select-forms-mode-map diogenes-select-forms-mode-syntax-table diogenes-select-forms-mode-abbrev-table make-local-variable t text-mode diogenes-select-forms-mode "Select Forms" 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--select-forms-lang diogenes--select-forms-function run-mode-hooks diogenes-select-forms-mode-hook local-abbrev-table buffer-read-only] 5 (#$ . 8217) nil])#@140 Let the user select forms of a LEMMA.
Then call CALLBACK with this list as its single argument.
(fn QUERY LANG CALLBACK &optional HEADER)
(defalias 'diogenes--select-forms #[1027 "\304\"\206 \305\306\"\211G\307U\203 \211@\202# \310\311\312\313\314\315$\")\316\317!\315\320!\210\321 \210\322\2065 \323\324\325#c\210\326\327!\210\212AAA\314\211\330:\203\254 @\262\211A\262\242\262\211\322\211\331\332\315\324\333%\334\322\335\336\"\337\315\324\340%\334\322 @\324\341#\342\nA\314\330:\203\231 @\262\211\343\344\345\"\322\324\341#\342QP\262A\262\202z \266\202\260\346\347\315%P\262A\262\202F \266\203c)\210)\314\207" [completion-extra-properties inhibit-read-only diogenes--select-forms-lang diogenes--select-forms-function diogenes--get-all-forms error "No results for %s" 1 (:annotation-function (lambda (s) (concat " (" (string-join (mapcar #'car (cdddr (assoc s minibuffer-completion-table))) " ") ")"))) assoc completing-read "Please select the correct lemma: " nil t diogenes--get-fresh-buffer "select-forms" pop-to-buffer diogenes-select-forms-mode propertize "Search for the following words:" font-lock-face shr-h1 newline 2 "" "✓" mark success " " format "%-18s " form-string bold italic "\n" make-string 22 32 form selected] 28 (#$ . 9401)])#@105 Let the user select entries that match QUERY in the TLG word-list
(fn QUERY CALLBACK &optional HEADER)
(defalias 'diogenes--select-from-tlg-wordlist #[770 "\303\304\305!\"\206 \306\307\"\310\311\"\312\313!\314\315!\210\316 \210\317\206# \320\321\322#c\210\323\324!\210\212\325\211\211\211\326:\203 @\262\211A\262\242\262\211A\262\242\262@\262\211\317\211\327\330\314\321\331%\332\317\333\334\n\"\335\314\321\336%\332\317 \321\337#\340\260\341\342\314%P\262A\262\2023 \266\205c)\210\343\211)\207" [inhibit-read-only diogenes--select-forms-lang diogenes--select-forms-function diogenes--get-wordlist-matches (:type "tlg") diogenes--utf8-to-beta error "No results for %s" mapcar #[257 "\211@\300\301\302\303@\227#!A@E\207" [diogenes--beta-to-utf8 replace-regexp-in-string "!" "."] 7 "\n\n(fn E)"] diogenes--get-fresh-buffer "select-forms" t pop-to-buffer diogenes-select-forms-mode propertize "Search for the following words:" font-lock-face shr-h1 newline 2 nil "" "✓" mark success " " format "%-18s " form-string bold italic "\n" form selected "greek"] 22 (#$ . 10696)])
(provide 'diogenes-forms)