;ELC ;;; Compiled by daniel@waffles on Fri Nov 21 07:57:21 2014 ;;; from file /Users/daniel/.emacs.d/elpa/cider-20141120.1746/cider-eldoc.el ;;; in Emacs version 24.3.1 ;;; 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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [require cider-client cider-interaction eldoc dash] 2) #@59 Extra commands to be added to eldoc's safe commands list. (defvar cider-extra-eldoc-commands '("yas-expand") (#$ . 654)) #@55 The eldoc information for the last symbol we checked. (defvar cider-eldoc-last-symbol nil (#$ . 781)) (make-variable-buffer-local 'cider-eldoc-last-symbol) #@37 Format the eldoc THING. (fn THING) (defalias 'cider-eldoc-format-thing #[257 "\300\301\302#\207" [propertize face font-lock-function-name-face] 5 (#$ . 943)]) #@118 Format the the function ARGLIST for eldoc. POS is the index of the currently highlighted argument. (fn ARGLIST POS) (defalias 'cider-highlight-args #[514 "\300!\301C\302\303\304\305\306\307#\310\"\311\312%\313#\207" [cider--find-rest-args-position 0 mapconcat make-byte-code 257 "\303\304\"\305=\203\211\2027\302@T\300U\204(\301\2030\302@T\301V\2030\300\301V\2030\306\307\310#\2021\211\302\211@T\240\210\207" vconcat vector [format "%s" & propertize face eldoc-highlight-function-argument] 6 "\n\n(fn ARG)" " "] 13 (#$ . 1111)]) #@61 Find the position of & in the ARGLIST vector. (fn ARGLIST) (defalias 'cider--find-rest-args-position #[257 "\300\301\302\303\"\"\207" [-elem-index & append nil] 6 (#$ . 1666)]) #@96 Format the ARGLIST for eldoc. POS is the index of the argument to highlight. (fn ARGLIST POS) (defalias 'cider-highlight-arglist #[514 "\300\301\"\302Q\207" ["[" cider-highlight-args "]"] 6 (#$ . 1851)]) #@91 Format all the ARGLIST for eldoc. POS is the index of current argument. (fn ARGLIST POS) (defalias 'cider-eldoc-format-arglist #[514 "\300\301\302\303\304\305\306!\307\"\310\311%\312#\313Q\207" ["(" mapconcat make-byte-code 257 "\301\300\"\207" vconcat vector [cider-highlight-arglist] 4 "\n\n(fn ARGS)" " " ")"] 10 (#$ . 2064)]) #@110 Move to the beginning of current sexp. Return the number of nested sexp the point was over or after. (fn) (defalias 'cider-eldoc-beginning-of-sexp #[0 "\301\302C\303\262\304\305\306\302\307\310\311!\312\"\313\314%D\315\305\316\304EDC\217\210\211@)\207" [parse-sexp-ignore-comments t 0 nil #1=#:err funcall make-byte-code "\301\302\303\304\305\306\307\300!\310\"\311\312%D\313\302\314\301EDC\217\210`\315\316!\210`W\205(\300\211@T\240\262\2050\202\207" vconcat vector [#2=#:err funcall make-byte-code 0 "`\301\302!\210\301\303!\210`W\205\300\303\240\207" vconcat vector [forward-sexp -1 1] 3 "\n\n(fn)" error #[257 "\300\207" [nil] 2 "\n\n(fn ##)"] forward-sexp -1] 8 "\n\n(fn)" error #[257 "\300\207" [nil] 2 "\n\n(fn ##)"]] 10 (#$ . 2406)]) #@73 Return a list of the current sexp and the current argument index. (fn) (defalias 'cider-eldoc-info-in-current-sexp #[0 "\212\300 S\211\301W\203 \301\262`Sf\206\301\302\235?\205\303 D\262)\207" [cider-eldoc-beginning-of-sexp 0 (34 123 91) cider-symbol-at-point] 3 (#$ . 3171)]) #@43 Return the arglist for THING. (fn THING) (defalias 'cider-eldoc-arglist #[257 "\301\302!\2059\211\2059\211\303\230?\2059\304\305\"?\2059\211@\230\203#A\207\306\307!!\211\2057\310\302\"B\211\262\262\207" [cider-eldoc-last-symbol nrepl-op-supported-p "eldoc" "" string-prefix-p ":" cider-sync-request:eldoc substring-no-properties nrepl-dict-get] 5 (#$ . 3463)]) #@74 Backend function for eldoc to show argument list in the echo area. (fn) (defalias 'cider-eldoc #[0 "\302 \205*\303\235?\205*\304 \211@\211A@)\305!\211\205(\306\307\310!\311\"#\266\204\207" [last-command x cider-connected-p (next-error previous-error) cider-eldoc-info-in-current-sexp cider-eldoc-arglist format "%s: %s" cider-eldoc-format-thing cider-eldoc-format-arglist] 11 (#$ . 3847)]) #@49 Turn on eldoc mode in the current buffer. (fn) (defalias 'cider-turn-on-eldoc-mode #[0 "\302\300!\210\303\304\305 \"\210\306\307!\207" [eldoc-documentation-function cider-extra-eldoc-commands make-local-variable cider-eldoc apply eldoc-add-command eldoc-mode 1] 3 (#$ . 4255)]) (provide 'cider-eldoc)