-
Notifications
You must be signed in to change notification settings - Fork 3
/
Copy pathdiogenes-user-interface.elc
28 lines (20 loc) · 2.05 KB
/
diogenes-user-interface.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
;ELC
;;; Compiled
;;; in Emacs version 29.4
;;; with all optimizations.
(byte-code "\300\301!\210\300\302!\210\300\303!\207" [require cl-lib seq diogenes-lisp-utils] 2)#@44 Select a Diogenes database using a prompt.
(defalias 'diogenes--select-database #[0 "\302\303\304 \")\207" [completion-extra-properties diogenes--corpora (:annotation-function (lambda (s) (concat " " (cdr (assoc s minibuffer-completion-table))))) completing-read "Please choose search corpus: "] 3 (#$ . 180)])#@97 Select one author from a diogenes database using a prompt.
(fn OPTIONS &optional AUTHOR-REGEX)
(defalias 'diogenes--select-author-num #[513 "\300\"\301\302\303\"\"A@\207" [diogenes--get-author-list assoc completing-read "Author: "] 7 (#$ . 497)])#@82 Select a single work from an author in a Diogenes database.
(fn OPTIONS AUTHOR)
(defalias 'diogenes--select-work-num #[514 "\300\"\301\302\303\"\"A@\207" [diogenes--get-works-list assoc completing-read "Work: "] 7 (#$ . 754)])#@97 Select a specific passage from a given work in the Diogenes database.
(fn OPTIONS AUTHOR WORK)
(defalias 'diogenes--select-passage #[771 "\300D\"\211\301\211:\203# @\262\302\303\304\"!B\262A\262\202 \211\237\207" [diogenes--get-work-labels nil read-string format "%s: "] 11 (#$ . 991)])
(defalias 'diogenes--select-tlg-categories #[0 "\300 \301\302\303\304!\"!\302\305\306\"\"\207" [diogenes--get-tlg-categories intern completing-read "Select an category: " diogenes--plist-keys "Please select: " plist-get] 7])#@122 Select a list of authors from a diogenes database using a prompt.
Returns an array.
(fn OPTIONS &optional AUTHOR-REGEX)
(defalias 'diogenes--select-author-nums #[513 "\300\301\302\"B\262\303\304!\204 \211\237\262!\207" [vconcat nil diogenes--select-author-num y-or-n-p "Add another author?"] 7 (#$ . 1525)])#@131 Select a list of authors and works from a diogenes database using a prompt.
Returns a plist.
(fn OPTIONS &optional AUTHOR-REGEX)
(defalias 'diogenes--select-authors-and-works #[513 "\300\207" [nil] 3 (#$ . 1846)])
(provide 'diogenes-user-interface)