ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/ob-ledger.elc |
;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)
#@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*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] write-region nil 0 "%s" "ledger" " -f " org-babel-process-file-name " " " *string-output*" #[nil "\301!\207" [standard-output kill-buffer] 2] shell-command " > " generate-new-buffer " *temp*" #[nil "\301!\205 \302!\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)
Kontol Shell Bypass