Function: org-babel-screen-session-socketname

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

Signature

(org-babel-screen-session-socketname SESSION)

Documentation

Check if SESSION exists by parsing output of "screen -ls".

Source Code

;; Defined in /usr/src/emacs/lisp/org/ob-screen.el.gz
(defun org-babel-screen-session-socketname (session)
  "Check if SESSION exists by parsing output of \"screen -ls\"."
  (let* ((screen-ls (shell-command-to-string "screen -ls"))
         (sockets (delq
		   nil
                   (mapcar
		    (lambda (x)
		      (when (string-match (rx (or "(Attached)" "(Detached)")) x)
			x))
		    (split-string screen-ls "\n"))))
         (match-socket (car
			(delq
			 nil
			 (mapcar
			  (lambda (x)
			    (and (string-match-p (regexp-quote session) x)
				 x))
			  sockets)))))
    (when match-socket (car (split-string match-socket)))))