View file File name : ob-plantuml.elc Content :;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; 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) #@59 Default arguments for evaluating a plantuml source block. (defvar org-babel-default-header-args:plantuml '((:results . "file") (:exports . "results")) (#$ . 422)) (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) #@256 Return a list of PlantUML statements assigning the block's variables. PARAMS is a property list of source block parameters, which may contain multiple entries for the key `:var'. `:var' entries in PARAMS are expected to be scalar variables. (fn PARAMS) (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)]) #@458 Return PlantUML input string. BODY is the content of the source block and PARAMS is a property list of source block parameters. This function relies on the `org-babel-expand-body:generic' function to extract `:var' entries from PARAMS and on the `org-babel-variable-assignments:plantuml' function to convert variables to PlantUML assignments. If BODY does not contain @startXXX ... @endXXX clauses, @startuml ... @enduml will be added. (fn BODY PARAMS) (defalias 'org-babel-plantuml-make-body #[514 "\300!\301\302\303#\203 \211\202 \304\305\306#\"\207" [org-babel-variable-assignments:plantuml string-prefix-p "@start" t format "@startuml\n%s\n@enduml" org-babel-expand-body:generic] 9 (#$ . 1343)]) #@126 Execute a block of plantuml code with org-babel. This function is called by `org-babel-execute-src-block'. (fn BODY PARAMS) (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\334 \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\317!\344\230\203\314 \345\202\315 \310\346\347\350!\351\350!\260\352!\204\347 \302\353\"\210\354\355!\356\357\360\361\362!\363\"\364$\216r\211q\210c\210)r\211q\210\365\366\211\366\357%\210*\266\367\370\"\210\371\310\"\210\366\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" "tex" " -tlatex" "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" generate-new-buffer " *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] 29 (#$ . 2061)]) #@82 Return an error because plantuml does not support sessions. (fn SESSION PARAMS) (defalias 'org-babel-prep-session:plantuml #[514 "\300\301!\207" [error "Plantuml does not support sessions"] 4 (#$ . 3732)]) (provide 'ob-plantuml)