| commit | author | age | ||
| 76bbd0 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (byte-code "\300\301!\210\300\302!\210\303\304\305\"\207" [require cl-lib ob add-to-list org-babel-tangle-lang-exts ("clojure" . "clj")] 3) | |
| 16 | (defvar org-babel-default-header-args:clojure nil) | |
| 17 | (defvar org-babel-header-args:clojure '((package . :any))) | |
| 18 | (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&\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))] 14) | |
| 19 | #@78 Expand BODY according to PARAMS, return the expanded body. | |
| 20 | ||
| 21 | (fn BODY PARAMS) | |
| 22 | (defalias 'org-babel-expand-body:clojure #[514 "\302!\303\236A\304\211\305\204 \305!\202\" \306\307\310\311#\312\313\260!\314\235\204/ \315\235\2036 \316\317\"\2027 \211*\207" [print-level print-length org-babel--get-vars :result-params nil org-trim "(let [" mapconcat #[257 "\300\301@A#\207" [format "%S (quote %S)"] 5 "\n\n(fn VAR)"] "\n " "]\n" ")" "code" "pp" format "(clojure.pprint/pprint (do %s))"] 11 (#$ . 1290)]) | |
| 23 | #@163 Execute a block of Clojure code with Babel. | |
| 24 | The underlying process performed by the code block can be output | |
| 25 | using the :show-process parameter. | |
| 26 | ||
| 27 | (fn BODY PARAMS) | |
| 28 | (defalias 'org-babel-execute:clojure #[514 "\303\"\304CC\305\306\267\202\307\310!\210\311\236A\312\236A\211\313\235\203Z \314\315 \316 #)\240\210\317\242\320\235\204= \321\235\203A \322\202B \323\"\317\242\324\"\317\242\325\"\317\242\326\"R\262\202\323 \327\330!\305C\331\332\333\334\335\336\f #\337\"\340\341%\315 \316 $\210\342\242\235\204\227 \343\242\344\345\346\242\"#\210\347\305\350\"\210\351 \210\202y \352\353\354\305\355#\"\210\356!\210\317\242\320\235\204\266 \321\235\203\272 \322\202\273 \323\"\317\242\324\"\317\242\325\"\317 \242\326\"R\262\266\266\202\307\357!\210\360\361!r\211q\210\332\362\363\335\336!\364\"\365$\216c\210\366\367\370ed\"D\371\236A\"\262*\210\311\236A\372\235?\205m\373\235\204X\374\235\204X\375\235\204X\376\235\204X\321\235\204X\377\235\204X\320\235\204P\201@ \235\204P\201A \235\204P\201B \235\203\\\201C \235\204\\\202m\201D 1k\201E !0\202m\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 eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (cider 14 slime 216)) require cider :result-params :show-process (nil "no") nrepl-sync-request:eval cider-current-connection cider-current-ns 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 (#$ . 1818)]) | |
| 29 | (provide 'ob-clojure) | |
