;ELC ;;; Compiled ;;; in Emacs version 24.5.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) #@65 Default arguments to use when evaluating a ledger source block. (defvar org-babel-default-header-args:ledger '((:results . "output") (:cmdline . "bal")) (#$ . 424)) #@110 Execute a block of Ledger entries with org-babel. This function is called by `org-babel-execute-src-block'. (defalias 'org-babel-execute:ledger #[(body params) "\306\307!\210\310\311\312\"A\206\313!\311\314\"A\315\316!\315\317!\n\320\321\322!!%\323\216r q\210&c\210)r q\210\324\325\211%\325\326%\210,\306\327\330\331\332\n!\333 \260\"\210\320\321\334!!'\335\216''\336\330\331\332\n!\333 \337\332 !\260!\210)r'q\210+\340\341!(r(q\210\342\216\343 !\210\344 .\207" [params out-file in-file cmdline result-params #1=#:temp-buffer message "executing Ledger source code block" split-string assoc :results "" :cmdline org-babel-temp-file "ledger-" "ledger-output-" get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) write-region nil 0 "%s" "ledger" " -f " org-babel-process-file-name " " " *string-output*" ((kill-buffer standard-output)) shell-command " > " generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#2=#:temp-buffer buffer-name kill-buffer] 2)) insert-file-contents buffer-string #3=#:temp-file body standard-output #2#] 9 (#$ . 596)]) (defalias 'org-babel-prep-session:ledger #[(session params) "\300\301!\207" [error "Ledger does not support sessions"] 2]) (provide 'ob-ledger)