diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2011-10-09 09:31:32 -0600 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2011-10-09 09:31:32 -0600 |
commit | 3e86300d6d48b559cbbbeb52b49b4f6cfff47d31 (patch) | |
tree | 2b185bbcdd76d2e1a3f4962e12e806c4b30ee36b | |
parent | d7d0230bf45862c387c55fbffcb16e09ec98dd74 (diff) | |
download | org-mode-3e86300d6d48b559cbbbeb52b49b4f6cfff47d31.tar.gz |
now including language specific header arg values in insertion options
* lisp/ob.el (org-babel-insert-header-arg): Now including language
specific header arg values in insertion options.
-rw-r--r-- | lisp/ob.el | 14 |
1 files changed, 10 insertions, 4 deletions
@@ -601,14 +601,20 @@ arguments and pop open the results in a preview buffer." (defun org-babel-insert-header-arg () "Insert a header argument selecting from lists of common args and values." (interactive) - (let ((arg (org-icompleting-read + (let* ((lang (car (org-babel-get-src-block-info 'light))) + (lang-headers (intern (concat "org-babel-header-arg-names:" lang))) + (headers (append (if (boundp lang-headers) + (mapcar (lambda (h) (cons h :any)) + (eval lang-headers)) + nil) + org-babel-common-header-args-w-values)) + (arg (org-icompleting-read "Header Arg: " (mapcar (lambda (header-spec) (symbol-name (car header-spec))) - org-babel-common-header-args-w-values)))) + headers)))) (insert ":" arg) - (let ((vals (cdr (assoc (intern arg) - org-babel-common-header-args-w-values)))) + (let ((vals (cdr (assoc (intern arg) headers)))) (when vals (insert " " |