|
@@ -47,7 +47,7 @@
|
|
|
(value (cdr pair)))
|
|
|
(setq body
|
|
|
(replace-regexp-in-string
|
|
|
- (concat "\$" (regexp-quote name))
|
|
|
+ (concat "\\$" (regexp-quote name))
|
|
|
(if (stringp value) value (format "%S" value))
|
|
|
body))))
|
|
|
vars)
|
|
@@ -59,7 +59,7 @@
|
|
|
(message "executing Abc source code block")
|
|
|
(let* ((cmdline (cdr (assq :cmdline params)))
|
|
|
(out-file (let ((file (cdr (assq :file params))))
|
|
|
- (if file (replace-regexp-in-string "\.pdf$" ".ps" file)
|
|
|
+ (if file (replace-regexp-in-string "\\.pdf$" ".ps" file)
|
|
|
(error "abc code block requires :file header argument"))))
|
|
|
(in-file (org-babel-temp-file "abc-"))
|
|
|
(render (concat "abcm2ps" " " cmdline
|