-
Notifications
You must be signed in to change notification settings - Fork 2
/
diogenes-browser.elc
104 lines (81 loc) · 12.6 KB
/
diogenes-browser.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
;ELC
;;; Compiled
;;; in Emacs version 29.4
;;; with all optimizations.
(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [require cl-lib seq diogenes-lisp-utils diogenes-perl-interface] 2)#@12
(fn CMD)
(defalias 'diogenes--send-cmd-to-browser #[257 "\300p!\206\f \301\302\303p\"!\304\305P\"\207" [get-buffer-process error format "No process in buffer %s!" process-send-string "\n"] 6 (#$ . 217)])#@15
(fn HEIGHT)
(defalias 'diogenes--browser-set-height #[257 "\300\301!!\207" [diogenes--send-cmd-to-browser number-to-string] 4 (#$ . 430) "NLines to display: "])
(defalias 'diogenes-browser-forward #[0 "\302\303\304\305\306 ! Z!\307P!\207" [diogenes--browser-backwards next-screen-context-lines nil diogenes--send-cmd-to-browser number-to-string floor window-screen-lines "n"] 4 nil nil])
(defalias 'diogenes-browser-backward #[0 "\302\303\304\305\306 ! Z!\307P!\207" [diogenes--browser-backwards next-screen-context-lines t diogenes--send-cmd-to-browser number-to-string floor window-screen-lines "p"] 4 nil nil])
(defalias 'diogenes-browser-quit #[0 "\300\301!\207" [diogenes--send-cmd-to-browser "q"] 2 nil nil])#@20
(fn &optional N)
(defalias 'diogenes-browser-forward-line #[256 "\211y\210m\205 \300 \207" [diogenes-browser-forward] 2 (#$ . 1155) "p"])#@20
(fn &optional N)
(defalias 'diogenes-browser-backward-line #[256 "\211[y\210o\205\n \300 \207" [diogenes-browser-backward] 2 (#$ . 1301) "p"])#@20
(fn &optional N)
(defalias 'diogenes-browser-beginning-of-buffer #[256 "\211\204 o\203 \300 \210\301!\207" [diogenes-browser-backward beginning-of-buffer] 3 (#$ . 1451) "^P"])#@20
(fn &optional N)
(defalias 'diogenes-browser-end-of-buffer #[256 "\211\204 m\203 \300 \210\301!\207" [diogenes-browser-forward end-of-buffer] 3 (#$ . 1637) "^P"])#@67 Toggle display of the embedded citations in the Diogenes Browser.
(defalias 'diogenes-browser-toggle-citations #[0 "\212\203B \302eb\210\302\303\304!\211\262\205= \305! >\204# \306\307\310D\"\210\211\311H\305! >\2045 \306\307\310D\"\210\312H|\210\202 \262\202o \313eb\210\302\314`\315\"\211\262\205m \211b\205m m?\205m \316`\315\"\211\203i \317!c\210\210\202H \262)\207" [diogenes-browser-show-citations cl-struct-prop-match-tags nil text-property-search-forward diogenes-citation type-of signal wrong-type-argument prop-match 1 2 t next-single-property-change cit get-text-property diogenes--browser-format-citation] 6 (#$ . 1810) nil])#@106 Join all hyphenated words in the current Diogenes Browser Buffer.
(fn &optional MARK-WITH-VERTICAL-BAR)
(defalias 'diogenes-browser-remove-hyphenation #[256 "\306=\204\n \307\310!\210\311 \312 \211 \313\314\"\216\315!\210\212eb\210\312\316\317\312\320#\205- \321\224\321\225B\211\262\205\376 \322\323!\211\205@ \324\323\312\211\320$\211\205g \325!>\204S \326\327\330D\"\210\211\321Hb\205g \316\331d\320#\205g \332\224\332\225B\211\205q \333@A\"\211\205{ \333@A\"\211\203\365 \334\325!>\204\221 \326\327\330D\"\210\321H\325!>\204\245 \326\327\330 D\"\210\335H\336$\210\334\325!>\204\276 \326\327\330D\"\210\321H\325!>\204\322 \326\327\330D\"\210\335H\337$\210@AT|\210Ab\210\340\321!\210\203\361 \341\342!\210\341!\210\266\211Ab\210\202 -\207" [major-mode most-positive-fixnum undo-strong-limit undo-limit undo-outer-limit cl-struct-prop-match-tags diogenes-browser-mode error "Not in a Diogenes Browser buffer!" prepare-change-group nil make-closure #[0 "\301\300!\210\302\300!\207" [V0 accept-change-group undo-amalgamate-change-group] 2] activate-change-group re-search-forward "\\([^ <]+\\)-\\s-*$" t 1 text-property-search-backward cit text-property-search-forward type-of signal wrong-type-argument prop-match "\\S-+" 0 buffer-substring-no-properties put-text-property 2 hyphen-start hyphen-end delete-char insert-and-inherit "|"] 14 (#$ . 2468) "P"])
(defalias 'diogenes-browser-reinsert-hyphenation #[0 "\306=\204\n \307\310!\210\311 \312 \211 \313\314\"\216\315!\210\212eb\210\312\211\316\317!\211\262\205\356 \316\320!\211\262\205\356 \321!>\204B \322\323\324D\"\210\325H\210\312\321!>\204V \322\323\324D\"\210\325H\321!>\204i \322\323\324D\"\210\326H\321!>\204| \322\323\324D\"\210\326H\321!>\204\220 \322\323\324D\"\210\327H\321!>\204\244 \322\323\324D\"\210\327H\330\331#\210\330\332#\210\333!\333!b\210\334\335\336P#c\210b\210\337\340!!\210\341G!\210`S`{\342\230\203\343 \341\343!\210\334\335\344#c\266 \202! \266\202-\207" [major-mode most-positive-fixnum undo-strong-limit undo-limit undo-outer-limit cl-struct-prop-match-tags diogenes-browser-mode error "Not in a Diogenes Browser buffer!" prepare-change-group nil make-closure #[0 "\301\300!\210\302\300!\207" [V0 accept-change-group undo-amalgamate-change-group] 2] activate-change-group text-property-search-forward hyphen-start hyphen-end type-of signal wrong-type-argument prop-match 3 1 2 remove-text-properties (hyphen-start nil) (hyphen-end nil) text-properties-at apply propertize " " re-search-backward regexp-quote delete-char "|" -1 "-"] 15 nil nil])#@23 Lookup word at point.
(defalias 'diogenes-browser-lookup #[0 "\300\301\302\303\304\305!#!\207" [diogenes-parse-and-lookup-greek replace-regexp-in-string "[^[:alpha:]]" "" thing-at-point word] 6 (#$ . 5101) nil])#@42 Basic mode map for the Diogenes Browser.
(defvar diogenes-browser-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\207" [text-mode-map make-sparse-keymap keymap-set "<remap> <previous-line>" diogenes-browser-backward-line "<remap> <next-line>" diogenes-browser-forward-line "<remap> <beginning-of-buffer>" diogenes-browser-beginning-of-buffer "<remap> <end-of-buffer>" diogenes-browser-end-of-buffer "C-c C-n" diogenes-browser-forward "C-c C-p" diogenes-browser-backward "C-c C-c" diogenes-browser-lookup "C-c C-q" diogenes-browser-quit "C-c C--" diogenes-browser-remove-hyphenation "C-c C-+" diogenes-browser-reinsert-hyphenation "C-c C-t" diogenes-browser-toggle-citations] 5) (#$ . 5318))
(defvar diogenes-browser-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-browser-mode-hook variable-documentation put "Hook run after entering Diogenes Browser 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-browser-mode-map definition-name diogenes-browser-mode] 4)
(defvar diogenes-browser-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-browser-mode-abbrev-table diogenes-browser-mode-map variable-documentation put purecopy "Keymap for `diogenes-browser-mode'." boundp diogenes-browser-mode-syntax-table definition-name diogenes-browser-mode defvar-1 nil make-syntax-table "Syntax table for `diogenes-browser-mode'." define-abbrev-table "Abbrev table for `diogenes-browser-mode'." derived-mode-parent text-mode] 5)#@253 Major mode to browse Diogenes' databases.
In addition to any hooks its parent mode `text-mode' might have run,
this mode runs the hook `diogenes-browser-mode-hook', as the final or
penultimate step during initialization.
\{diogenes-browser-mode-map}
(defalias 'diogenes-browser-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\334\335!\207" [delay-mode-hooks major-mode mode-name diogenes-browser-mode-map diogenes-browser-mode-syntax-table diogenes-browser-mode-abbrev-table make-local-variable t text-mode diogenes-browser-mode "Diogenes Browser" 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--browser-backwards diogenes--browser-language diogenes--browser-first-insertion run-mode-hooks diogenes-browser-mode-hook local-abbrev-table] 5 (#$ . 7415) nil])#@17
(fn CITATION)
(defalias 'diogenes--browser-format-citation #[257 "\300\301\302\303\304\305#\"\306\307\310\311\312\311\313\307& \207" [propertize format "%-14s" mapconcat #[257 "\300\301\"\207" [format "%s"] 4 "\n\n(fn X)"] "." diogenes-citation t face font-lock-comment-face font-lock-face rear-nonsticky] 11 (#$ . 8586)])#@21
(fn HEADER-LINES)
(defalias 'diogenes--browser-format-header #[257 "\300\301\302\303#\266\202\304P\305\306\307\310\311\310\312\306\313\306& \207" [propertize "\n" mapconcat identity "\n\n" diogenes-header t face info-title-1 font-lock-face front-sticky rear-nonsticky] 13 (#$ . 8918)])#@92 Buffers the output of the diogenes browser output, if it is an
incomplete lisp expression.
(defvar diogenes--browser-output-buffer "" (#$ . 9214))
(make-variable-buffer-local 'diogenes--browser-output-buffer)#@127 Try to read a lisp expression from browser output.
If it is incomplete, buffer it and prepend it when called again.
(fn STR)
(defalias 'diogenes--read-browser-output #[257 "\3011 \302P!0\202 \210\303\211\203 \211<\203 \304\207P\303\207" [diogenes--browser-output-buffer (error) read nil ""] 4 (#$ . 9429)])#@20
(fn PROC STRING)
(defalias 'diogenes--browser-filter #[514 "\303\304!!\205\246 \305!\211\205\244 r\304!q\210\306!\210\307\310\"\311\312\"\311\313\"\314\204. \315\316!\210\317\300!\203T \203T \203H eb\210\320 \210eb\210\202W \321\322!\204W eb\210\202W db\210\203` \323!c\210`\211\203\205 \211@ \203r \324@!c\210\325\326\327A\"\330@#c\210A\266\202\202b \210\331!d\314\223\210\n\203\231 \314\211b\202\235 \332\333\334\"\262\262\266\203)\262\207" [diogenes--browser-backwards diogenes-browser-show-citations diogenes-browser-first-insertion buffer-live-p process-buffer diogenes--read-browser-output seqp seq-drop 2 seq--elt-safe 1 0 nil error "No input received!" boundp newline text-property-search-forward diogenes-header diogenes--browser-format-header diogenes--browser-format-citation propertize format "%s\n" cit process-mark recenter -1 t] 14 (#$ . 9752)])#@193 Function that browses a work from the Diogenes Databases.
Passage has to be a list of strings containing the four digit
number of the author and the number of the work.
(fn OPTIONS PASSAGE)
(defalias 'diogenes--browse-work #[514 "\302\303\304\"\305#\210\306 \210\307\310\311\"\211\312\267\202 \313\202! \314\202! \315\262\211\207" [diogenes-browser-first-insertion diogenes--browser-language diogenes--start-perl "browser" diogenes--browse-interactively-script diogenes--browser-filter diogenes-browser-mode t plist-get :type #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("tlg" 24 "phi" 28)) "greek" "latin" nil] 7 (#$ . 10644)])#@140 Select a specific passage in a work from a diogenes database for browsing.
Uses the Diogenes Perl module.
(fn TYPE &optional AUTHOR WORK)
(defalias 'diogenes--browse-database #[769 "\206 \300\301D!\206 \302\301D\"\303\304!\205! \305\301D#\306\301DD\244\"\207" [diogenes--select-author-num :type diogenes--select-work-num y-or-n-p "Specify passage? " diogenes--select-passage diogenes--browse-work] 10 (#$ . 11332)])#@125 Sentinel for the Diogenes Dumper. Its main function is to
initialize post-processing after termination.
(fn PROCESS EVENT)
(defalias 'diogenes--dump-from-database-sentinel #[514 "r\300!q\210\211\301\232\205 db\210\302`!\210\303\304!\210\305 )\207" [process-buffer "finished\n" set-mark re-search-backward "^[[:alpha:]]+" beginning-of-line] 4 (#$ . 11771)])#@191 Function that dumps a work from the Diogenes Databases.
Passage has to be a list of strings containing the four digit
number of the author and the number of the work.
(fn OPTIONS PASSAGE)
(defalias 'diogenes--dump-work #[514 "\300\301\302\303\304\"\"\305\306$\207" [diogenes--start-perl "dump" diogenes--browser-script append (:browse-lines 100000000) nil diogenes--dump-from-database-sentinel] 8 (#$ . 12137)])#@119 Dump a work from a Diogenes database in its entirety.
Uses the Diogenes Perl module.
(fn TYPE &optional AUTHOR WORK)
(defalias 'diogenes--dump-from-database #[769 "\206 \300\301D!\206 \302\301D\"\303\301DD\"\207" [diogenes--select-author-num :type diogenes--select-work-num diogenes--dump-work] 9 (#$ . 12559)])
(provide 'diogenes-browser)