Thorsten Jolitz <tjol...@gmail.com> writes: > Hi List, > > this does not work, although I would think it should (at least if there > is no typo or so): > > ,---- > | #+name: project-root > | #+header: :var buf-file=(buffer-file-name) > | #+begin_src emacs-lisp > | (file-name-directory > | (directory-file-name > | (file-name-directory buf-file))) > | #+end_src > `---- > > #+results: project-root > : /home/tj/News/drafts/ > > ,---- > | #+name: project-name > | #+header: :exports none > | #+header: :var root-dir=project-root(buf-file=(buffer-file-name)) > | #+begin_src emacs-lisp > | (mapconcat > | 'capitalize > | (split-string > | (file-name-nondirectory root-dir) > | "-" 'OMIT-NULLS) > | " ") > | #+end_src > `---- > > #+results: project-name > > Wrong usage of :var or limitations of header arguments?
This works ,---- | #+name: project-root | #+header: :var buf-file=(buffer-file-name) | #+begin_src emacs-lisp | (file-name-directory | (directory-file-name | (file-name-directory buf-file))) | #+end_src | | #+name: project-name | #+header: :exports none | #+header: :var root=project-root | #+begin_src emacs-lisp | (mapconcat | 'capitalize | (split-string | (file-name-nondirectory | (directory-file-name root)) | "-" 'OMIT-NULLS) | " ") | #+end_src `---- so it was just wrong usage ... sorry for the noise -- cheers, Thorsten
