123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081 |
- (require 'ob)
- (declare-function org-load-modules-maybe "org" (&optional force))
- (declare-function org-get-local-variables "org" ())
- (defvar org-babel-default-header-args:org
- '((:results . "raw silent") (:exports . "results"))
- "Default arguments for evaluating a org source block.")
- (defvar org-babel-org-default-header
- "#+TITLE: default empty header\n"
- "Default header inserted during export of org blocks.")
- (defun org-babel-expand-body:org (body params &optional processed-params)
- "Expand BODY according to PARAMS, return the expanded body." body)
- (defun org-babel-execute:org (body params)
- "Execute a block of Org code with.
- This function is called by `org-babel-execute-src-block'."
- (let ((result-params (split-string (or (cdr (assoc :results params)) ""))))
- (cond
- ((member "latex" result-params) (org-babel-org-export body "latex"))
- ((member "html" result-params) (org-babel-org-export body "html"))
- ((member "ascii" result-params) (org-babel-org-export body "ascii"))
- (t body))))
- (defvar org-local-vars)
- (defun org-babel-org-export (body fmt)
- "Export BODY to FMT using Org-mode's export facilities. "
- (let ((tmp-file (org-babel-temp-file "org-")))
- (with-temp-buffer
- (insert org-babel-org-default-header)
- (insert body)
- (write-file tmp-file)
- (org-load-modules-maybe)
- (unless org-local-vars
- (setq org-local-vars (org-get-local-variables)))
- (eval
- (list 'let org-local-vars
- (list (intern (concat "org-export-as-" fmt))
- nil nil nil ''string t))))))
- (defun org-babel-prep-session:org (session params)
- "Return an error because org does not support sessions."
- (error "Org does not support sessions"))
- (provide 'ob-org)
|