* lisp/ob-R.el: Added tikzDevice support.
This commit is contained in:
parent
55e4d0e695
commit
811f9160de
|
@ -197,6 +197,7 @@ current code buffer."
|
||||||
'((:bmp . "bmp")
|
'((:bmp . "bmp")
|
||||||
(:jpg . "jpeg")
|
(:jpg . "jpeg")
|
||||||
(:jpeg . "jpeg")
|
(:jpeg . "jpeg")
|
||||||
|
(:tex . "tikz")
|
||||||
(:tiff . "tiff")
|
(:tiff . "tiff")
|
||||||
(:png . "png")
|
(:png . "png")
|
||||||
(:svg . "svg")
|
(:svg . "svg")
|
||||||
|
@ -214,7 +215,7 @@ current code buffer."
|
||||||
(setq device (or (and device (cdr (assq (intern (concat ":" device))
|
(setq device (or (and device (cdr (assq (intern (concat ":" device))
|
||||||
devices))) "png"))
|
devices))) "png"))
|
||||||
(setq filearg
|
(setq filearg
|
||||||
(if (member device '("pdf" "postscript" "svg")) "file" "filename"))
|
(if (member device '("pdf" "postscript" "svg" "tikz")) "file" "filename"))
|
||||||
(setq args (mapconcat
|
(setq args (mapconcat
|
||||||
(lambda (pair)
|
(lambda (pair)
|
||||||
(if (member (car pair) allowed-args)
|
(if (member (car pair) allowed-args)
|
||||||
|
|
Loading…
Reference in New Issue