mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-16 13:46:27 +00:00
Code Releases Activity

started on implementation

Browse source
This commit is contained in:
Eric Schulte 2009-06-15 15:35:11 -07:00
parent 1c1b40636a
commit 3ab7412410
1 changed files with 13 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/org-babel-tangle.el
View file

@ -38,5 +38,18 @@ language, and the cdr should be a list containing the extension
and shebang(#!) line to use when writing out the language to
file.")
(defun org-bable-tangle ()
"Extract the bodies of all source code blocks form the current
file into their own source-specific files."
(interactive)
(let (by-lang)
(org-babel-map-source-blocks (buffer-file-name)
(let ((link (progn (org-store-link nil) (pop org-stored-links)))
(source-name (intern (org-babel-get-src-block-name)))
(info (org-babel-get-src-block-info)))
;; once collected these can be added to by-lang and then
;; dropped out to buffers
))))
(provide 'org-babel-tangle)
;;; org-babel-tangle.el ends here