| 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 | (require 'ob) | |
| 16 | #@48 Default header arguments for shen code blocks. | |
| 17 | (defvar org-babel-default-header-args:shen nil (#$ . 422)) | |
| 18 | #@78 Expand BODY according to PARAMS, return the expanded body. | |
| 19 | ||
| 20 | (fn BODY PARAMS) | |
| 21 | (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)]) | |
| 22 | #@45 Convert VAR into a shen variable. | |
| 23 | ||
| 24 | (fn VAR) | |
| 25 | (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)]) | |
| 26 | #@121 Execute a block of Shen code with org-babel. | |
| 27 | This function is called by `org-babel-execute-src-block' | |
| 28 | ||
| 29 | (fn BODY PARAMS) | |
| 30 | (defalias 'org-babel-execute:shen #[514 "\300\301!\210\302\236A\303\"\304\305!r\211q\210\306\307\310\311\312!\313\"\314$\216c\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)]) | |
| 31 | (provide 'ob-shen) | |
