;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require ob ob-eval] 2) #@64 Default arguments to use when evaluating a fomus source block. (defvar org-babel-default-header-args:fomus '((:results . "file") (:exports . "results")) (#$ . 151)) #@60 Expand BODY according to PARAMS, return the expanded body. (defalias 'org-babel-expand-body:fomus #[(body params) "\303!\304\305 \"\210\n)\207" [params vars body org-babel--get-vars mapc #[(pair) "\304@!A\305\306\307\n!P ;\203 \202\310\311 \" #\211*\207" [pair value name body symbol-name replace-regexp-in-string "$" regexp-quote format "%S"] 5]] 3 (#$ . 322)]) #@105 Execute a block of Fomus code with org-babel. This function is called by `org-babel-execute-src-block'. (defalias 'org-babel-execute:fomus #[(body params) "\306\236A\307\236A\310\236A\311\236A\206\312\313\314\315\"\211\316\317\320\"\321\216rq\210\322\"c\210)rq\210\323\324\211\324\325%\210,\326\f\327\330 !\327 \331\330\n!\260\332\"\210-\324\207" [params result-params out-file cmdline cmd in-file :result-params :file :cmdline :cmd "fomus" org-babel-temp-file "fomus-" ".fms" generate-new-buffer " *temp file*" t #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] org-babel-expand-body:fomus write-region nil 0 org-babel-eval " " org-babel-process-file-name " -o " "" #1# #2=#:temp-file body] 10 (#$ . 703)]) #@58 Return an error because Fomus does not support sessions. (defalias 'org-babel-prep-session:fomus #[(session params) "\300\301!\207" [error "Fomus does not support sessions"] 2 (#$ . 1470)]) (provide 'ob-fomus)