| 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 | (byte-code "\300\301!\210\300\302!\207" [require ob org-compat] 2) | |
| 16 | #@56 Default arguments for evaluating a ditaa source block. | |
| 17 | (defvar org-babel-default-header-args:ditaa '((:results . "file") (:exports . "results") (:java . "-Dfile.encoding=UTF-8")) (#$ . 475)) | |
| 18 | (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\311&\210\300\315\302\303\316DD\317\306\307\320\321\322\323\310\311& \210\300\324\302\303\325DD\326\306\307\320\327\310\311& \207" [custom-declare-variable org-ditaa-jar-path funcall function #[0 "\300\301\302\300\303\302\300\304\305\211\306\307!\206 \310!!\"!\"!\"\207" [expand-file-name "ditaa.jar" file-name-as-directory "scripts" "../contrib" file-name-directory locate-library "org" ""] 12] "Path to the ditaa jar executable." :group org-babel :type string org-babel-ditaa-java-cmd #[0 "\300\207" [#1="java"] 1 #1#] "Java executable to use when evaluating ditaa blocks." org-ditaa-eps-jar-path #[0 "\301\302\303!\"\207" [org-ditaa-jar-path expand-file-name "DitaaEps.jar" file-name-directory] 4] "Path to the DitaaEps.jar executable." :version "24.4" :package-version (Org . "8.0") org-ditaa-jar-option #[0 "\300\207" [#2="-jar"] 1 #2#] "Option for the ditaa jar file.\nDo not leave leading or trailing spaces in this string." "24.1"] 12) | |
| 19 | #@123 Execute a block of Ditaa code with org-babel. | |
| 20 | This function is called by `org-babel-execute-src-block'. | |
| 21 | ||
| 22 | (fn BODY PARAMS) | |
| 23 | (defalias 'org-babel-execute:ditaa #[514 "\304\236A\206\n \305\306!\307\236A\310\236A\311\312!\313\236A\211\205\" \314\315P!\316!\317\230\2043 \320\236A\205= \321\322\323\314\n!\260\322\322 \322\324\325\n\203O \n\202P !!\322 \322\314!\322\f\203e \202i \314!\260 \326 !\204v \305\327 \"\210\330\331\332!!\333\334\335\336\337!\340\"\341$\216r\211q\210 c\210)r\211q\210\342\343\211\343\334%\210*\266\344!\210\345!\210\203\264 \344!\210\345!\210\343\207" [org-babel-ditaa-java-cmd org-ditaa-jar-option org-ditaa-eps-jar-path org-ditaa-jar-path :file error "ditaa code block requires :file header argument" :cmdline :java org-babel-temp-file "ditaa-" :eps org-babel-process-file-name ".eps" file-name-extension "pdf" :pdf "epstopdf" " " " -o=" shell-quote-argument expand-file-name file-exists-p "Could not find ditaa.jar at %s" 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 write-region nil message shell-command] 23 (#$ . 1718)]) | |
| 24 | #@79 Return an error because ditaa does not support sessions. | |
| 25 | ||
| 26 | (fn SESSION PARAMS) | |
| 27 | (defalias 'org-babel-prep-session:ditaa #[514 "\300\301!\207" [error "Ditaa does not support sessions"] 4 (#$ . 2911)]) | |
| 28 | (provide 'ob-ditaa) | |
