HOME

Mini Shell 1.0
DIR:/proc/self/root/usr/share/emacs/26.1/lisp/org/
Current File : //proc/self/root/usr/share/emacs/26.1/lisp/org/org-macro.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\210\300\303!\207" [require cl-lib org-macs org-compat] 2)
#@295 Alist containing all macro templates in current buffer.
Associations are in the shape of (NAME . TEMPLATE) where NAME
stands for macro's name and template for its replacement value,
both as strings.  This is an internal variable.  Do not set it
directly, use instead:

  #+MACRO: name template
(defvar org-macro-templates nil (#$ . 502))
(make-variable-buffer-local 'org-macro-templates)
#@116 Collect macro definitions in current buffer and setup files.
Return an alist containing all macro templates found.
(defalias 'org-macro--collect-macros #[0 "\300C\211\301\302\303\304\305!\306\"\307\310%\240\210\211\242\300\211\"\207" [nil make-byte-code 514 "\303\212\214~\210eb\210\304\305\306\303#\203\254\307 \310!\311=\203\250\312\313\"\312\314\"\315\232\203X\316\317\"\203\247\320\321\"\320\322\"\206;\323\324\"\211\203K\211\241\210\202SBB\262\266\202\247\325\326\211\327!#\330!\211\203j\202m\331!\211\235\204\245\332\333!r\211q\210\334\335\336\337\340!\341\"\322$\216\204\217\342!\343 \210\344\345\"c\210\300\242	B\"\262*\210\266\210\210\202	+\207" vconcat vector [case-fold-search default-directory t re-search-forward "^[ 	]*#\\+\\(MACRO\\|SETUPFILE\\):" nil org-element-at-point org-element-type keyword org-element-property :value :key "MACRO" string-match "^\\(.*?\\)\\(?:\\s-+\\(.*\\)\\)?\\s-*$" match-string 1 2 "" assoc org-unbracket-string "\"" org-trim org-file-url-p expand-file-name generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] file-name-directory org-mode org-file-contents noerror] 14 "\n\n(fn FILES TEMPLATES)"] 8 (#$ . 897)])
#@304 Collect macro templates defined in current buffer.
Templates are stored in buffer-local variable
`org-macro-templates'.  In addition to buffer-defined macros, the
function installs the following ones: "property",
"time". and, if the buffer is associated to a file,
"input-file" and "modification-time".
(defalias 'org-macro-initialize-templates #[0 "\301C\302\303\304\305\306!\307\"\310\311%\312\313\314B\315\316BD\"\210\317\320 !\211\203B\321!\203B\312\322\323!B\324\325\326\327!\327\310\330\n!8!#BD\"\210\210\331 \210\211\332\333B!\210\334 \242\244\211\207" [org-macro-templates nil make-byte-code 257 "\301@\300\242\"\211\203\211A\241\202\300\300\242B\240\207" vconcat vector [assoc] 5 "\n\n(fn CELL)" mapc "property" "(eval (save-excursion\n        (let ((l \"$2\"))\n          (when (org-string-nw-p l)\n            (condition-case _\n                (let ((org-link-search-must-match-exact-headline t))\n                  (org-link-search l nil t))\n              (error\n               (error \"Macro property failed: cannot find location %s\"\n                      l)))))\n        (org-entry-get nil \"$1\" 'selective)))" "time" "(eval (format-time-string \"$1\"))" buffer-file-name buffer-base-buffer file-exists-p "input-file" file-name-nondirectory "modification-time" format "(eval (format-time-string \"$1\" (or (and (org-string-nw-p \"$2\") (org-macro--vc-modified-time %s)) '%s)))" prin1-to-string file-attributes org-macro--counter-initialize "n" "(eval (org-macro--counter-increment \"$1\" \"$2\"))" org-macro--collect-macros] 14 (#$ . 2175)])
#@285 Return expanded MACRO, as a string.
MACRO is an object, obtained, for example, with
`org-element-context'.  TEMPLATES is an alist of templates used
for expansion.  See `org-macro-templates' for a buffer-local
default value.  Return nil if no template was found.

(fn MACRO TEMPLATES)
(defalias 'org-macro-expand #[514 "\300\301\302\"\303#A\211\2058\304\305\306\307\310\311\312	!\313\"\314\315%\316\317%\320\321\"\203.\322\323!!\262\324\325\2065\326\"\262\207" [assoc-string org-element-property :key t replace-regexp-in-string "\\$[0-9]+" make-byte-code 257 "\301\302\303O!S\304\305\300\"8\206\306\207" vconcat vector [string-to-number 1 nil org-element-property :args #1=""] 5 "\n\n(fn ARG)" nil literal string-match "\\`(eval\\>" eval read format "%s" #1#] 11 (#$ . 3763)])
#@450 Replace all macros in current buffer by their expansion.

TEMPLATES is an alist of templates used for expansion.  See
`org-macro-templates' for a buffer-local default value.

If optional arg FINALIZE is non-nil, raise an error if a macro is
found in the buffer with no definition in TEMPLATES.

Optional argument KEYWORDS, when non-nil is a list of keywords,
as strings, where macro expansion is allowed.

(fn TEMPLATES &optional FINALIZE KEYWORDS)
(defalias 'org-macro-replace-all #[769 "\212\214~\210eb\210\301\302\303!\"\304\305\306\304\307#\205\332\310 \311\312\313\314\315!\316\"\317$\216\320 )\262\204\310 \311\312\313\314\315!\321\"\317$\216\322 )\262\323!\211\324=\203L\202|\211\325=\203[\326\327\"\235\204t\211\330=\205|\326\327\"\304\307\331#)\266\203\205|\212\312\224b\210\332 )\211\203\325\333	\"\326\334\"\211\326\335\"E\211\235\203\244\336\337\326\327\"\"\210\202\323\203\305\211B\262\326\340\"b\210\341\304x\210`|\210\212c\210)\202\323	\203\323\336\342\326\327\"\"\210\266\266\202\266\202*\207" [inhibit-changing-match-data format "\\`EXPORT_%s\\+?\\'" regexp-opt nil re-search-forward "{{{[-A-Za-z0-9_]" t match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 org-in-commented-heading-p [set-match-data evaporate] org-element-context org-element-type macro keyword org-element-property :key node-property string-match org-element-macro-parser org-macro-expand :begin :args error "Circular macro expansion: %s" :end " 	" "Undefined Org macro: %s; aborting"] 16 (#$ . 4561)])
#@219 Build macro's arguments string from ARGS.
ARGS are strings.  Return value is a string with arguments
properly escaped and separated with commas.  This is the opposite
of `org-macro-extract-arguments'.

(fn &rest ARGS)
(defalias 'org-macro-escape-arguments #[128 "\300\301!\211\2033\211@\302\303\304\305\300\232?\205$\306\307\"\205$\310\311\"P\312\313%Q\262A\266\202\202\314\312O\262\207" ["" reverse "," replace-regexp-in-string "\\(\\\\*\\)," #[257 "\300\301\302\"G\303_T\304\"\305P\207" [make-string match-string 1 2 92 ","] 5 "\n\n(fn M)"] string-match "\\\\+\\'" match-string 0 nil t 1] 12 (#$ . 6152)])
#@209 Extract macro arguments from string S.
S is a string containing comma separated values properly escaped.
Return a list of arguments, as strings.  This is the opposite of
`org-macro-escape-arguments'.

(fn S)
(defalias 'org-macro-extract-arguments #[257 "\300\301\302\303\304\305%\306\"\207" [split-string replace-regexp-in-string "\\(\\\\*\\)," #[257 "\300\301\"G\302\303\245\304\"\305\303\"\306U\203\307\202\310P\207" [match-string 1 make-string 2 92 mod 0 "" ","] 6 "\n\n(fn STR)"] nil t ""] 8 (#$ . 6786)])
#@13 

(fn FILE)
(defalias 'org-macro--vc-modified-time #[257 "\301 \302\303\304\305\306!\307\"\310$\216\311!\205d\312\313!\314\315C\302\303\304\305\306!\316\"\310$\216\317\311!\320\315\211\321&\210rq\210\322\302\303\323\305\306!\324\"\325$!\210)\326!\211\203]\327\330\315\314$\204P\210)\211\242)\266\203)\207" [case-fold-search current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 vc-backend get-buffer-create " *org-vc*" t nil [kill-buffer] vc-call-backend print-log 1 vc-exec-after "eb\210\301\302\303\304#\205 \305`\306 {!\307\310\"\205\300\311\312\"\240\262\207" [re-search-forward "Date:?[ 	]*" nil t parse-time-string line-end-position cl-some identity apply encode-time] 5 get-buffer-process accept-process-output 0.5] 13 (#$ . 7312)])
#@47 Hash table containing counter value per name.
(defvar org-macro--counter-table nil (#$ . 8137))
#@40 Initialize `org-macro--counter-table'.
(defalias 'org-macro--counter-initialize #[0 "\301\302\303\"\211\207" [org-macro--counter-table make-hash-table :test equal] 3 (#$ . 8239)])
#@361 Increment counter NAME.
NAME is a string identifying the counter.

When non-nil, optional argument ACTION is a string.

If the string is "-", keep the NAME counter at its current
value, i.e. do not increment.

If the string represents an integer, set the counter to this number.

Any other non-empty string resets the counter to 1.

(fn NAME &optional ACTION)
(defalias 'org-macro--counter-increment #[513 "\302!\303!\205\f\302!\304\303!\204\305\306#T\202B\307\230\203+\305\310#\202B\311\312\313\314#)\266\203\203A\315!\202B\310#\207" [org-macro--counter-table inhibit-changing-match-data org-trim org-string-nw-p puthash gethash 0 "-" 1 "\\`[0-9]+\\'" nil t string-match string-to-number] 13 (#$ . 8427)])
(provide 'org-macro)