tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org-babel-expand-body:screen

This commit is contained in:
Eric Schulte 2010-04-15 23:17:39 -06:00
parent 35434e1389
commit e6c979f0d7
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
contrib/babel/lisp/langs/org-babel-screen.el
View File

@ -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."