;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:41 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/ob-ledger.el
;;; in Emacs version 24.3.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")) (#$ . 570))
#@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 (#$ . 742)])
(defalias 'org-babel-prep-session:ledger #[(session params) "\300\301!\207" [error "Ledger does not support sessions"] 2])
(provide 'ob-ledger)