| 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 | #@62 Default arguments to use when evaluating a dot source block. | |
| 17 | (defvar org-babel-default-header-args:dot '((:results . "file") (:exports . "results")) (#$ . 422)) | |
| 18 | #@78 Expand BODY according to PARAMS, return the expanded body. | |
| 19 | ||
| 20 | (fn BODY PARAMS) | |
| 21 | (defalias 'org-babel-expand-body:dot #[514 "C\300!\301\302\303\304\305\306!\307\"\310\311%\"\210\242\262\207" [org-babel--get-vars mapc make-byte-code 257 "\301@!A\300\302\303\304!P;\203 \202 \305\306\"\300\242\307\211%\240\207" vconcat vector [symbol-name replace-regexp-in-string "$" regexp-quote format "%S" t] 10 "\n\n(fn PAIR)"] 11 (#$ . 589)]) | |
| 22 | #@121 Execute a block of Dot code with org-babel. | |
| 23 | This function is called by `org-babel-execute-src-block'. | |
| 24 | ||
| 25 | (fn BODY PARAMS) | |
| 26 | (defalias 'org-babel-execute:dot #[514 "\300\236\206 \301\302!A\303\236A\206 \304\305\306!\"\307\236A\206 \310\311\312!\211\313\314\315!!\316\317\320\321\322!\323\"\324$\216r\211q\210\325\"c\210)r\211q\210\326\327\211\327\317%\210*\266\330\331\332!\331\333\332 !\260\334\"\210\327\207" [:file error "You need to specify a :file parameter" :cmdline format "-T%s" file-name-extension :cmd "dot" org-babel-temp-file "dot-" get-buffer-create generate-new-buffer-name " *temp file*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 org-babel-expand-body:dot write-region nil org-babel-eval " " org-babel-process-file-name " -o " ""] 15 (#$ . 1038)]) | |
| 27 | #@77 Return an error because Dot does not support sessions. | |
| 28 | ||
| 29 | (fn SESSION PARAMS) | |
| 30 | (defalias 'org-babel-prep-session:dot #[514 "\300\301!\207" [error "Dot does not support sessions"] 4 (#$ . 1871)]) | |
| 31 | (provide 'ob-dot) | |
