;ELC ;;; Compiled by daniel@waffles on Fri Nov 21 07:57:21 2014 ;;; from file /Users/daniel/.emacs.d/elpa/cider-20141120.1746/cider-inspector.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!\207" [require cl-lib cider-interaction] 2) (defconst cider-inspector-buffer "*cider inspect*") (byte-code " B\302\207" [cider-inspector-buffer cider-ancillary-buffers nil] 2) (defvar cider-inspector-mode-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\305#\210\303\307\310#\210\303\311\312#\210\303\313\314#\210\303\315\316#\210\303\317\316#\210\303\320\321#\210\303\322\321#\210\211\207" [cider-popup-buffer-mode-map make-sparse-keymap set-keymap-parent define-key [return] cider-inspector-operate-on-point " " [mouse-1] cider-inspector-operate-on-click "l" cider-inspector-pop "g" cider-inspector-refresh [tab] cider-inspector-next-inspectable-object " " [(shift tab)] cider-inspector-previous-inspectable-object [backtab]] 5)) (byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [cider-inspector-mode-hook variable-documentation put purecopy "Hook run when entering Inspector mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp cider-inspector-mode-map definition-name cider-inspector-mode] 5) (defvar cider-inspector-mode-map (make-sparse-keymap)) (byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [cider-inspector-mode-map variable-documentation put purecopy "Keymap for `cider-inspector-mode'." boundp cider-inspector-mode-syntax-table definition-name cider-inspector-mode] 5) (defvar cider-inspector-mode-syntax-table (make-syntax-table)) (byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [cider-inspector-mode-syntax-table variable-documentation put purecopy "Syntax table for `cider-inspector-mode'." cider-inspector-mode-abbrev-table definition-name cider-inspector-mode] 5) (defvar cider-inspector-mode-abbrev-table (progn (define-abbrev-table 'cider-inspector-mode-abbrev-table nil) cider-inspector-mode-abbrev-table)) (byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [cider-inspector-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `cider-inspector-mode'." cider-inspector-mode derived-mode-parent nil] 5) #@182 Major mode for inspecting Clojure data structures. \{cider-inspector-mode-map} This mode runs the hook `cider-inspector-mode-hook', as the final step during initialization. (fn) (defalias 'cider-inspector-mode #[0 "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210 \314!\210\307\306\315!\210\316 \306\317!\210\307)\320\321!\207" [delay-mode-hooks major-mode mode-name cider-inspector-mode-map cider-inspector-mode-syntax-table cider-inspector-mode-abbrev-table make-local-variable t kill-all-local-variables cider-inspector-mode "Inspector" use-local-map set-syntax-table electric-indent-chars nil truncate-lines run-mode-hooks cider-inspector-mode-hook local-abbrev-table clojure-mode-syntax-table buffer-read-only] 2 (#$ . 2776) nil]) #@69 Eval the string EXPRESSION and inspect the result. (fn EXPRESSION) (defalias 'cider-inspect #[257 "\300\301!\210\302\303 \"\207" [cider-ensure-op-supported "inspect-start" cider-inspect-sym cider-current-ns] 4 (#$ . 3540) (byte-code "\300\301\302 \"C\207" [cider-read-from-minibuffer "Inspect value: " cider-sexp-at-point] 3)]) (defalias 'cider-render-response #[257 "\300\301\302\303\302%\207" [nrepl-make-response-handler #[514 "\300\"\207" [cider-irender] 5 "\n\n(fn BUFFER STR)"] nil #[514 "\300\301\"\207" [cider-emit-into-popup-buffer "Oops"] 5 "\n\n(fn BUFFER STR)"]] 7 "\n\n(fn BUFFER)"]) (defalias 'cider-inspect-sym #[514 "\301\302\"\303\304\305\306\307\257\310!\"\207" [cider-inspector-buffer cider-popup-buffer t nrepl-send-request "op" "inspect-start" "sym" "ns" cider-render-response] 10 "\n\n(fn SYM NS)"]) (defalias 'cider-inspector-pop #[0 "\301\302\"\303\304\305D\306!\"\207" [cider-inspector-buffer cider-popup-buffer t nrepl-send-request "op" "inspect-pop" cider-render-response] 5 "\n\n(fn)" nil]) (defalias 'cider-inspector-push #[257 "\301\302\"\303\304\305\306\307!F\310!\"\207" [cider-inspector-buffer cider-popup-buffer t nrepl-send-request "op" "inspect-push" "idx" number-to-string cider-render-response] 8 "\n\n(fn IDX)"]) (defalias 'cider-inspector-refresh #[0 "\301\302\"\303\304\305D\306!\"\207" [cider-inspector-buffer cider-popup-buffer t nrepl-send-request "op" "inspect-refresh" cider-render-response] 5 "\n\n(fn)" nil]) (defalias 'cider-irender #[514 "rq\210\301 \210\302\303\304\305\306\307\310\311!\312\"\313\314%D\315\304\305\316\317\310\311 !\320\"\313\321%\303EDC\217\210)eb)\207" [inhibit-read-only cider-inspector-mode t #1=#:err funcall make-byte-code 0 "\301\302\300!@!\207" vconcat vector [cider-irender* read-from-string] 3 "\n\n(fn)" error 257 "\301 \210\302\300\261\207" [newline "Inspector error for: "] "\n\n(fn IGNORED)"] 12 "\n\n(fn BUFFER STR)"]) (defalias 'cider-irender* #[257 "\211\211\205\211@\300!\210A\266\202\202\207" [cider-irender-el*] 5 "\n\n(fn ELEMENTS)"]) (defalias 'cider-irender-el* #[257 "\2119\203\n\301!c\207\211;\203\302\303\304#c\207\211:\203%\211@\305=\203%\306 \207\211:\203>\211@\307=\203>\310\211A@)AA@\"\207\311\312\"\207" [x symbol-name propertize font-lock-face font-lock-keyword-face :newline newline :value cider-irender-value message "Unrecognized inspector object: %s"] 6 "\n\n(fn EL)"]) (defalias 'cider-irender-value #[514 "`\300\301!!\302`\303\304\305F#\210\207" [cider-irender-el* cider-font-lock-as-clojure add-text-properties cider-value-idx mouse-face highlight] 11 "\n\n(fn VALUE IDX)"]) #@327 Find the next/previous inspectable object. DIRECTION can be either 'next or 'prev. LIMIT is the maximum or minimum position in the current buffer. Return a list of two values: If an object could be found, the starting position of the found object and T is returned; otherwise LIMIT and NIL is returned. (fn DIRECTION LIMIT) (defalias 'cider-find-inspectable-object #[514 "\300\301\"\203 \302\202\300\303\"\203\304\202\305\306\307#\205\310\310`\204=\211U\204=\311\310$\312\311\"\262\262\202!\211\205C\313D\266\202\207" [eql next next-single-property-change prev previous-single-property-change error "cl-ecase failed: %s, %s" (next prev) nil cider-value-idx get-text-property t] 10 (#$ . 6179)]) #@140 Move point to the next inspectable object. With optional ARG, move across that many objects. If ARG is negative, move backwards. (fn ARG) (defalias 'cider-inspector-next-inspectable-object #[257 "de\300\301V\203N\302\303\"\211G\304U\203\211A\262@\202$\305\306\300GD\"@\211\2038b\210S\262\300\262\202I\204Eb\210\307\262\202I\310\311!\210\266\202\301W\205\237\302\312\"\211G\304U\203h\211A\262@\202o\305\306\300GD\"@\211\203\211U\204\211b\210T\262\300\262\202\232\204\226b\210\307\262\202\232\310\311!\210\266\202N\207" [nil 0 cider-find-inspectable-object next 2 signal wrong-number-of-arguments t error "No inspectable objects" prev] 9 (#$ . 6909) "p"]) #@143 Move point to the previous inspectable object. With optional ARG, move across that many objects. If ARG is negative, move forwards. (fn ARG) (defalias 'cider-inspector-previous-inspectable-object #[257 "\300[!\207" [cider-inspector-next-inspectable-object] 3 (#$ . 7622) "p"]) (defalias 'cider-inspector-property-at-point #[0 "\300\301\211`\"\206\211`S\"\207" [(cider-value-idx cider-range-button cider-action-number) #[514 "\300\211\301\300:\2030@\262\302\"\262\203%D\262\300\211\262\202&\301\2030A\262\202\207" [nil t get-text-property] 10 "\n\n(fn PROPERTIES POINT)"]] 5 "\n\n(fn)"]) #@237 Invoke the command for the text at point. 1. If point is on a value then recursivly call the inspector on that value. 2. If point is on an action then call that action. 3. If point is on a range-button fetch and insert the range. (fn) (defalias 'cider-inspector-operate-on-point #[0 "\300 \211G\301U\203\211A\262@\202\302\303\304GD\"@\305\306\"\203(\307!\202+\310\311!\207" [cider-inspector-property-at-point 2 signal wrong-number-of-arguments nil eql cider-value-idx cider-inspector-push error "No object at point"] 6 (#$ . 8243) nil]) #@60 Move to EVENT's position and operate the part. (fn EVENT) (defalias 'cider-inspector-operate-on-click #[257 "\301!\3028\206A@:\203A@@\202A@)\211\203/\303\304\"\203/\211b\210\305 \2022\306\307!\207" [position event-end 5 get-text-property cider-value-idx cider-inspector-operate-on-point error "No clickable part here"] 5 (#$ . 8799) "@e"]) (provide 'cider-inspector)