ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/org-macro.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 'org-macs)
#@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 (#$ . 431))
(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 #[nil "\301\302\211\301\211\"*\207" [collect-macros nil #[(files templates) "\306\212\214~\210eb\210\307\310\311\306#\203\220 \312 \313 !\314=\203\214 \315\316 \"\315\317 \"\320\232\203[ \321\322\n\"\203\213 \323\324\n\"\323\325\n\"\206> \326 \327
\"\211 \203Q \f\241\210\202W \fB
B+\202\213 \330\331\n!!\211 !\"\235\204\212 \332\333! #r#q\210\334\216\335 \210\336!\337\"c\210$!\"B
\"+)))\202 *
)\207" [case-fold-search element val name template templates 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 expand-file-name org-remove-double-quotes generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] org-mode org-file-contents noerror old-cell file files #1# collect-macros] 5]] 4 (#$ . 826)])
#@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 #[nil "\304 \305\306\307\310\311B\312\313BD\"\210\314\315 !\211\2035 \316\n!\2035 \306\317\320\321\n!B\322\323\324\325\326\327\n!8!\"BD\"\210)\211*\207" [templates update-templates visited-file org-macro-templates org-macro--collect-macros #[(cell) "\303@ \"\211\203 \nA\241\202 B\211)\207" [cell templates old-template assoc] 4] mapc #[(cell) " !\207" [update-templates cell] 2] "property" "(eval (org-entry-get nil \"$1\" 'selective))" "time" "(eval (format-time-string \"$1\"))" buffer-file-name buffer-base-buffer file-exists-p #[(cell) " !\207" [update-templates cell] 2] "input-file" file-name-nondirectory "modification-time" format "(eval (format-time-string \"$1\" '%s))" prin1-to-string 5 file-attributes] 11 (#$ . 1932)])
#@263 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.
(defalias 'org-macro-expand #[(macro templates) "\304\305\306\" \307#A\211\205, \310\311\312\n\313\314%\315\316 \"\203# \317\320 !!\321\322 \206* \323\"))\207" [macro templates template value assoc-string org-element-property :key t replace-regexp-in-string "\\$[0-9]+" #[(arg) "\302\303\304O!S\305\306 \"8\206 \307\207" [arg macro string-to-number 1 nil org-element-property :args #1=""] 4] nil literal string-match "\\`(eval\\>" eval read format "%s" #1#] 7 (#$ . 3032)])
#@174 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.
(defalias 'org-macro-replace-all #[(templates) "\212eb\210\306\307\310\306\311#\205\\ \312 \313 !\314=\203X \315 \n\"\316\317 \"\211 \316\320 \"E\211 \235\203< \321\322\316\323 \"\"\210\202W \203W
B\f\316\324 \"b\210\325\306x\210`|\210\212 c\210)+)\202 *\207" [record object templates value begin signature nil re-search-forward "{{{[-A-Za-z0-9_]" t org-element-context org-element-type macro org-macro-expand org-element-property :begin :args error "Circular macro expansion: %s" :key :end " "] 6 (#$ . 3781)])
(provide 'org-macro)
Kontol Shell Bypass