ob: inserting inline call block results appropriately
* 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:
parent
825f6d382d
commit
6c771d236d
|
@ -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
|
||||
|
|
|
@ -1529,9 +1529,11 @@ 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
|
||||
(let* ((inlinep
|
||||
(save-excursion
|
||||
(re-search-backward "[ \f\t\n\r\v]" nil t)
|
||||
(when (looking-at org-babel-inline-src-block-regexp)
|
||||
(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))))
|
||||
|
|
Loading…
Reference in New Issue