|
Server IP : 111.118.215.189 / Your IP : 18.117.158.174 Web Server : Apache System : Linux md-in-83.webhostbox.net 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 User : a1673wkz ( 2475) PHP Version : 8.2.25 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON Directory (0755) : /usr/share/emacs/24.3/lisp/org/ |
| [ Home ] | [ C0mmand ] | [ Upload File ] |
|---|
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:39 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/ob-clojure.el
;;; in Emacs version 24.3.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 (#$ . 787)])
#@45 Execute a block of Clojure code with Babel.
(defalias 'org-babel-execute:clojure #[(body params) "\305\306!\210\307\310!rq\210\311\216\312 \n\"c\210\313\314\315ed\"D\316\317\n\"A\"\316\320\n\"A \321\f\235\2044 \322\f\235\2038 \202< \323\324\325\217-\207" [#1=#:temp-buffer body params result result-params require slime generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\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 "scalar" "verbatim" nil (org-babel-script-escape result) ((error result))] 5 (#$ . 1660)])
(provide 'ob-clojure)