Преглед на файлове

Customizable wrapper for variables in perl code

* lisp/ob-perl.el (org-babel-perl-var-wrap): Customizable wrapper for
  variables in perl code.
  (org-babel-perl-var-to-perl): Use said wrapper.
Eric Schulte преди 12 години
родител
ревизия
f30866b03b
променени са 1 файла, в които са добавени 4 реда и са изтрити 1 реда
  1. 4 1
      lisp/ob-perl.el

+ 4 - 1
lisp/ob-perl.el

@@ -69,13 +69,16 @@ This function is called by `org-babel-execute-src-block'."
 
 ;; helper functions
 
+(defvar org-babel-perl-var-wrap "q(%s)"
+  "Wrapper for variables inserted into Perl code.")
+
 (defun org-babel-perl-var-to-perl (var)
   "Convert an elisp value to a perl variable.
 The elisp value, VAR, is converted to a string of perl source code
 specifying a var of the same value."
   (if (listp var)
       (concat "[" (mapconcat #'org-babel-perl-var-to-perl var ", ") "]")
-    (format "%S" var)))
+    (format org-babel-perl-var-wrap var)))
 
 (defvar org-babel-perl-buffers '(:default . nil))