;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'rudel-backend) #@279 Read a backend name from BACKENDS and return that name or the actual backend depending on RETURN. If RETURN is 'object, return the backend object which is of the form (NAME . CLASS-OR-OBJECT); Otherwise return the name as string. (fn BACKENDS &optional PROMPT RETURN CATEGORY) (defalias 'rudel-read-backend #[1025 "\204\300\262\211\205\301!\302\303\"\304\305#\306\307\306\211J@&\310=\2035\311\312!\"\2026\211\207" ["Backend: " rudel-interactive--make-read-backend-history-symbol mapcar #[257 "\300@!\207" [symbol-name] 3 "\n\n(fn CELL)"] completing-read rudel-interactive--make-prompt nil t object assoc intern] 14 (#$ . 434)]) #@265 Read a session name from SESSIONS and return that name or the session info depending on RETURN. If PROMPT is non-nil use as prompt string. If RETURN is 'object, return the session object; Otherwise return the name as string. (fn SESSIONS &optional PROMPT RETURN) (defalias 'rudel-read-session #[769 "\204\300\262\301\302\303\"\304\305$\306=\203%\307\310\311\312&\202&\211\262\207" ["Session: " #[257 "\211\211:\205\211@9\205\300A!\262\203\301@!\207\302\303\"\207" [object-p symbol-name plist-get :name] 4 "\n\n(fn SESSION)"] completing-read mapcar nil t object cl-find :key :test string=] 12 (#$ . 1094)]) #@51 History of inputs read by `rudel-read-user-name'. (defvar rudel-read-user-name-history nil (#$ . 1734)) #@70 Read a username. The default is taken from `rudel-default-username'. (defalias 'rudel-read-user-name #[0 "\302@\203\303\304@\"\202\303\305!?\205 \300@\206 $\207" [rudel-read-user-name-history rudel-default-username read-string format "Username (default %s): " "Username: "] 5 (#$ . 1844)]) #@15 Read a color. (defalias 'rudel-read-user-color #[0 "\300\301\302\"\207" [read-color "Color: " t] 3 (#$ . 2152)]) #@273 Read a user name from USERS and return that name or the actual user depending on RETURN. If USERS is nil, use the user list of `rudel-current-session'. If RETURN. is 'object, return the user object; Otherwise return the name as string. (fn &optional USERS PROMPT RETURN) (defalias 'rudel-read-user #[768 "\204\203\301\302\"\262\202\303\304!\210\204\305\262\306\307\"\310\311\312$\313=\2039\314\315\316\317\307&\202:\211\207" [rudel-current-session eieio-oref users error "No user list and no active Rudel session" "User: " mapcar object-name-string completing-read nil t object cl-find :test string= :key] 12 (#$ . 2272)]) #@229 Read a document name from DOCUMENTS and return that name or the actual document depending on RETURN. If RETURN. is 'object, return the backend object; Otherwise return the name as string. (fn &optional DOCUMENTS PROMPT RETURN) (defalias 'rudel-read-document #[768 "\204\203\301\302\"\262\202\303\304!\210\204\303\305!\210\204$\306\262\307\310\"\311\312\313$\314=\203A\315\316\317\320\310&\202B\211\207" [rudel-current-session eieio-oref documents error "No document list and no active Rudel session" "No documents" "Document: " mapcar rudel-unique-name completing-read nil t object cl-find :test string= :key] 12 (#$ . 2927)]) #@523 Obtain the password identified by ID using info in CONTEXT. ID is a symbol identifying the requested password. CONTEXT is a property list that specifies additional information identifying the requested password. PROMPT is used when it is necessary to ask the user for the password. For example, the XMPP backend would set ID to 'xmpp-sasl and CONTEXT to (:host "jabber.org" :port 5222 :username "joe"). This Information would be used to search auth-source's sources for a matching password entry. (fn ID CONTEXT PROMPT) (defalias 'rudel-obtain-password #[771 "\300\301\302\303!\304Q!\"\206\305!\207" [plist-get intern-soft ":" symbol-name "-password" read-passwd] 9 (#$ . 3588)]) #@82 When the requested buffer NAME exists, clear its contents and use it. (fn NAME) (defalias 'rudel-allocate-buffer-clear-existing #[257 "\300!\211\203C\301\302\303\"!\204\304\305\"\210\306!\211\203-\301\302\307\310!#!\204-\304\311\"\210\210\312!\2038\313!\210r\211q\210\314 \210)\202H\315!\262\211\207" [get-buffer yes-or-no-p format "Buffer `%s' already exists; Erase contents? " error "Buffer `%s' already exists" rudel-buffer-document "Buffer `%s' is attached to the document `%s'; Detach? " rudel-unique-name "Buffer `%s' already attached to a document" rudel-buffer-has-document-p rudel-unsubscribe erase-buffer get-buffer-create] 9 (#$ . 4282)]) #@74 When the requested buffer NAME exists, create another buffer. (fn NAME) (defalias 'rudel-allocate-buffer-make-unique #[257 "\300\301!!\207" [get-buffer-create generate-new-buffer-name] 4 (#$ . 4957)]) #@169 Return a progress reporter that displays LABEL along with states. This function's primary purpose is constructing callbacks suitable for `rudel-state-wait' (fn LABEL) (defalias 'rudel-make-state-progress-callback #[257 "\300!\301\302\303\304\305\"\306\"\307\310%\207" [make-progress-reporter make-byte-code 257 "\211:\203\302\301\303\304\305\300@##\207\302\301\303\300#\210\306\301!\207" vconcat vector [progress-reporter-force-update nil format "%s(%s)" progress-reporter-done] 8 "\n\n(fn STATE)"] 9 (#$ . 5167)]) #@76 Make a symbol for the read history of backends of CATEGORY. (fn CATEGORY) (defalias 'rudel-interactive--make-read-backend-history-symbol #[257 "\300\301\302\"!\303!\204\211\304L\210\211\207" [intern format "rudel-interactive-read-backend-history-%s" boundp nil] 5 (#$ . 5698)]) #@99 Make a prompt based on PROMPT for backends of CATEGORY and HISTORY. (fn PROMPT CATEGORY HISTORY) (defalias 'rudel-interactive--make-prompt #[771 "\203(\211J\203(\301\302\303\304\305\306#)\266\203\203\"\307\310O\202#J@#\207\207" [inhibit-changing-match-data format "%s (default %s): " ": $" nil t string-match 0 -2] 12 (#$ . 5987)]) (provide 'rudel-interactive)