ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/ob-clojure.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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\302\303\304\"\207" [require 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)))
#@60 Expand BODY according to PARAMS, return the expanded body.
(defalias 'org-babel-expand-body:clojure #[(body params) "\306\307\310\311\"\"\312\313\"A\314\211 \315 G\316V\203( \317\320\321 \322#\323
\324\260\202)
! \325\n\235\2047 \326\n\235\203I \327\330\325\n\235\203C \325\202D \331
#\202W \332\n\235\203V \327\333
\"\202W
-\207" [params vars result-params print-level print-length body mapcar cdr org-babel-get-header :var assoc :result-params nil org-babel-trim 0 "(let [" mapconcat #[(var) "\301\302@A#\207" [var format "%S (quote %S)"] 4] "\n " "]\n" ")" "code" "pp" format "(let [org-mode-print-catcher (java.io.StringWriter.)] (clojure.pprint/with-pprint-dispatch clojure.pprint/%s-dispatch (clojure.pprint/pprint (do %s) org-mode-print-catcher) (str org-mode-print-catcher)))" "simple" "output" "(clojure.core/with-out-str %s)"] 7 (#$ . 640)])
#@45 Execute a block of Clojure code with Babel.
(defalias 'org-babel-execute:clojure #[(body params) "\306\307!\210\310\311!rq\210\312\216\313 \n\"c\210\314\315\316ed\"D\317\320\n\"A\"\317\321\n\"A\211 \322
\235?\205~ \323
\235\204m \324
\235\204m \325
\235\204m \326
\235\204m \327
\235\204m \330
\235\204g \331
\235\204g \332
\235\204g \333
\235\203q \334
\235\204q \202~ \3351| \336 !0\202~ \210 .\207" [#1=#:temp-buffer body params result result-params #2=#:--params require slime generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] org-babel-expand-body:clojure slime-eval swank:eval-and-grab-output buffer-substring-no-properties assoc :package :result-params "none" "scalar" "verbatim" "html" "code" "pp" "output" "raw" "org" "drawer" "table" (error) org-babel-script-escape] 6 (#$ . 1513)])
(provide 'ob-clojure)
Kontol Shell Bypass