;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\303\304!\210\303\305!\210\303\306\307\"\210\205\310!\311\312\313\314\315\316\313\316\317\320\321\322\323& #\316\207" [load-file-name sly-autodoc--path sly-autodoc--contrib require eldoc cl-lib sly-parse "lib/sly-parse" file-name-directory put sly-contribs sly-autodoc record sly-contrib nil (slynk/arglists) sly-autodoc-init sly-autodoc-unload ("Luke Gorrie " "Lawrence Mitchell " "Matthias Koeppe " "Tobias C. Rittweiler ") ("GPL")] 13) (defalias 'sly-autodoc-init #[0 "\305\306\307\310\311\312\313\"\"\"\210\314\313:\203'@\262\315\316E \317\320$A\262\202 \266\n\321=\2037\322 \2037\323 \210\324\325\326\"\210\324\327\326\"\210\324\330\326\"\210\331 !\f>\204U\332\333\334 D\"\210 \211\335\336I\207" [sly-autodoc--path sly-contrib--required-slynk-modules this-command sly-autodoc--contrib cl-struct-sly-contrib-tags mapc funcall mapcar sly-contrib--enable cl-remove-if sly-contrib--enabled-p nil (slynk/arglists) cl-adjoin sly-autodoc :key cl-first sly-setup sly-connected-p sly-contrib--load-slynk-dependencies add-hook sly-editing-mode-hook sly-autodoc-mode sly-mrepl-mode-hook sly-minibuffer-setup-hook type-of signal wrong-type-argument sly-contrib 1 t] 7]) (defalias 'sly-autodoc-unload #[0 "\303\304\305\"\210\303\306\305\"\210\303\307\305\"\210\310\311:\203(@\262\312\313\314$A\262\202\266\315\316\317\"\210\320\321\322\323\324\325\311\"\"\"\210\326 !\n>\204I\327\330\331 D\"\210 \211\332\311I\207" [sly-contrib--required-slynk-modules sly-autodoc--contrib cl-struct-sly-contrib-tags remove-hook sly-editing-mode-hook sly-autodoc-mode sly-mrepl-mode-hook sly-minibuffer-setup-hook (slynk/arglists) nil cl-remove :key cl-first sly-warning "Disabling contrib %s" sly-autodoc mapc funcall mapcar sly-contrib--disable cl-remove-if-not sly-contrib--enabled-p type-of signal wrong-type-argument sly-contrib 1] 7]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable sly-autodoc-accuracy-depth funcall function #[0 "\300\207" [10] 1] "Number of paren levels that autodoc takes into account for\n context-sensitive arglist display (local functions. etc)" :type integer :group sly-ui] 8) #@45 Show the argument list for NAME. (fn NAME) (defalias 'sly-arglist #[257 "\300!\211\301=\203 \302\303!\207\304\305\306!\"\207" [sly-autodoc--retrieve-arglist :not-available error "Arglist not available" message "%s" sly-autodoc--fontify] 6 (#$ . 2345) (byte-code "\300\301\302\"C\207" [sly-read-symbol-name "Arglist of: " t] 3)]) #@13 (fn NAME) (defalias 'sly-autodoc--retrieve-arglist #[257 "\211;\203 \211\202\2119\203\301!\202\302\303\304#\205\305\306\307\310DDD!@\207" [sly-cursor-marker symbol-name error "cl-etypecase failed: %s, %s" (string symbol) nil sly-eval slynk:autodoc quote] 7 (#$ . 2684)]) #@53 Like autodoc information forcing multiline display. (defalias 'sly-autodoc-manually #[0 "\300\301!\211\203\302\303\304\"!\207\302\305!\207" [sly-autodoc t eldoc-message format "%s" nil] 5 (#$ . 2976) nil]) (eldoc-add-command 'sly-autodoc-manually) #@37 Like `sly-space' but nicer. (fn N) (defalias 'sly-autodoc-space #[257 "\300!\210\301 \211\205\302\303\304\"!\207" [self-insert-command sly-autodoc eldoc-message format "%s"] 6 (#$ . 3233) "p"]) (eldoc-add-command 'sly-autodoc-space) (defvar sly-autodoc--cache-last-context nil) (defvar sly-autodoc--cache-last-autodoc nil) #@15 (fn STRING) (defalias 'sly-autodoc--canonicalize-whitespace #[257 "\300\301\302#\207" [replace-regexp-in-string "[ \n ]+" " "] 5 (#$ . 3567)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put sly-autodoc--canonicalize-whitespace speed -1 put byte-optimizer byte-compile-inline-expand] 5) (defvar sly-autodoc-preamble nil) #@23 (fn DOC MULTILINEP) (defalias 'sly-autodoc--format #[514 "\301\302\205\n\303!D\"\211\205\304\305\306#\211\205(\203\207\307\310\311\312#\262!\207" [sly-autodoc-preamble delete nil sly-autodoc--fontify mapconcat identity "\n" sly-oneliner replace-regexp-in-string "[ \n ]+" " "] 10 (#$ . 3915)]) #@68 Fontify STRING as `font-lock-mode' does in Lisp mode. (fn STRING) (defalias 'sly-autodoc--fontify #[257 "r\302\303\304\305\306#!q\210\307 \210\310=\204\310\311\306!\210\211c\210\312\313 \210)eb\210\314\315\312\306#\203G\316\317!\320\224\320\225|\210\321C`\322\323\"\324`#\210\266ed{)\207" [major-mode font-lock-verbose get-buffer-create sly-buffer-name :fontify :hidden t erase-buffer lisp-mode lisp-mode-variables nil font-lock-fontify-buffer re-search-forward "===> \\(\\(.\\|\n\\)*\\) <===" match-string 1 0 (face eldoc-highlight-function-argument) apply insert add-text-properties] 10 (#$ . 4231)]) #@159 Returns the cached arglist information as string, or nil. If it's not in the cache, the cache will be updated asynchronously. (fn &optional FORCE-MULTILINE) (defalias 'sly-autodoc #[256 "\212\304 \305\306\"\216\307\310 \311 B\211@\205:\211 \232\205\n\206 \203-\312\"\266\202\202:\313 \2037\314\"\210\266\315)\262)\262)\207" [inhibit-quit sly-autodoc--cache-last-context sly-autodoc--cache-last-autodoc eldoc-echo-area-use-multiline-p match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] t sly-current-connection sly-autodoc--parse-context sly-autodoc--format sly-background-activities-enabled-p sly-autodoc--async nil] 8 (#$ . 4854) "P"]) (defalias 'sly-autodoc--parse-context #[0 "\301 ?\205 \302!\207" [sly-autodoc-accuracy-depth sly-inside-string-or-comment-p sly-parse-form-upto-point] 2]) #@27 (fn CONTEXT MULTILINEP) (defalias 'sly-autodoc--async #[514 "\300\301\302AD\303\304\305 !F\306\307#\"\207" [sly-eval-async slynk:autodoc quote :print-right-margin window-width minibuffer-window sly-curry sly-autodoc--async%] 8 (#$ . 5705)]) #@31 (fn CONTEXT MULTILINEP DOC) (defalias 'sly-autodoc--async% #[771 "\211\211\203\211A\262\242\202\302\303\304GD\"\211A\262\242\203*\302\303\304\305G\\D\"\210\306=?\205H\211\2039\307 \205H\310\311\312\313 \"\"!\207" [sly-autodoc--cache-last-context sly-autodoc--cache-last-autodoc signal wrong-number-of-arguments (doc &optional cache-p) 2 :not-available eldoc-display-message-p eldoc-message format "%s" sly-autodoc--format] 12 (#$ . 5957)]) (defvar sly-autodoc-mode-map (byte-code "\300 \301\302\303#\210\207" [make-sparse-keymap define-key "A" sly-autodoc] 5)) #@101 Non-nil if Sly-Autodoc mode is enabled. Use the command `sly-autodoc-mode' to change this variable. (defvar sly-autodoc-mode nil (#$ . 6553)) (make-variable-buffer-local 'sly-autodoc-mode) #@608 Toggle echo area display of Lisp objects at point. This is a minor mode. If called interactively, toggle the `Sly-Autodoc mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `sly-autodoc-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'sly-autodoc-mode #[256 "\304 \305=\203 ?\202\247\203\306W\203\307\202\310\311\301!\2031\312\300 \"\2031\300 B\203H\313\302!\210\314\313\303!\210\315\316!\210\202X\316\317!\210\313\302!\210\307\313\303!\210\320\321\322\203b\323\202c\324\"\210\325\326!\203\205\304 \203w\211\304 \232\203\205\327\330\203\201\331\202\202\332\333#\210\210\334 \210\207" [sly-autodoc-mode local-minor-modes eldoc-documentation-function eldoc-minor-mode-string current-message toggle 1 nil t boundp delq make-local-variable sly-autodoc "" eldoc-mode -1 " ElDoc" run-hooks sly-autodoc-mode-hook sly-autodoc-mode-on-hook sly-autodoc-mode-off-hook called-interactively-p any message "Sly-Autodoc mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 6 (#$ . 6749) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar sly-autodoc-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\210\314\315!\207" [sly-autodoc-mode-map sly-autodoc-mode-hook variable-documentation put "Hook run after entering or leaving `sly-autodoc-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode sly-autodoc-mode boundp provide sly-autodoc] 6)