;ELC
;;; Compiled
;;; in Emacs version 27.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\304\305\306\"\207" [require cl-lib ob org-macs 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 '((ns . :any) (package . :any)))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315\316\317&
\210\300\320\302\303\321DD\322\306\307\310\323&\210\300\324\302\303\325DD\326\310\327\306\307&\207" [custom-declare-variable org-babel-clojure-sync-nrepl-timeout funcall function #[0 "\300\207" [10] 1] "Timeout value, in seconds, of a Clojure sync call.\nIf the value is nil, timeout is disabled." :group org-babel :type integer :version "26.1" :package-version (Org . "9.1") :safe wholenump org-babel-clojure-backend #[0 "\300\301!\203\301\207\302\207" [featurep cider slime] 2] "Backend used to evaluate Clojure code blocks." (choice (const :tag "cider" cider) (const :tag "SLIME" slime)) org-babel-clojure-default-ns #[0 "\300\207" [#1="user"] 1 #1#] "Default Clojure namespace for source block when finding ns failed." string] 14)
#@49 Like `cider-current-ns' except `cider-find-ns'.
(defalias 'org-babel-clojure-cider-current-ns #[0 "\206\302 \211\205\303\300\"\262
\206	\207" [cider-buffer-ns org-babel-clojure-default-ns cider-current-connection buffer-local-value] 4 (#$ . 1511)])
#@78 Expand BODY according to PARAMS, return the expanded body.

(fn BODY PARAMS)
(defalias 'org-babel-expand-body:clojure #[514 "\302
!\303\236A\206\f\304 \305\236A\306\211\303\236A\205\307\310\"\204<\306\311
\203.\312\202/\313\314\311\315\314##\266\202\202G\307\316\317\320\321##P\306\311
\203R\312\202S\313\314\311\315\314##\266\202\322\235\204i\323\235\203p\307\324\"\202q\211*\207" [print-level print-length org-babel--get-vars :ns org-babel-clojure-cider-current-ns :result-params nil format "(ns %s)\n" replace-regexp-in-string "\\`\\([ 	]*\n\\)+" "\\`[ 	\n
]+" "" "[ 	\n
]+\\'" "(let [%s]\n%s)" mapconcat #[257 "\300\301@A#\207" [format "%S (quote %S)"] 5 "\n\n(fn VAR)"] "\n      " "code" "pp" "(clojure.pprint/pprint (do %s))"] 16 (#$ . 1774)])
#@163 Execute a block of Clojure code with Babel.
The underlying process performed by the code block can be output
using the :show-process parameter.

(fn BODY PARAMS)
(defalias 'org-babel-execute:clojure #[514 "\303\"\304CC\305\306\267\202\377\307\310!\210\311\236A\312\236A\211\313\235\203X	\314\315 \")\240\210\316\242\317\235\204;\320\235\203?\321\202@\322\"\316\242\323\"\316\242\324\"\316\242\325\"R\262\202\317\326\327!\305C\330\331\332\333\334\335\f		#\336\"\337\340%\315 #\210\341
\242\235\204\223\342\242\343\344\345\242\"#\210\346\305\347\"\210\350 \210\202u\351\352\353\305\354#\"\210\355!\210\316\242\317\235\204\262\320\235\203\266\321\202\267\322\"\316\242\323\"\316\242\324\"\316	\242\325\"R\262\266\266\202\377\307\356!\210\357\360!r\211q\210\331\361\362\334\335!\363\"\364$\216c\210\365\366\367ed\"D\370\236A\"\262*\210\311\236A\371
\235?\205g
\372
\235\204R
\373
\235\204R
\374
\235\204R
\375
\235\204R
\320
\235\204R
\376
\235\204R
\317
\235\204J
\377
\235\204J
\201@
\235\204J
\201A
\235\203V
\201B
\235\204V

\202g
\201C1e
\201D!0\202g
\210
\262
\207" [org-babel-clojure-backend org-babel-clojure-sync-nrepl-timeout nrepl-sync-request-timeout org-babel-expand-body:clojure dict nil #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (cider 14 slime 212)) require cider :result-params :show-process (nil "no") nrepl-sync-request:eval cider-current-connection nrepl-dict-get "output" "pp" "out" "value" "ex" "root-ex" "err" switch-to-buffer-other-window "*Clojure Show Process Sub Buffer*" nrepl-request:eval make-byte-code 257 "\303
\235\203\304\305\303\"\301\"\210\306
\235\203$\304\305\306\"\301\"\210\304\305\307\"\301\"\210\310
\235\2032\304\305\310\"\301\"\210\311\300\242\"\210\302\305\300\242\312\"\240\207" vconcat vector ["out" princ nrepl-dict-get "ex" "root-ex" "err" nrepl--merge "status"] 5 "\n\n(fn RESP)" "done" nrepl-dict-put "status" remove "need-input" accept-process-output 0.01 redisplay mapc delete-window get-buffer-window-list t kill-buffer slime generate-new-buffer " *temp*" 0 "\301\300!\205	\302\300!\207" [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" (error) org-babel-script-escape] 19 (#$ . 2564)])
#@86 Initiate a session named SESSION according to PARAMS.

(fn &optional SESSION PARAMS)
(defalias 'org-babel-clojure-initiate-session #[512 "
\205t
\303\230?\205t\304 \305\306\307\310\311!\312\"\313$\216\314!\204n\315\267\202j\316\317!\210\304 \305\306\307\310\311!\320\"\313$\216\321	\322\"\203E\323\324!\210\202Q\325 \204Q\326\327\330!\210)p)\262
\314
!\203_\331\332!\210\210\202n\333\334!\210\202n\333\335!\210\336!)\262
\207" [org-babel-clojure-backend cider-version sesman-system "none" current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 org-babel-comint-buffer-livep #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (cider 37 slime 99)) require cider [set-window-configuration] version< "0.18.0" cider-jack-in nil cider-repls CIDER call-interactively sesman-link-with-directory sit-for 0.25 error "Session evaluation with SLIME is not supported" "Session initiate failed" get-buffer] 10 (#$ . 4960)])
#@93 Prepare SESSION according to the header arguments specified in PARAMS.

(fn SESSION PARAMS)
(defalias 'org-babel-prep-session:clojure #[514 "\301!\302!
\203N\303!\204\304\305\"\210\306 \307\310\311\312\313!\314\"\315$\216rq\210\212\316
\211\203K\211@\211c\210\317\320\321\"\210\322!\210\323\324!\210db\210
A\266\202\202+\210,\210
\207" [comint-input-filter org-babel-clojure-initiate-session org-babel-variable-assignments:clojure org-babel-comint-buffer-livep error "Buffer %s does not exist or has no process" match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 #[257 "\300\207" [nil] 2 "\n\n(fn INPUT)"] comint-send-input nil t org-babel-comint-wait-for-output sit-for 0.1] 11 (#$ . 5977)])
#@56 Convert src block's VAR to Clojure variable.

(fn VAR)
(defalias 'org-babel-clojure-var-to-clojure #[257 "\211<\203\300\301\302#\207\211;\203\303\304\"\207\303\305\"\207" [replace-regexp-in-string "(" "'(" format "\"%s\"" "%S"] 5 (#$ . 6731)])
#@93 Return a list of Clojure statements assigning the block's variables in PARAMS.

(fn PARAMS)
(defalias 'org-babel-variable-assignments:clojure #[257 "\300\301\302!\"\207" [mapcar #[257 "\300\301@\302A!#\207" [format "(def %s %s)" org-babel-clojure-var-to-clojure] 6 "\n\n(fn PAIR)"] org-babel--get-vars] 5 (#$ . 6988)])
(provide 'ob-clojure)