Current File : //proc/thread-self/root/kunden/usr/share/emacs/27.2/lisp/org/ob-shen.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(require 'ob)
#@48 Default header arguments for shen code blocks.
(defvar org-babel-default-header-args:shen nil (#$ . 422))
#@78 Expand BODY according to PARAMS, return the expanded body.

(fn BODY PARAMS)
(defalias 'org-babel-expand-body:shen #[514 "\300
!\211G\301V\203\302\303\304\305#\306R\202\207" [org-babel--get-vars 0 "(let " mapconcat #[257 "\300\301@\302A!#\207" [format "%s %s" org-babel-shen-var-to-shen] 6 "\n\n(fn VAR)"] " " ")"] 8 (#$ . 534)])
#@45 Convert VAR into a shen variable.

(fn VAR)
(defalias 'org-babel-shen-var-to-shen #[257 "\211<\203\300\301\302\303#\304Q\207\305\306\"\207" ["[" mapconcat org-babel-ruby-var-to-ruby " " "]" format "%S"] 6 (#$ . 879)])
#@122 Execute a block of Shen code with org-babel.
This function is called by `org-babel-execute-src-block'.

(fn BODY PARAMS)
(defalias 'org-babel-execute:shen #[514 "\300\301!\210\302
\236A\303\"\304\305!r\211q\210\306\307\310\311\312!\313\"\314$\216
c\210\315\316!*\262
\317
\235?\205\203\320
\235\204r\321
\235\204r\322
\235\204r\323
\235\204r\324
\235\204r\325
\235\204r\326
\235\204l\327
\235\204l\330
\235\204l\331
\235\203v\332
\235\204v
\202\203\3331\201\334!0\202\203\210
\262
\262
\207" [require inf-shen :result-params org-babel-expand-body:shen generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 call-interactively shen-eval-defun "none" "scalar" "verbatim" "html" "code" "pp" "file" "output" "raw" "org" "drawer" "table" (error) org-babel-script-escape] 11 (#$ . 1108)])
(provide 'ob-shen)