Browse Source

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.
Eric Schulte 13 years ago
parent
commit
3e86300d6d
1 changed files with 10 additions and 4 deletions
  1. 10 4
      lisp/ob.el

+ 10 - 4
lisp/ob.el

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