From: Rainer M Krug <Rainer@krugs.de>
To: emacs-orgmode@gnu.org
Subject: PATCH: Add new output formats to plantuml
Date: Mon, 02 May 2016 11:14:57 +0200 [thread overview]
Message-ID: <m2vb2wx1m6.fsf@krugs.de> (raw)
[-- Attachment #1.1: Type: text/plain, Size: 106 bytes --]
Hi
attached please find a patch which adds additional output file types for
plantuml.
Cheers,
Rainer
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1.2: Add support for new output file types --]
[-- Type: text/x-patch, Size: 1899 bytes --]
From 839cb3194e6a40e577c5cab3b0a69961238924c9 Mon Sep 17 00:00:00 2001
From: "Rainer M. Krug" <R.M.Krug@gmail.com>
Date: Mon, 2 May 2016 11:00:23 +0200
Subject: [PATCH] lisp/op-plantuml.el: Add new output formats
* lisp/ob-paltuml (org-babel-execute:plantuml): add new output formats
of plantuml:
- pdf : this needs extra java mudules to run which are mentioned on the
plantml website (http://fr.plantuml.com/pdf.html)
- vdx
- xmi
- scxml
- html
- txt (ascii art)
- utxt (ascii art using unicode)
The output format is based on the extension of the output file.
---
lisp/ob-plantuml.el | 16 ++++++++++++++++
1 file changed, 16 insertions(+)
diff --git a/lisp/ob-plantuml.el b/lisp/ob-plantuml.el
index 0e07f2d..6cc55a2 100644
--- a/lisp/ob-plantuml.el
+++ b/lisp/ob-plantuml.el
@@ -59,10 +59,26 @@ This function is called by `org-babel-execute-src-block'."
(concat "java " java " -jar "
(shell-quote-argument
(expand-file-name org-plantuml-jar-path))
+ (if (string= (file-name-extension out-file) "png")
+ " -tpng" "")
(if (string= (file-name-extension out-file) "svg")
" -tsvg" "")
(if (string= (file-name-extension out-file) "eps")
" -teps" "")
+ (if (string= (file-name-extension out-file) "pdf")
+ " -tpdf" "")
+ (if (string= (file-name-extension out-file) "vdx")
+ " -tvdx" "")
+ (if (string= (file-name-extension out-file) "xmi")
+ " -txmi" "")
+ (if (string= (file-name-extension out-file) "scxml")
+ " -tscxml" "")
+ (if (string= (file-name-extension out-file) "html")
+ " -thtml" "")
+ (if (string= (file-name-extension out-file) "txt")
+ " -ttxt" "")
+ (if (string= (file-name-extension out-file) "utxt")
+ " -utxt" "")
" -p " cmdline " < "
(org-babel-process-file-name in-file)
" > "
--
2.8.2
[-- Attachment #1.3: Type: text/plain, Size: 419 bytes --]
--
Rainer M. Krug, PhD (Conservation Ecology, SUN), MSc (Conservation Biology, UCT), Dipl. Phys. (Germany)
Centre of Excellence for Invasion Biology
Stellenbosch University
South Africa
Tel : +33 - (0)9 53 10 27 44
Cell: +33 - (0)6 85 62 59 98
Fax : +33 - (0)9 58 10 27 44
Fax (D): +49 - (0)3 21 21 25 22 44
email: Rainer@krugs.de
Skype: RMkrug
PGP: 0x0F52F982
[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 454 bytes --]
next reply other threads:[~2016-05-02 9:15 UTC|newest]
Thread overview: 6+ messages / expand[flat|nested] mbox.gz Atom feed top
2016-05-02 9:14 Rainer M Krug [this message]
2016-05-03 17:16 ` PATCH: Add new output formats to plantuml Nicolas Goaziou
2016-05-09 7:24 ` Rainer M Krug
2016-05-10 10:08 ` Rainer M Krug
2016-05-10 20:20 ` Nicolas Goaziou
2016-05-10 20:37 ` Bug: missing header argument does not work any longer [8.3.4 (8.3.4-47-gaf853d-elpaplus <at> c:/Users/harald/AppData/Roaming/.emacs.d/elpa/org-plus-contrib-20160502/)] Harald Sanftmann
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=m2vb2wx1m6.fsf@krugs.de \
--to=rainer@krugs.de \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).