mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-12-01 08:17:34 +00:00
Code

org-babel: allow aliases for #+lob

Browse Source 
This introduces #+call as an alias for #+lob.
This commit is contained in:
Dan Davison 2009-11-01 10:29:50 -05:00 committed by Eric Schulte
parent 91661d2f3b
commit bf6089d8de
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
contrib/babel/lisp/org-babel-lob.el
View File

@ -54,9 +54,19 @@ add files to this list use the `org-babel-lob-ingest' command."
(cons (cons source-name info)
(assq-delete-all source-name org-babel-library-of-babel)))))))
;; functions for executing lob one-liners
(defconst org-babel-lob-call-aliases '("lob" "call")
"These can be used interchangeably to call a source block
function. If you change the value of this variable then your
files may become unusable by other org-babel users, and vice
versa.")
(defconst org-babel-lob-one-liner-regexp
(concat "^[ \t]*#\\+\\(?:"
(mapconcat #'regexp-quote org-babel-lob-call-aliases "\\|")
"\\):[ \t]+\\([^\(\)\n]+\\)\(\\([^\n]*\\)\)[ \t]*\\([^\n]*\\)")
"Regexp to match calls to predefined source block functions")
(defvar org-babel-lob-one-liner-regexp "^[ \t]*#\\+lob:[ \t]+\\([^\(\)\n]+\\)\(\\([^\n]*\\)\)[ \t]*\\([^\n]*\\)")
;; functions for executing lob one-liners
(defun org-babel-lob-execute-maybe ()
"Detect if this is context for a org-babel Library Of Babel