mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-16 11:16:27 +00:00
Code Releases Activity

now including language specific header arg values in insertion options

Browse source 
* 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 () (defun org-babel-insert-header-arg ()
"Insert a header argument selecting from lists of common args and values." "Insert a header argument selecting from lists of common args and values."
(interactive) (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: " "Header Arg: "
(mapcar (mapcar
(lambda (header-spec) (symbol-name (car header-spec))) (lambda (header-spec) (symbol-name (car header-spec)))
org-babel-common-header-args-w-values)))) headers))))
(insert ":" arg) (insert ":" arg)
(let ((vals (cdr (assoc (intern arg) (let ((vals (cdr (assoc (intern arg) headers))))
org-babel-common-header-args-w-values))))
(when vals (when vals
(insert (insert
" " " "