.emacs.d.git - Gitblit

;ELC
;;; Compiled
;;; in Emacs version 26.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\303\304\305\"\207" [require cl-lib 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)))
(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)
#@78 Expand BODY according to PARAMS, return the expanded body.
 
(fn BODY PARAMS)
(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)])
#@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\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\201D1k\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)])
(provide 'ob-clojure)