tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

some more work on writing out to files

This commit is contained in:
Eric Schulte 2009-06-26 10:25:31 -07:00
parent 89f4d92829
commit e16c896c80
1 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/org-babel-tangle.el
View File

@ -68,20 +68,16 @@ file into their own source-specific files."
(message "block = %S" 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)
)
(let* ((lang (car by-lang))
(lang-specs (cdr (assoc lang org-babel-tangle-langs)))
(ext (first lang-specs))
(she-bang (second lang-specs))
(by-session (cdr by-lang)))
;; if there are multiple sessions then break out by session
))
)
))
(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."