From 35434e1389c30e500648b6bffc9d04409e7bbd70 Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Thu, 15 Apr 2010 23:18:13 -0600 Subject: [PATCH] org-babel-expand-body:sass --- contrib/babel/lisp/langs/org-babel-sass.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/contrib/babel/lisp/langs/org-babel-sass.el b/contrib/babel/lisp/langs/org-babel-sass.el index d20e91da8..37b1ec99b 100644 --- a/contrib/babel/lisp/langs/org-babel-sass.el +++ b/contrib/babel/lisp/langs/org-babel-sass.el @@ -48,6 +48,8 @@ (add-to-list 'org-babel-tangle-langs '("sass" "sass")) +(defun org-babel-expand-body:sass (body params &optional processed-params) body) + (defun org-babel-execute:sass (body params) "Execute a block of Sass code with org-babel. This function is called by `org-babel-execute-src-block'." @@ -58,7 +60,8 @@ called by `org-babel-execute-src-block'." (cmdline (cdr (assoc :cmdline params))) (in-file (make-temp-file "org-babel-sass-in")) (cmd (concat "sass " (or cmdline "") in-file " " out-file))) - (with-temp-file in-file (insert body)) (shell-command cmd) + (with-temp-file in-file + (insert (org-babel-expand-body:sass body))) (shell-command cmd) (or file (with-temp-buffer (insert-file-contents out-file) (buffer-string))))) (defun org-babel-prep-session:sass (session params)