org-babel-expand-body:screen

contrib/babel/lisp/langs/org-babel-screen.el

@@ -50,6 +50,8 @@ In case you want to use a different screen than one selected by your $PATH")
   '((:results . "silent") (:session . "default") (:cmd . "sh") (:terminal . "xterm"))
   "Default arguments to use when running screen source blocks.")
 
+(defun org-babel-expand-body:screen (body params &optional processed-params) body)
+
 (defun org-babel-execute:screen (body params)
   "Send a block of code via screen to a terminal using org-babel.
 \"default\" session is be used when none is specified."
@@ -59,7 +61,8 @@ In case you want to use a different screen than one selected by your $PATH")
            (session (first processed-params))
            (socket (org-babel-screen-session-socketname session)))
       (unless socket (org-babel-prep-session:screen session params))
-      (org-babel-screen-session-execute-string session body))))
+      (org-babel-screen-session-execute-string
+       session (org-babel-expand-body:screen body)))))
 
 (defun org-babel-prep-session:screen (session params)
   "Prepare SESSION according to the header arguments specified in PARAMS."