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

stubbed out functions for inserting source-blocks into files

Browse source
This commit is contained in:
Eric Schulte 2009-06-25 20:17:21 -07:00
parent d469181978
commit fed7056833
1 changed files with 20 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -66,7 +66,26 @@ file into their own source-specific files."
;; blocks should contain all source-blocks organized by language
;; and session
(message "block = %S" blocks)
blocks))
(mapc ;; for every language create a file
(lambda (by-lang)
(let ((lang (car by-lang))
(by-session (cdr by-lang)))
(if (> (length by-session) 1)
)
))
)
))
(defun org-babel-tangle-specs-to-file (filename specs)
"Take a list of source-block specifications in SPECS and write
it out to FILENAME."
(with-temp-file filename
(insert (mapconcat #'org-babel-spec-to-string specs "\n"))))
(defun org-babel-spec-to-string (spec)
"Return the string version of spec suitable for inclusion in a
source code file."
)
(provide 'org-babel-tangle)
;;; org-babel-tangle.el ends here