;ELC ;;; Compiled ;;; in Emacs version 24.5.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")) (#$ . 424)) #@32 Path to the plantuml.jar file. (custom-declare-variable 'org-plantuml-jar-path "" '(#$ . 593) :group 'org-babel :version "24.1" :type 'string) #@108 Execute a block of plantuml code with org-babel. This function is called by `org-babel-execute-src-block'. (defalias 'org-babel-execute:plantuml #[(body params) "\306\307\310\"A\206\n\311!\307\312\"A\206\313\314!\307\315\"A\316\317!\307\320\"A\206+\311-\311\230\2039\313\321!\202h\322 \323\324\325-!!\326\n!\327\230\203N\330\202O\311\326\n!\331\230\203[\332\202\\\311\333 \334\335\f!\336\335\n!\260\f.\337-!\204w\313\340-\"\210\f\341\342\343!!/0\344\216r/q\210\3451\346Qc\210)r/q\210\347\350\2110\350\351%\210,\352\353.\"\210\354.\311\"\210.\350\207" [params result-params out-file cmdline in-file java split-string assoc :results "" :file error "PlantUML requires a \":file\" header argument" :cmdline org-babel-temp-file "plantuml-" :java "`org-plantuml-jar-path' is not set" "java " " -jar " shell-quote-argument expand-file-name file-name-extension "svg" " -tsvg" "eps" " -teps" " -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*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) "@startuml\n" "\n@enduml" write-region nil 0 message "%s" org-babel-eval org-plantuml-jar-path cmd #1# #2=#:temp-file body] 13 (#$ . 743)]) #@61 Return an error because plantuml does not support sessions. (defalias 'org-babel-prep-session:plantuml #[(session params) "\300\301!\207" [error "Plantuml does not support sessions"] 2 (#$ . 2054)]) (provide 'ob-plantuml)