ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/ob-plantuml.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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*" #[nil "\301!\205 \302!\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 (#$ . 2038)])
(provide 'ob-plantuml)
Kontol Shell Bypass