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

Make org-babel-tangle comment with ;;*. 

With a view to providing org-style folding with the outline-regexp
settings from Tassilo Horn / Michael Zeller / Sebastain Vauban.
This commit is contained in:
Dan Davison 2009-07-16 11:25:57 -04:00
parent 690ed664c6
commit c6b628d3ad
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -145,13 +145,14 @@ assumes that the appropriate major-mode is set. SPEC has the
form form
(link source-name params body)" (link source-name params body)"
(flet ((insert-comment (text)
(comment-region (point) (progn (insert text) (point)))))
(let ((link (first spec)) (let ((link (first spec))
(source-name (second spec)) (source-name (second spec))
(body (fourth spec))) (body (fourth spec))
(comment-padding "* "))
(flet ((insert-comment (text)
(comment-region (point) (progn (insert text) (point)))))
(insert "\n\n") (insert "\n\n")
(insert-comment (format "[[%s][%s]]" (org-link-escape link) source-name)) (insert-comment (format "* [[%s][%s]]" (org-link-escape link) source-name))
(insert (format "\n%s\n" (org-babel-chomp body))) (insert (format "\n%s\n" (org-babel-chomp body)))
(insert-comment (format "%s ends here" source-name)) (insert-comment (format "%s ends here" source-name))
(insert "\n")))) (insert "\n"))))