.emacs.d.git - Gitblit

;ELC
;;; Compiled
;;; in Emacs version 26.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)
#@46 Default header arguments for js code blocks.
(defvar org-babel-default-header-args:js nil (#$ . 422))
#@51 String to indicate that evaluation has completed.
(defvar org-babel-js-eoe "org-babel-js-eoe" (#$ . 530))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&    \207" [custom-declare-variable org-babel-js-cmd funcall function #[0 "\300\207" [#1="node"] 1 #1#] "Name of command used to evaluate js blocks." :group org-babel :version "24.1" :type string] 10)
#@41 Javascript code to print value of body.
(defvar org-babel-js-function-wrapper "require('sys').print(require('sys').inspect(function(){\n%s\n}()));" (#$ . 902))
#@127 Execute a block of Javascript code with org-babel.
This function is called by `org-babel-execute-src-block'
 
(fn BODY PARAMS)
(defalias 'org-babel-execute:js #[514 "\306\236A\206\307\236A\310\311!#\312\236A\313\230\204\324\314\312\236A\"\315!\204/\316\317\"\210\320 \321\322\323\324\325!\326\"\327$\216rq\210\212\330\331C\321\332\333\324\325!\334\"\335\336%\nB\337\340\341p!!b\210`d{\262|\266\342\343    \344\345\"D\"\210\fb\210\212\346\347\344\345\"!\337\350#\205\212\346 \337\350#)\204\227\351\341p!!\210\202t\340\341p!!b\210\211c\210\203\302\352\353\354\355\347\f\206\261\331!#\242\"\203\302\211\242\322\225\337O\240\210\356\242 \")\266\202,\262A@\262\202\357\360!\211\361\362\363!!\321\322\364\324\325!\365\"\366$\216r\211q\210\367\230\203\373\344@\"\202\374c\210)r\211q\210\370\337\211\337\322%\210*\266\371\344\372\373!#\331\"\262\374\236A\313\235?\205\200\375\235\204w\376\235\204w\377\235\204w\201A\235\204w\201B\235\204w\201C\235\204w\201D\235\204o\201E\235\204o\201F\235\204o\201G\235\203{\201H\235\204{\202\200\201I!\262)\207" [org-babel-js-cmd comint-input-filter comint-output-filter-functions org-babel-js-eoe comint-last-input-end comint-prompt-regexp :cmd :result-type org-babel-expand-body:generic org-babel-variable-assignments:js :session "none" org-babel-prep-session:js org-babel-comint-buffer-livep error "Buffer %s does not exist or has no process" match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 #[257 "\300\207" [nil] 2 "\n\n(fn INPUT)"] "" 257 "\300\211\242P\240\207" [] 4 "\n\n(fn TEXT)" nil process-mark get-buffer-process mapc #[257 "\300!c\210\301\302\303\"\207" [org-babel-chomp comint-send-input nil t] 4 "\n\n(fn LINE)"] format "%S" re-search-forward regexp-quote t accept-process-output string-match replace-regexp-in-string "\n" "[ \n]+" split-string org-babel-temp-file "js-script-" get-buffer-create generate-new-buffer-name " *temp file*" "\301\300!\205    \302\300!\207" [buffer-name kill-buffer] 2 "value" write-region org-babel-eval "%s %s" org-babel-process-file-name :result-params "scalar" "verbatim" "html" org-babel-js-function-wrapper "code" "pp" "file" "output" "raw" "org" "drawer" "table" org-babel-js-read] 14 (#$ . 1069)])
#@180 Convert RESULTS into an appropriate elisp value.
If RESULTS look like a table, then convert them into an
Emacs-lisp table, otherwise return the results as a string.
 
(fn RESULTS)
(defalias 'org-babel-js-read #[257 "\300;\203-\301\302\"\203-\303\304\"\203-\300\305\306\307\310\306\311\312\306\313\314\306\305\315####P!\202.!\207" [org-babel-read string-prefix-p "[" string-suffix-p "]" "'" replace-regexp-in-string "\\[" "(" "\\]" ")" ",[[:space:]]" " " "\""] 17 (#$ . 3389)])
#@139 Convert VAR into a js variable.
Convert an elisp value into a string of js source code
specifying a variable of the same value.
 
(fn VAR)
(defalias 'org-babel-js-var-to-js #[257 "\211<\203\300\301\302\303#\304Q\207\305\306\307\310\311\"#\207" ["[" mapconcat org-babel-js-var-to-js ", " "]" replace-regexp-in-string "\n" "\\\\n" format "%S"] 7 (#$ . 3882)])
#@93 Prepare SESSION according to the header arguments specified in PARAMS.
 
(fn SESSION PARAMS)
(defalias 'org-babel-prep-session:js #[514 "\301!\302!\203D\303!\204\304\305\"\210\306 \307\310\311\312\313!\314\"\315$\216rq\210\212\316\317\320!\210db\210\321\307\322\323\312\313!\324\"\325\326%\"\210,\210\207" [comint-input-filter org-babel-js-initiate-session org-babel-variable-assignments:js org-babel-comint-buffer-livep error "Buffer %s does not exist or has no process" match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 #[257 "\300\207" [nil] 2 "\n\n(fn INPUT)"] sit-for 0.5 mapc 257 "\211c\210\301\302\303\"\210\304\300!\210\305\306!\210db\207" [comint-send-input nil t org-babel-comint-wait-for-output sit-for 0.1] 4 "\n\n(fn VAR)"] 12 (#$ . 4249)])
#@84 Return list of Javascript statements assigning the block's variables.
 
(fn PARAMS)
(defalias 'org-babel-variable-assignments:js #[257 "\300\301\302!\"\207" [mapcar #[257 "\300\301@\302A!#\207" [format "var %s=%s;" org-babel-js-var-to-js] 6 "\n\n(fn PAIR)"] org-babel--get-vars] 5 (#$ . 5066)])
#@132 If there is not a current inferior-process-buffer in SESSION
then create.  Return the initialized session.
 
(fn &optional SESSION)
(defalias 'org-babel-js-initiate-session #[256 "\211\301\230?\205N\302\230\203A\303\304!\210\305 \306\307\310\311\312!\313\"\314$\216\315\316!\210\317!\210p)\262\320!\2039\321\322!\210\211\202@\321\323!\210\324!\207\325\230\203K\326\327!\207\326\330!\207" [org-babel-js-cmd "none" "mozrepl" require moz current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 run-mozilla nil rename-buffer org-babel-comint-buffer-livep sit-for 0.25 0.5 org-babel-js-initiate-session "node" error "Session evaluation with node.js is not supported" "Sessions are only supported with mozrepl add \":cmd mozrepl\""] 8 (#$ . 5370)])
(provide 'ob-js)