| 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 | #@59 Default arguments for evaluating a plantuml source block. | |
| 17 | (defvar org-babel-default-header-args:plantuml '((:results . "file") (:exports . "results")) (#$ . 422)) | |
| 18 | (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable org-plantuml-jar-path funcall function #[0 "\300\207" [#1=""] 1 #1#] "Path to the plantuml.jar file." :group org-babel :version "24.1" :type string] 10) | |
| 19 | #@256 Return a list of PlantUML statements assigning the block's variables. | |
| 20 | PARAMS is a property list of source block parameters, which may | |
| 21 | contain multiple entries for the key `:var'. `:var' entries in PARAMS | |
| 22 | are expected to be scalar variables. | |
| 23 | ||
| 24 | (fn PARAMS) | |
| 25 | (defalias 'org-babel-variable-assignments:plantuml #[257 "\300\301\302!\"\207" [mapcar #[257 "\300\301@\302\303\304A##\207" [format "!define %s %s" replace-regexp-in-string "\"" ""] 8 "\n\n(fn PAIR)"] org-babel--get-vars] 5 (#$ . 840)]) | |
| 26 | #@363 Return PlantUML input string. | |
| 27 | BODY is the content of the source block and PARAMS is a property list | |
| 28 | of source block parameters. This function relies on the | |
| 29 | `org-babel-expand-body:generic' function to extract `:var' entries | |
| 30 | from PARAMS and on the `org-babel-variable-assignments:plantuml' | |
| 31 | function to convert variables to PlantUML assignments. | |
| 32 | ||
| 33 | (fn BODY PARAMS) | |
| 34 | (defalias 'org-babel-plantuml-make-body #[514 "\300\301\302!#\303Q\207" ["@startuml\n" org-babel-expand-body:generic org-babel-variable-assignments:plantuml "\n@enduml"] 8 (#$ . 1343)]) | |
| 35 | #@126 Execute a block of plantuml code with org-babel. | |
| 36 | This function is called by `org-babel-execute-src-block'. | |
| 37 | ||
| 38 | (fn BODY PARAMS) | |
| 39 | (defalias 'org-babel-execute:plantuml #[514 "\301\236A\206\n \302\303!\304\236A\305\306!\307\236A\206 \310\311\"\310\230\203+ \302\312!\202\316 \313\314\315\316!!\317 !\320\230\203@ \321\202A \310\317\n!\322\230\203N \323\202O \310\317 !\324\230\203\\ \325\202] \310\317\f!\326\230\203j \327\202k \310\317 !\330\230\203x \331\202y \310\317!\332\230\203\206 \333\202\207 \310\317!\334\230\203\224 \335\202\225 \310\317!\336\230\203\242 \337\202\243 \310\317!\340\230\203\260 \341\202\261 \310\317!\342\230\203\276 \343\202\277 \310\344\345\346!\347\346!\260\350!\204\331 \302\351\"\210\352\353\354!!\355\356\357\360\361!\362\"\363$\216r\211q\210c\210)r\211q\210\364\365\211\365\356%\210*\266\366\367\"\210\370\310\"\210\365\207" [org-plantuml-jar-path :file error "PlantUML requires a \":file\" header argument" :cmdline org-babel-temp-file "plantuml-" :java "" org-babel-plantuml-make-body "`org-plantuml-jar-path' is not set" "java " " -jar " shell-quote-argument expand-file-name file-name-extension "png" " -tpng" "svg" " -tsvg" "eps" " -teps" "pdf" " -tpdf" "vdx" " -tvdx" "xmi" " -txmi" "scxml" " -tscxml" "html" " -thtml" "txt" " -ttxt" "utxt" " -utxt" " -p " " < " org-babel-process-file-name " > " file-exists-p "Could not find plantuml.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 "%s" org-babel-eval] 28 (#$ . 1901)]) | |
| 40 | #@82 Return an error because plantuml does not support sessions. | |
| 41 | ||
| 42 | (fn SESSION PARAMS) | |
| 43 | (defalias 'org-babel-prep-session:plantuml #[514 "\300\301!\207" [error "Plantuml does not support sessions"] 4 (#$ . 3542)]) | |
| 44 | (provide 'ob-plantuml) | |
