rshen/emacs
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

prologue

Browse Source
This commit is contained in:
Rongsong Shen 2018-06-06 17:05:32 +08:00
parent 61bef8a376
commit 97227d9b86
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
layers.personal/orgtools/local/ob-tikz/ob-tikz.el
View File

@ -93,10 +93,11 @@
"\" cd " dir ";" "\" cd " dir ";"
cmd "\""))) cmd "\"")))
(defun tikz-script (fmt tikz-libs gd-libs body) (defun tikz-script (fmt prologue tikz-libs gd-libs body)
(setq tikz-prologues (setq tikz-prologues
(concat "\\documentclass{article}\n" (concat "\\documentclass{article}\n"
"\\usepackage{tikz}\n" "\\usepackage{tikz}\n"
prologue
"%%\\usepackage{pgfplots}\n" "%%\\usepackage{pgfplots}\n"
(if tikz-libs (if tikz-libs
(concat "\\usetikzlibrary{" (concat "\\usetikzlibrary{"
@ -150,6 +151,8 @@ This function is called by `org-babel-execute-src-block'."
))) )))
(with-temp-file (concat in-file ".tex") (with-temp-file (concat in-file ".tex")
(insert (tikz-script format (insert (tikz-script format
(tikz-get-value-by-name 'prologue
(org-babel--get-vars params))
(tikz-get-value-by-name 'tikz-libs (tikz-get-value-by-name 'tikz-libs
(org-babel--get-vars params)) (org-babel--get-vars params))
(tikz-get-value-by-name 'gd-libs (tikz-get-value-by-name 'gd-libs