;ELC   
;;; Compiled
;;; in Emacs version 24.5.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\302\303\304\"\207" [require ob add-to-list org-babel-tangle-lang-exts ("clojure" . "clj")] 3)
(defvar org-babel-default-header-args:clojure nil)
(defvar org-babel-header-args:clojure '((package . :any)))
#@47 Backend used to evaluate Clojure code blocks.
(custom-declare-variable 'org-babel-clojure-backend '(cond ((featurep 'cider) 'cider) (t 'slime)) '(#$ . 640) :group 'org-babel :type '(choice (const :tag "cider" cider) (const :tag "SLIME" slime)))
#@60 Expand BODY according to PARAMS, return the expanded body.
(defalias 'org-babel-expand-body:clojure #[(body params) "\306\307\310\311\"\"\312\313\"A\314\211\315	G\316V\203( \317\320\321	\322#\323\324\260\202) !\325\n\235\2047 \326\n\235\203> \327\330\"\202? -\207" [params vars result-params print-level print-length body mapcar cdr org-babel-get-header :var assoc :result-params nil org-babel-trim 0 "(let [" mapconcat #[(var) "\301\302@A#\207" [var format "%S (quote %S)"] 4] "\n      " "]\n" ")" "code" "pp" format "(clojure.pprint/pprint (do %s))"] 7 (#$ . 891)])
#@45 Execute a block of Clojure code with Babel.
(defalias 'org-babel-execute:clojure #[(body params) "\306	\"\307\310\f\311\"\2033 \312\311!\210\313\314	\"A\315\316!\317\235\204( \320\235\203, \321\202- \322\")\202\\ \310\f\323\"\203\\ \312\323!\210\324\325!'r'q\210\326\216c\210\327\330\331ed\"D\313\332	\"A\"+\313\314	\"A(\333(\235?\205\300 \334(\235\204\270 \335(\235\204\270 \336(\235\204\270 \337(\235\204\270 \320(\235\204\270 \340(\235\204\270 \317(\235\204\261 \341(\235\204\261 \342(\235\204\261 \343(\235\203\274 \344(\235\204\274 \n\202\300 \307\345\346\217+\207" [body params result expanded org-babel-clojure-backend result-params org-babel-expand-body:clojure nil eql cider require assoc :result-params nrepl-dict-get nrepl-sync-request:eval "output" "pp" "out" "value" slime generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) slime-eval swank:eval-and-grab-output buffer-substring-no-properties :package "none" "scalar" "verbatim" "html" "code" "file" "raw" "org" "drawer" "table" (org-babel-script-escape result) ((error result)) #1# #2=#:--params] 5 (#$ . 1479)])
(provide 'ob-clojure)