;ELC ;;; Compiled by daniel@waffles on Fri Nov 21 07:57:21 2014 ;;; from file /Users/daniel/.emacs.d/elpa/cider-20141120.1746/cider-client.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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'nrepl-client) #@43 Find the current user's first name. (fn) (defalias 'cider-user-first-name #[0 "\300 \301\230\203\f\302 \202\300 \303\304\"\210\305\306\307\"!\207" [user-full-name "" user-login-name string-match "^[^ ]*" capitalize match-string 0] 5 (#$ . 558)]) #@65 Scientifically-proven optimal words of hackerish encouragement. (defvar cider-words-of-inspiration (byte-code "\300\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330\331\332\333\334\335\336\337\340\341\342\343\344\345 \"\257$\207" ["The best way to predict the future is to invent it. -Alan Kay" "A point of view is worth 80 IQ points. -Alan Kay" "Lisp isn't a language, it's a building material. -Alan Kay" "Simple things should be simple, complex things should be possible. -Alan Kay" "Measuring programming progress by lines of code is like measuring aircraft building progress by weight. -Bill Gates" "Controlling complexity is the essence of computer programming. -Brian Kernighan" "The unavoidable price of reliability is simplicity. -C.A.R. Hoare" "You're bound to be unhappy if you optimize everything. -Donald Knuth" "Simplicity is prerequisite for reliability. -Edsger W. Dijkstra" "Elegance is not a dispensable luxury but a quality that decides between success and failure. -Edsger W. Dijkstra" "Deleted code is debugged code. -Jeff Sickel" "The key to performance is elegance, not battalions of special cases. -Jon Bentley and Doug McIlroy" "First, solve the problem. Then, write the code. -John Johnson" "Simplicity is the ultimate sophistication. -Leonardo da Vinci" "Programming is not about typing... it's about thinking. -Rich Hickey" "Design is about pulling things apart. -Rich Hickey" "Programmers know the benefits of everything and the tradeoffs of nothing. -Rich Hickey" "Code never lies, comments sometimes do. -Ron Jeffries" "The true delight is in the finding out rather than in the knowing. -Isaac Asimov" "If paredit is not for you, then you need to become the sort of person that paredit is for. -Phil Hagelberg" "Express Yourself. -Madonna" "Take this REPL, fellow hacker, and may it serve you well." "Let the hacking commence!" "Hacks and glory await!" "Hack and be merry!" "Your hacking starts... NOW!" "May the Source be with you!" "May the Source shine upon thy REPL!" "Code long and prosper!" "Happy hacking!" "nREPL server is up, CIDER REPL is online!" "CIDER REPL operational!" "Your imagination is the only limit to what you can do with this REPL!" "This REPL is yours to command!" "Fame is but a hack away!" format "%s, this could be the start of a beautiful program." cider-user-first-name] 38) (#$ . 816)) #@64 Select a random entry from `cider-words-of-inspiration'. (fn) (defalias 'cider-random-words-of-inspiration #[0 "\301\302G!8!\207" [cider-words-of-inspiration eval random] 3 (#$ . 3217)]) #@51 Message displayed on successful connection. (fn) (defalias 'cider-display-connected-message #[0 "\300\301\302 \"\207" [message "Connected. %s" cider-random-words-of-inspiration] 3 (#$ . 3413)]) (add-hook 'nrepl-connected-hook 'cider-display-connected-message) #@41 Check if FORM is an ns form. (fn FORM) (defalias 'cider-ns-form-p #[257 "\300\301\"\207" [string-match "^[[:space:]]*(ns\\([[:space:]]*$\\|[[:space:]]+\\)"] 4 (#$ . 3681)]) #@184 Send the request INPUT and register the CALLBACK as the response handler. NS & SESSION specify the context in which to evaluate the request. (fn INPUT CALLBACK &optional NS SESSION) (defalias 'cider-eval #[1026 "\300!\203\n\301\202\206\302 \303$\207" [cider-ns-form-p "user" cider-current-ns nrepl-request:eval] 10 (#$ . 3863)]) #@170 Send the request INPUT and register the CALLBACK as the response handler. NS specifies the namespace in which to evaluate the request. (fn INPUT CALLBACK &optional NS) (defalias 'cider-tooling-eval #[770 "\300\301 $\207" [cider-eval nrepl-current-tooling-session] 8 (#$ . 4211)]) #@42 Interrupt any pending evaluations. (fn) (defalias 'cider-interrupt #[0 "r\301 q\210\302!\211\211\205\211@\303\304p!\"\210A\266\202\202 \262\262)\207" [nrepl-pending-requests nrepl-current-connection-buffer cider-util--hash-keys nrepl-request:interrupt cider-interrupt-handler] 7 (#$ . 4501) nil]) #@32 The current REPL buffer. (fn) (defalias 'cider-current-repl-buffer #[0 "\300\301!\211\205 \302\303\304!\"\207" [nrepl-current-connection-buffer no-error buffer-local-value nrepl-repl-buffer get-buffer] 5 (#$ . 4813)]) #@288 Prompt to choose from among multiple VAR-INFO candidates, if required. This is needed only when the symbol queried is an unqualified host platform method, and multiple classes have a so-named member. If VAR-INFO does not contain a `candidates' key, it is returned as is. (fn VAR-INFO) (defalias 'cider--var-choice #[257 "\300\301\"\211\203\302!\303\304\305\306$\300\"\266\202\202\207" [nrepl-dict-get "candidates" nrepl-dict-keys completing-read "Member in class: " nil t] 8 (#$ . 5041)]) #@168 Return VAR's info as an alist with list cdrs. When multiple matching vars are returned you'll be prompted to select one, unless ALL is truthy. (fn VAR &optional ALL) (defalias 'cider-var-info #[513 "\205\300\230?\205\301!\203\211\202\302!\262\207" ["" cider-sync-request:info cider--var-choice] 5 (#$ . 5549)]) #@79 Return the CLASS MEMBER's info as an alist with list cdrs. (fn CLASS MEMBER) (defalias 'cider-member-info #[514 "\205 \211\205 \300\301#\207" [cider-sync-request:info nil] 6 (#$ . 5881)]) #@222 Perform the nREPL "load-file" op. FILE-CONTENTS, FILE-PATH and FILE-NAME are details of the file to be loaded. If CALLBACK is nil, use `cider-load-file-handler'. (fn FILE-CONTENTS FILE-PATH FILE-NAME &optional CALLBACK) (defalias 'cider-request:load-file #[1027 "\300\301\302\303\304 \305 \306\n\307 \257\n\206\310p!\"\207" [nrepl-send-request "op" "load-file" "session" nrepl-current-session "file" "file-path" "file-name" cider-load-file-handler] 15 (#$ . 6082)]) #@62 Send sync REQUEST and return the "value" slot. (fn REQUEST) (defalias 'cider--sync-request-value #[257 "\300\301\302\"!\210\303\304!\305\"\207" [cider-ensure-op-supported lax-plist-get "op" nrepl-dict-get nrepl-send-sync-request "value"] 5 (#$ . 6561)]) #@145 Send "apropos" op with args SEARCH-NS, DOCS-P, PRIVATES-P, CASE-SENSITIVE-P. (fn QUERY &optional SEARCH-NS DOCS-P PRIVATES-P CASE-SENSITIVE-P) (defalias 'cider-sync-request:apropos #[1281 "\300\301\302\303\304\305 \306 \307\f\205\310 D\f\205\311\f\205 \312\f\205&\313$BBBBBB!\314\"\207" [nrepl-dict-get nrepl-send-sync-request "op" "apropos" "ns" cider-current-ns "query" append "search-ns" ("docs?" "t") ("privates?" "t") ("case-sensitive?" "t") "apropos-matches"] 18 (#$ . 6825)]) #@43 Return a list of classpath entries. (fn) (defalias 'cider-sync-request:classpath #[0 "\300\301!\210\302\303\304\301\305\306 F!\301\"\207" [cider-ensure-op-supported "classpath" nrepl-dict-get nrepl-send-sync-request "op" "session" nrepl-current-session] 6 (#$ . 7327)]) #@85 Return a list of completions for STR using nREPL's "complete" op. (fn STR CONTEXT) (defalias 'cider-sync-request:complete #[514 "\300\301\302\303\304\305 \306\307 \310\n\311 \257\n!\312\"\207" [nrepl-dict-get nrepl-send-sync-request "op" "complete" "session" nrepl-current-session "ns" cider-current-ns "symbol" "context" "completions"] 14 (#$ . 7604)]) #@96 Send "info" op with parameters SYMBOL or CLASS and MEMBER. (fn SYMBOL &optional CLASS MEMBER) (defalias 'cider-sync-request:info #[769 "\300\301\302\303\304 \305\306 \307\n\205\310 D\n\205\311 D\n\205%\312 D#BBBBBB!\313\314\315\"\235?\2058\211\207" [nrepl-send-sync-request "op" "info" "session" nrepl-current-session "ns" cider-current-ns append "symbol" "class" "member" "no-info" nrepl-dict-get "status"] 15 (#$ . 7967)]) #@97 Send "eldoc" op with parameters SYMBOL or CLASS and MEMBER. (fn SYMBOL &optional CLASS MEMBER) (defalias 'cider-sync-request:eldoc #[769 "\300\301\302\303\304 \305\306 \307\n\205\310 D\n\205\311 D\n\205%\312 D#BBBBBB!\313\314\315\"\235?\2058\211\207" [nrepl-send-sync-request "op" "eldoc" "session" nrepl-current-session "ns" cider-current-ns append "symbol" "class" "member" "no-eldoc" nrepl-dict-get "status"] 15 (#$ . 8412)]) #@187 Macroexpand, using EXPANDER, the given EXPR. The default for DISPLAY-NAMESPACES is taken from `cider-macroexpansion-display-namespaces'. (fn EXPANDER EXPR &optional DISPLAY-NAMESPACES) (defalias 'cider-sync-request:macroexpand #[770 "\301\302!\210\303\304\305\302\306\307\310\311 \312 \206\313!\257\n!\314\"\207" [cider-macroexpansion-display-namespaces cider-ensure-op-supported "macroexpand" nrepl-dict-get nrepl-send-sync-request "op" "expander" "code" "ns" cider-current-ns "display-namespaces" symbol-name "expansion"] 16 (#$ . 8862)]) #@47 Get a list of the available namespaces. (fn) (defalias 'cider-sync-request:ns-list #[0 "\300\301\302\303\304 F!\207" [cider--sync-request-value "op" "ns-list" "session" nrepl-current-session] 5 (#$ . 9418)]) #@40 Get a list of the vars in NS. (fn NS) (defalias 'cider-sync-request:ns-vars #[257 "\300\301\302\303\304 \305\257!\207" [cider--sync-request-value "op" "ns-vars" "session" nrepl-current-session "ns"] 8 (#$ . 9633)]) #@65 Perform nREPL "resource" op with resource name NAME. (fn NAME) (defalias 'cider-sync-request:resource #[257 "\300\301\302\303\304F!\305\"\207" [nrepl-dict-get nrepl-send-sync-request "op" "resource" "name" "resource-path"] 7 (#$ . 9858)]) (provide 'cider-client)