| commit | author | age | ||
| 76bbd0 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (require 'ob) | |
| 16 | #@65 Default arguments to use when evaluating a ledger source block. | |
| 17 | (defvar org-babel-default-header-args:ledger '((:results . "output") (:cmdline . "bal")) (#$ . 422)) | |
| 18 | #@128 Execute a block of Ledger entries with org-babel. This function is | |
| 19 | called by `org-babel-execute-src-block'. | |
| 20 | ||
| 21 | (fn BODY PARAMS) | |
| 22 | (defalias 'org-babel-execute:ledger #[514 "\301\302!\210\303\236A\304\305!\304\306!\307\310\311!!\312\313\314\315\316!\317\"\320$\216r\211q\210c\210)r\211q\210\321\322\211\322\313%\210*\266\301\323\324\325\326!\327\260\"\210\307\310\330!!\331\216\332\324\325\326!\327\333\326!\260!\210)rq\210+\334\335!r\211q\210\312\313\314\315\316!\336\"\320$\216\337!\210\340 *\262\207" [standard-output message "executing Ledger source code block" :cmdline org-babel-temp-file "ledger-" "ledger-output-" get-buffer-create generate-new-buffer-name " *temp file*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 write-region nil "%s" "ledger" " -f " org-babel-process-file-name " " " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] shell-command " > " generate-new-buffer " *temp*" [buffer-name kill-buffer] insert-file-contents buffer-string] 14 (#$ . 594)]) | |
| 23 | #@23 | |
| 24 | ||
| 25 | (fn SESSION PARAMS) | |
| 26 | (defalias 'org-babel-prep-session:ledger #[514 "\300\301!\207" [error "Ledger does not support sessions"] 4 (#$ . 1659)]) | |
| 27 | (provide 'ob-ledger) | |
