ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

org-babel-expand-body:haskell

This commit is contained in:
Eric Schulte 2010-04-15 23:00:14 -06:00
parent 58c8ddd5c6
commit dd500005ef
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
contrib/babel/lisp/langs/org-babel-haskell.el
View File

@ -54,6 +54,13 @@
(defvar org-babel-haskell-eoe "\"org-babel-haskell-eoe\"") (defvar org-babel-haskell-eoe "\"org-babel-haskell-eoe\"")
(defun org-babel-expand-body:haskell (body params &optional processed-params)
(let (vars (second (or processed-params (org-babel-process-params params))))
(concat
(mapconcat
(lambda (pair) (format "let %s = %s;" (car pair) (cdr pair)))
vars "\n") "\n" body "\n")))
(defun org-babel-execute:haskell (body params) (defun org-babel-execute:haskell (body params)
"Execute a block of Haskell code with org-babel." "Execute a block of Haskell code with org-babel."
(message "executing haskell source code block") (message "executing haskell source code block")
@ -61,10 +68,7 @@
(session (first processed-params)) (session (first processed-params))
(vars (second processed-params)) (vars (second processed-params))
(result-type (fourth processed-params)) (result-type (fourth processed-params))
(full-body (concat (full-body (org-babel-expand-body:haskell body params processed-params))
(mapconcat
(lambda (pair) (format "let %s = %s;" (car pair) (cdr pair)))
vars "\n") "\n" body "\n"))
(session (org-babel-prep-session:haskell session params)) (session (org-babel-prep-session:haskell session params))
(raw (org-babel-comint-with-output session org-babel-haskell-eoe t (raw (org-babel-comint-with-output session org-babel-haskell-eoe t
(insert (org-babel-trim full-body)) (insert (org-babel-trim full-body))