tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

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.
This commit is contained in:
Eric Schulte 2011-10-09 09:31:32 -06:00
parent d7d0230bf4
commit 3e86300d6d
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/ob.el
View File

@ -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
" "