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

fix org-babel-get-header

Browse Source
This commit is contained in:
Rongsong Shen 2018-04-10 22:28:21 +08:00
parent 7bad2b4361
commit 11b8521f14
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -140,7 +140,7 @@ 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 'tikz-libs (tikz-get-value-by-name 'tikz-libs
(mapcar #'cdr (org-babel-get-header params :var))) (org-babel--get-vars params))
(org-babel-expand-body:generic (org-babel-expand-body:generic
body params body params
(org-babel-variable-assignments:tikz params))))) (org-babel-variable-assignments:tikz params)))))
@ -159,7 +159,7 @@ Tikz does not support sessions"
(defun org-babel-variable-assignments:tikz (params) (defun org-babel-variable-assignments:tikz (params)
"Return list of tikz statements assigning the block's variables" "Return list of tikz statements assigning the block's variables"
(mapcar #'org-babel-tikz-var-to-tikz (mapcar #'org-babel-tikz-var-to-tikz
(mapcar #'cdr (org-babel-get-header params :var)))) (org-babel--get-vars params)))
(defun tikz-get-value-by-name (name vpairs) (defun tikz-get-value-by-name (name vpairs)
(let ((vp (assoc name vpairs))) (let ((vp (assoc name vpairs)))