;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\302\303\304\"\210\302\303\305\"\207" [require ob add-to-list org-babel-tangle-lang-exts ("clojure" . "clj") ("clojurescript" . "cljs")] 3)
(defvar org-babel-default-header-args:clojure nil)
(defvar org-babel-header-args:clojure '((ns . :any) (package . :any)))
(defvar org-babel-default-header-args:clojurescript nil)
(defvar org-babel-header-args:clojurescript '((package . :any)))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\310\315\306\307&\207" [custom-declare-variable org-babel-clojure-backend funcall function #[0 "\300\207" [nil] 1 #1=""] "Backend used to evaluate Clojure code blocks." :group org-babel :type (choice (const :tag "inf-clojure" inf-clojure) (const :tag "cider" cider) (const :tag "slime" slime) (const :tag "Not configured yet" nil)) org-babel-clojure-default-ns #[0 "\300\207" ["user"] 1 #1#] "Default Clojure namespace for source block when finding ns failed." string] 8)
#@78 Expand BODY according to PARAMS, return the expanded body.

(fn BODY PARAMS)
(defalias 'org-babel-expand-body:clojure #[514 "\305
!\306\236A\206$\307=\203#	\206$\310 \211\205\311\301\"\262
\202$\n\312\236A\313\211\314\315\316#\306\236A\205=\317\320\"\204Z
\313\314
\203L\321\202M\322\316\314\323\316##\266\202\202d\317\324\325\326\327##P\313\314
\203o\321\202p\322\316\314\323\316##\266\202\330\235\204\206\331\235\203\215\317\332\"\202\216\211*\207" [org-babel-clojure-backend cider-buffer-ns org-babel-clojure-default-ns print-level print-length org-babel--get-vars :ns cider cider-current-connection buffer-local-value :result-params nil replace-regexp-in-string "^[ 	]*;+.*$" "" format "(ns %s)\n" "\\`\\([ 	]*\n\\)+" "\\`[ 	\n
]+" "[ 	\n
]+\\'" "(let [%s]\n%s)" mapconcat #[257 "\300\301@A#\207" [format "%S %S"] 5 "\n\n(fn VAR)"] "\n      " "code" "pp" "(clojure.pprint/pprint (do %s))"] 17 (#$ . 1052)])
#@66 Store a trimmed version of S in a variable and return S.

(fn S)
(defalias 'ob-clojure-inf-clojure-output #[257 "\302\303#\304\302
\203\305\202\306\303\302\307\303##\266\202\211	B\210\207" [ob-clojure-inf-clojure-filter-out ob-clojure-inf-clojure-tmp-output replace-regexp-in-string "" nil "\\`\\([ 	]*\n\\)+" "\\`[ 	\n
]+" "[ 	\n
]+\\'"] 10 (#$ . 2008)])
#@79 Run BODY on EXPANDED code block with PARAMS.

(fn EXPANDED PARAMS &rest BODY)
(defalias 'ob-clojure-with-temp-expanded '(macro . #[642 "\300\301D\302\303\304\305\306\307\310\311\312\fEDE\313BBBEF\207" [with-temp-buffer insert (goto-char (point-min)) while (not (looking-at "\\s-*\\'")) let* (beg (point)) (end (progn (forward-sexp) (point))) exp org-babel-expand-body:clojure (buffer-substring beg end) (sit-for 0.1)] 15 (#$ . 2379)]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\300\207" [put ob-clojure-with-temp-expanded edebug-form-spec (body) function-put lisp-indent-function 2] 4)
#@57 Convert list L into a string or a list of list.

(fn L)
(defalias 'ob-clojure-string-or-list #[257 "\211<\203\211G\300U\203\211@\207\301\302\"\207" [1 mapcar list] 4 (#$ . 2984)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put ob-clojure-string-or-list speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@83 Evaluate EXPANDED code block with PARAMS using inf-clojure.

(fn EXPANDED PARAMS)
(defalias 'ob-clojure-eval-with-inf-clojure #[514 "\3061\f\307\310!0\210\202
\210\203\311\312!!\204I\313 \314\315\"\216\316\236A\317\320 !
\2037\321\322\323\324\"#\2028\211	\325\310\"\210db\266)\210\326\327!\210\330\331\236A\206R\332Q\333\334\335\"\210\336\337\340\341\"r\211q\210\314\342\"\216c\210eb\210\343\344!\204\214`\345 \210`\346{\336\"\326\347!\210\350
!\266\202o*\210\326\351!\210\352\334\335\"\210\353\336\354\355\356
!\"\"\211<\203\257\211G\327U\203\257\211@\207\354\357\"\207" [inf-clojure-buffer inf-clojure-comint-prompt-regexp comint-prompt-regexp org-babel-clojure-default-ns ob-clojure-inf-clojure-filter-out ob-clojure-inf-clojure-tmp-output (user-error) require inf-clojure buffer-live-p get-buffer current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] :alias inf-clojure-cmd inf-clojure-project-type replace-regexp-in-string "clojure" format "clojure -A%s" funcall-interactively sit-for 1 "^nil\\|nil$\\|\\s-*" :ns "=>\\s-*" add-hook comint-preoutput-filter-functions ob-clojure-inf-clojure-output nil generate-new-buffer " *temp*" t #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] looking-at "\\s-*\\'" forward-sexp org-babel-expand-body:clojure 0.1 inf-clojure-eval-string 0.5 remove-hook delete mapcar #[257 "\211\301\232\206\302
\303\304\305#)\266\203?\205\211\207" [inhibit-changing-match-data "" "^Clojure" nil t string-match] 8 "\n\n(fn S)"] reverse list] 10 (#$ . 3326)])
#@77 Evaluate EXPANDED code block with PARAMS using cider.

(fn EXPANDED PARAMS)
(defalias 'ob-clojure-eval-with-cider #[514 "\3001\f\301\302!0\210\202
\210\303\304\236A!\305\236A\306\204 \307\310!\210\204)\311\211\262\207\312\313\314\"r\211q\210\315\316\"\216c\210eb\210\317\320!\204\205`\321 \210`\322{\"\323\324!\210\325
\"\326
\327\"\206{\326
\330\"\206{\326
\331	\235\204u\332	\235\203y\333\202z\334\"B\262\266\202<*\210\335\336\337\340\341\"\"!\211<\203\237\211G\342U\203\237\211@\207\340\343\"\207" [(user-error) require cider cider-current-connection :target :result-params nil sesman-start-session CIDER "Please reevaluate when nREPL is connected" generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] looking-at "\\s-*\\'" forward-sexp org-babel-expand-body:clojure sit-for 0.1 nrepl-sync-request:eval nrepl-dict-get "root-ex" "ex" "output" "pp" "out" "value" reverse delete #1="" mapcar #[257 "\300\301\302#\207" [replace-regexp-in-string "nil" #1#] 5 "\n\n(fn R)"] 1 list] 14 (#$ . 4914)])
#@77 Evaluate EXPANDED code block with PARAMS using slime.

(fn EXPANDED PARAMS)
(defalias 'ob-clojure-eval-with-slime #[514 "\3001\f\301\302!0\210\202
\210\303\304\305\"r\211q\210\306\307\"\216c\210\310\311\312ed\"D\313\236A\"*\207" [(user-error) require slime generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] slime-eval swank:eval-and-grab-output buffer-substring-no-properties :package] 8 (#$ . 6010)])
#@63 Execute a block of Clojure code with Babel.

(fn BODY PARAMS)
(defalias 'org-babel-execute:clojure #[514 "\204\301\302!\210\303\"\304\236A\305\306\267\202,\307\"\202-\310\"\202-\311\"\202-\305\262
\312\235?\205\204\313\235\204x\314\235\204x\315\235\204x\316\235\204x\317\235\204x\320\235\204x\321\235\204r\322\235\204r\323\235\204r\324\235\203y\325\235\204y\207\3261\202\327
!0\207\210\211\207" [org-babel-clojure-backend user-error "You need to customize org-babel-clojure-backend" org-babel-expand-body:clojure :result-params nil #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (inf-clojure 23 cider 30 slime 37)) ob-clojure-eval-with-inf-clojure ob-clojure-eval-with-cider ob-clojure-eval-with-slime "none" "scalar" "verbatim" "html" "code" "pp" "file" "output" "raw" "org" "drawer" "table" (error) org-babel-script-escape] 8 (#$ . 6485)])
#@68 Evaluate BODY with PARAMS as ClojureScript code.

(fn BODY PARAMS)
(defalias 'org-babel-execute:clojurescript #[514 "\300\301B\"\207" [org-babel-execute:clojure (:target . "cljs")] 6 (#$ . 7413)])
(provide 'ob-clojure)