%PDF- <> %âãÏÓ endobj 2 0 obj <> endobj 3 0 obj <>/ExtGState<>/ProcSet[/PDF/Text/ImageB/ImageC/ImageI] >>/Annots[ 28 0 R 29 0 R] /MediaBox[ 0 0 595.5 842.25] /Contents 4 0 R/Group<>/Tabs/S>> endobj ºaâÚÎΞ-ÌE1ÍØÄ÷{òò2ÿ ÛÖ^ÔÀá TÎ{¦?§®¥kuµùÕ5sLOšuY>endobj 2 0 obj<>endobj 2 0 obj<>endobj 2 0 obj<>endobj 2 0 obj<> endobj 2 0 obj<>endobj 2 0 obj<>es 3 0 R>> endobj 2 0 obj<> ox[ 0.000000 0.000000 609.600000 935.600000]/Fi endobj 3 0 obj<> endobj 7 1 obj<>/ProcSet[/PDF/Text/ImageB/ImageC/ImageI]>>/Subtype/Form>> stream
;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) #@48 Default header arguments for shen code blocks. (defvar org-babel-default-header-args:shen nil (#$ . 424)) #@60 Expand BODY according to PARAMS, return the expanded body. (defalias 'org-babel-expand-body:shen #[(body params) "\303\304\305\306\"\"\211G\307V\203 \310\311\312 \313#\n\314R\202 \n)\207" [params vars body mapcar cdr org-babel-get-header :var 0 "(let " mapconcat #[(var) "\301\302@\303A!#\207" [var format "%s %s" org-babel-shen-var-to-shen] 5] " " ")"] 6 (#$ . 536)]) #@35 Convert VAR into a shen variable. (defalias 'org-babel-shen-var-to-shen #[(var) "<\203 \301\302\303\304#\305Q\207\306\307\"\207" [var "[" mapconcat org-babel-ruby-var-to-ruby " " "]" format "%S"] 5 (#$ . 917)]) #@103 Execute a block of Shen code with org-babel. This function is called by `org-babel-execute-src-block' (defalias 'org-babel-execute:shen #[(body params) "\306\307!\210\310\311\"A\310\312\"A\313\"\314\315!r q\210\316\216\fc\210\317\320!+\n\321\235?\205\215 \322\235\204y \323\235\204y \324\235\204y \325\235\204y \326\235\204y \327\235\204r \330\235\204r \331\235\204r \332\235\203~ \333\235\204~ \202\215 \3341\212 \335!0\202\215 \210-\207" [params result-type result-params body full-body #1=#:temp-buffer require inf-shen assoc :result-type :result-params org-babel-expand-body:shen generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] call-interactively shen-eval-defun "none" "scalar" "verbatim" "html" "code" "pp" "output" "raw" "org" "drawer" "table" (error) org-babel-script-escape results #2=#:--params] 3 (#$ . 1139)]) (provide 'ob-shen)