ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

babel: bug fix in exporter wrt: contents of lob info lists 

* contrib/babel/lisp/org-babel-exp.el (org-babel-exp-lob-one-liners):
  exportation of #+lob and #+call type lines is now correctly handling
  the addition of the indentation information to the info list
This commit is contained in:
Eric Schulte 2010-06-11 10:16:56 -07:00
parent a5712e4b0a
commit 1da53c668a
1 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
contrib/babel/lisp/org-babel-exp.el
View File

@ -135,17 +135,19 @@ options are taken from `org-babel-default-header-args'."
(while (and (< (point) end) (while (and (< (point) end)
(re-search-forward org-babel-lob-one-liner-regexp nil t)) (re-search-forward org-babel-lob-one-liner-regexp nil t))
(setq replacement (setq replacement
(save-match-data (let ((lob-info (org-babel-lob-get-info)))
(org-babel-exp-do-export (save-match-data
(list "emacs-lisp" "results" (org-babel-exp-do-export
(org-babel-merge-params (list "emacs-lisp" "results"
org-babel-default-header-args (org-babel-merge-params
(org-babel-parse-header-arguments org-babel-default-header-args
(org-babel-clean-text-properties (org-babel-parse-header-arguments
(concat ":var results=" (org-babel-clean-text-properties
(mapconcat #'identity (concat ":var results="
(org-babel-lob-get-info) " ")))))) (mapconcat #'identity
'lob))) (butlast lob-info) " ")))))
(car (last lob-info)))
'lob))))
(setq end (+ end (- (length replacement) (length (match-string 0))))) (setq end (+ end (- (length replacement) (length (match-string 0)))))
(replace-match replacement t t))))) (replace-match replacement t t)))))