Function: org-babel-prep-session:screen

org-babel-prep-session:screen is a byte-compiled function defined in ob-screen.el.gz.

Signature

(org-babel-prep-session:screen SESSION PARAMS)

Documentation

Prepare SESSION according to the header arguments specified in PARAMS.

Source Code

;; Defined in /usr/src/emacs/lisp/org/ob-screen.el.gz
(defun org-babel-prep-session:screen (_session params)
  "Prepare SESSION according to the header arguments specified in PARAMS."
  (let* ((session (cdr (assq :session params)))
         (cmd (cdr (assq :cmd params)))
         (terminal (cdr (assq :terminal params)))
         (screenrc (cdr (assq :screenrc params)))
         (process-name (concat "org-babel: terminal (" session ")")))
    (apply 'start-process process-name "*Messages*"
           terminal `("-T" ,(concat "org-babel: " session) "-e" ,org-babel-screen-location
		      "-c" ,screenrc "-mS" ,session ,cmd))
    ;; XXX: Is there a better way than the following?
    (while (not (org-babel-screen-session-socketname session))
      ;; wait until screen session is available before returning
      )))