#+name: table
| File |
| a |
| b |
| c |
| d |
#+name: template
#+begin_src org :results verbatim :var name="abc"
DROP TABLE $name
CREATE TABLE $name (name varchar(100))
BULK INSERT $name FROM '\\1.1.1.1\$name.txt' ...
#+end_src
#+name: apply-template
#+begin_src emacs-lisp :results silent :var table=()
(let (result-table)
(dolist (line (cdr table))
(setq result-table (cons (concat "#+call: template(\"" (car line) "\") :results raw drawer") result-table)))
(mapconcat 'identity (nreverse result-table) "\n"))
#+end_src
#+call: apply-template(table) :results org :exports both
#+RESULTS: apply-template(table):results org :exports both
#+BEGIN_SRC org
#+END_SRC
Is there a more straightforward method to apply this type of transformation? Ideally I would skip the emacs-lisp block and use some syntax to apply a org-babel block for each row in a table.