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
