Re: Import files to babel blocks

[Michael Bach <phaebz@gmail.com>]

Hi Myles,

On 7/21/13 12:31 PM, Myles English wrote:
> 
> From the documentation (C-h f insert-file-contents), it says that it
> "returns list of absolute file name and number of characters" but
> doesn't move the marker forwards, unlike insert does.  So, I guess you
> would have to then move the marker forwards by the number of characters.
> 

Erhm, another case of readthedocs... Thanks for the shove! For
reference, I got it to work using a simple let like so:

--8<---------------cut here---------------start------------->8---
(defun import-to-org-from-files (path pattern progmode)
    (mapcar #'(lambda (filepath)
                (progn
                  (insert (format
                           "\n#+name: %s\n" (file-name-nondirectory
                                             (file-name-sans-extension
                                              filepath))))
                  (insert (format "#+begin_src %s :eval no\n" progmode))
                  (let ((res (insert-file-contents filepath)))
                    (forward-char (second res)))
                  (insert "\n#+end_src\n"))
                )
            (directory-files path t pattern)))
--8<---------------cut here---------------end--------------->8---

much obliged,
Michael