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

Still getting started with lob. 

I plan to get rid of much of this and just implement it as a new
language with a degenerate source block for now (i.e. no body).
This commit is contained in:
Dan Davison 2009-06-12 23:02:19 -04:00
parent 68c3fb2b52
commit f5684b7deb
1 changed files with 36 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
lisp/org-babel-lob.el
View File

@ -34,7 +34,10 @@
(defvar org-babel-lob-regexp (defvar org-babel-lob-regexp
(concat "#\\+babel[ \t]*" (concat "#\\+babel[ \t]*"
"\\([ \t]+\\([^\n]+\\)\\)?\n") ;; match header arguments "\\([ \t]+\\([^\n]+\\)\\)?\n") ;; match header arguments
"Regexp used to test when on a babel library line") "Regexp used to test when on a babel library call line")
(defvar org-babel-lob-inline-regexp nil
"Regexp used to test whether at an inline babel library call")
(defun org-babel-lob-execute-maybe () (defun org-babel-lob-execute-maybe ()
"Detect if this is a babel library line and if so "Detect if this is a babel library line and if so
@ -47,8 +50,39 @@ then run `org-babel-lob-execute'."
(defun org-babel-lob-execute () (defun org-babel-lob-execute ()
"Execute an org-babel library function." "Execute an org-babel library function."
(interactive) (interactive))
(defun org-babel-lob-get-src-block-info ()
"This is taken from `org-babel-get-src-block-info'. Maybe we could abstract and unify.
Return the information of the current source block as a list
of the following form. (language body header-arguments-alist)"
(let ((case-fold-search t) head)
(if (setq head (org-babel-lob-where-is-block-head))
(save-excursion (goto-char head) (org-babel-lob-parse-lob-line-match))
(if (save-excursion ;; inline source block
(re-search-backward "[ \f\t\n\r\v]" nil t)
(forward-char 1)
(looking-at org-babel-lob-inline-regexp))
(org-babel-parse-inline-src-block-match)
nil)))) ;; indicate that no source block was found
(defun org-babel-lob-parse-lob-line-match ()
(list nil ;; no language
nil ;; no head
(org-combine-plists
org-babel-default-header-args
(org-babel-parse-header-arguments
(org-babel-clean-text-properties
(or (match-string 3) ""))))))
(defun org-babel-lob-where-is-block-head ()
"Return point at beginning of #+babel line."
(save-excursion
(beginning-of-line 1)
(and (looking-at org-babel-lob-regexp)
(point))))
(provide 'org-babel-lob) (provide 'org-babel-lob)