ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/ob-screen.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'ob)
#@109 The command location for screen.
In case you want to use a different screen than one selected by your $PATH
(defvar org-babel-screen-location "screen" (#$ . 425))
#@61 Default arguments to use when running screen source blocks.
(defvar org-babel-default-header-args:screen '((:results . "silent") (:session . "default") (:cmd . "sh") (:terminal . "xterm")) (#$ . 594))
#@110 Send a block of code via screen to a terminal using Babel.
"default" session is used when none is specified.
(defalias 'org-babel-execute:screen #[(body params) "\305\306!\210\307 \310\216\311\312 \"A\313\n!\211\204 \314\n \"\210\315\n\316\f \"\",\207" [#1=#:wconfig params session socket body message "Sending source code block to interactive terminal session..." current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] assoc :session org-babel-screen-session-socketname org-babel-prep-session:screen org-babel-screen-session-execute-string org-babel-expand-body:generic] 6 (#$ . 802)])
#@72 Prepare SESSION according to the header arguments specified in PARAMS.
(defalias 'org-babel-prep-session:screen #[(session params) "\306\307\"A\310 !\306\311\"A\306\312\"A \313 \314Q \315\316
\317\f\320\321 P\322\323\324\325\326 P \257 %\210\310 !?\205< \2022 -\207" [params session socket cmd terminal process-name assoc :session org-babel-screen-session-socketname :cmd :terminal "org-babel: terminal (" ")" apply start-process "*Messages*" "-T" "org-babel: " "-e" "-c" "/dev/null" "-mS" "org-babel-session-" org-babel-screen-location] 14 (#$ . 1426)])
#@37 If SESSION exists, send BODY to it.
(defalias 'org-babel-screen-session-execute-string #[(session body) "\305!\211\205& \306\n\"\307\310\311\312Q\313\f\314 \315\316\317\320 P\321BBBBBB%))\207" [session socket body tmpfile org-babel-screen-location org-babel-screen-session-socketname org-babel-screen-session-write-temp-file apply start-process "org-babel: screen (" ")" "*Messages*" "-S" "-X" "eval" "msgwait 0" "readreg z " ("paste z")] 13 (#$ . 1995)])
#@60 Check if SESSION exists by parsing output of "screen -ls".
(defalias 'org-babel-screen-session-socketname #[(session) "\303\304!\305\306\307\310\311\312\"\"\"\305\306\307\313 \"\"@\211\205 \311\n!@+\207" [screen-ls sockets match-socket shell-command-to-string "screen -ls" delq nil mapcar #[(x) "\301\302\"\205 \207" [x string-match "\\(?:(\\(?:\\(?:At\\|De\\)tached)\\)\\)"] 3] split-string "\n" #[(x) "\302\303P \"\205\n \207" [session x string-match "org-babel-session-"] 3]] 8 (#$ . 2462)])
#@55 Save BODY in a temp file that is named after SESSION.
(defalias 'org-babel-screen-session-write-temp-file #[(session body) "\304\305!\211\306\307\310!!\311\216r q\210 c\210eb\210\312\313!\210)r q\210\314\315\211\n\315\316%\210,)\207" [tmpfile #1=#:temp-buffer #2=#:temp-file body org-babel-temp-file "screen-" get-buffer-create generate-new-buffer-name " *temp file*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] delete-matching-lines "^ +$" write-region nil 0] 7 (#$ . 2973)])
#@71 Test if the default setup works.
The terminal should shortly flicker.
(defalias 'org-babel-screen-test #[nil "\306\307\310\311\312!\"\313\314!\315 \316\n\317\260\320\211 \321 \"\210\322\n!\204, \307\323!\210\202 \324\325! r q\210\326\216\327\n!\210ed{+\330\n!\210\331\332\333
\"\203R \334\202S \335P!.\207" [session random-string tmpfile body process tmp-string "org-babel-testing" format "%s" random 99999 org-babel-temp-file "ob-screen-test-" "echo '" "' > " "\nexit\n" nil org-babel-execute:screen file-readable-p "org-babel-screen: File not readable yet." generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] insert-file-contents-literally delete-file message "org-babel-screen: Setup " string-match "WORKS." "DOESN'T work." org-babel-default-header-args:screen #1#] 6 (#$ . 3480) nil])
(provide 'ob-screen)
Kontol Shell Bypass