;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\210A\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)