mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 22:47:56 +00:00
Code Releases Activity

ob: inserting inline call block results appropriately

Browse source 
* lisp/ob-lob.el (org-babel-inline-lob-one-liner-regexp): Removing
  this trailing space ensures that the insertion of the results looks
  nice.
* lisp/ob.el (org-babel-insert-result): Insert inline lob line results
  as inline results.
This commit is contained in:
Eric Schulte 2011-06-24 14:53:30 -07:00
parent 825f6d382d
commit 6c771d236d
2 changed files with 9 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/ob-lob.el
View file

@ -83,7 +83,7 @@ If you change the value of this variable then your files may
"\\([^\n]*\\)\\(?:"
(mapconcat #'regexp-quote org-babel-lob-call-aliases "\\|")
"\\)_\\([^\(\)\n]+?\\)\\(\\[\\(.*\\)\\]\\|\\(\\)\\)"
"\(\\([^\n]*\\)\)\\(\\[.+\\]\\|\\)\\(\\[\\([^\\[\\]]*\\)\\]\\)?[ \t]*")
"\(\\([^\n]*\\)\)\\(\\[.+\\]\\|\\)\\(\\[\\([^\\[\\]]*\\)\\]\\)?")
"Regexp to match inline calls to predefined source block functions.")
(defconst org-babel-lob-one-liner-regexp

14
lisp/ob.el
View file

@ -1529,12 +1529,14 @@ code ---- the results are extracted in the syntax of the source
(message (replace-regexp-in-string "%" "%%" (format "%S" result)))
result)
(save-excursion
(let* ((inlinep (save-excursion
(re-search-backward "[ \f\t\n\r\v]" nil t)
(when (looking-at org-babel-inline-src-block-regexp)
(goto-char (match-end 0))
(insert (if (listp result) "\n" " "))
(point))))
(let* ((inlinep
(save-excursion
(re-search-backward "[ \f\t\n\r\v]" nil t)
(when (or (looking-at org-babel-inline-src-block-regexp)
(looking-at org-babel-inline-lob-one-liner-regexp))
(goto-char (match-end 0))
(insert (if (listp result) "\n" " "))
(point))))
(existing-result (unless inlinep
(org-babel-where-is-src-block-result
t info hash indent)))