Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
ob-C.elc	13.79 KB	-rw-r--r--
ob-J.elc	5.38 KB	-rw-r--r--
ob-R.elc	15.77 KB	-rw-r--r--
ob-abc.elc	2.38 KB	-rw-r--r--
ob-asymptote.elc	3.67 KB	-rw-r--r--
ob-awk.elc	3.08 KB	-rw-r--r--
ob-calc.elc	2.34 KB	-rw-r--r--
ob-clojure.elc	7.16 KB	-rw-r--r--
ob-comint.elc	5.14 KB	-rw-r--r--
ob-coq.elc	2.24 KB	-rw-r--r--
ob-core.elc	99.63 KB	-rw-r--r--
ob-css.elc	888 B	-rw-r--r--
ob-ditaa.elc	3.02 KB	-rw-r--r--
ob-dot.elc	2.07 KB	-rw-r--r--
ob-ebnf.elc	1.42 KB	-rw-r--r--
ob-emacs-lisp.elc	3.22 KB	-rw-r--r--
ob-eshell.elc	3.05 KB	-rw-r--r--
ob-eval.elc	3.27 KB	-rw-r--r--
ob-exp.elc	10.81 KB	-rw-r--r--
ob-forth.elc	1.98 KB	-rw-r--r--
ob-fortran.elc	5.24 KB	-rw-r--r--
ob-gnuplot.elc	8.39 KB	-rw-r--r--
ob-groovy.elc	3.68 KB	-rw-r--r--
ob-haskell.elc	8.02 KB	-rw-r--r--
ob-hledger.elc	1.8 KB	-rw-r--r--
ob-io.elc	3.2 KB	-rw-r--r--
ob-java.elc	2.66 KB	-rw-r--r--
ob-js.elc	6.66 KB	-rw-r--r--
ob-latex.elc	6.12 KB	-rw-r--r--
ob-ledger.elc	1.71 KB	-rw-r--r--
ob-lilypond.elc	14 KB	-rw-r--r--
ob-lisp.elc	3.62 KB	-rw-r--r--
ob-lob.elc	4.97 KB	-rw-r--r--
ob-lua.elc	12.95 KB	-rw-r--r--
ob-makefile.elc	920 B	-rw-r--r--
ob-matlab.elc	500 B	-rw-r--r--
ob-maxima.elc	3.73 KB	-rw-r--r--
ob-mscgen.elc	1.32 KB	-rw-r--r--
ob-ocaml.elc	5.59 KB	-rw-r--r--
ob-octave.elc	9.69 KB	-rw-r--r--
ob-org.elc	1.67 KB	-rw-r--r--
ob-perl.elc	4.54 KB	-rw-r--r--
ob-picolisp.elc	4.53 KB	-rw-r--r--
ob-plantuml.elc	3.87 KB	-rw-r--r--
ob-processing.elc	4.58 KB	-rw-r--r--
ob-python.elc	13.04 KB	-rw-r--r--
ob-ref.elc	5.89 KB	-rw-r--r--
ob-ruby.elc	9.6 KB	-rw-r--r--
ob-sass.elc	1.5 KB	-rw-r--r--
ob-scheme.elc	6.45 KB	-rw-r--r--
ob-screen.elc	4.21 KB	-rw-r--r--
ob-sed.elc	2.7 KB	-rw-r--r--
ob-shell.elc	10.78 KB	-rw-r--r--
ob-shen.elc	1.95 KB	-rw-r--r--
ob-sql.elc	9.82 KB	-rw-r--r--
ob-sqlite.elc	4.46 KB	-rw-r--r--
ob-stan.elc	2.25 KB	-rw-r--r--
ob-table.elc	3.34 KB	-rw-r--r--
ob-tangle.elc	17.72 KB	-rw-r--r--
ob-vala.elc	3.04 KB	-rw-r--r--
ob.elc	692 B	-rw-r--r--
ol-bbdb.elc	12.23 KB	-rw-r--r--
ol-bibtex.elc	25.55 KB	-rw-r--r--
ol-docview.elc	2.05 KB	-rw-r--r--
ol-eshell.elc	1.51 KB	-rw-r--r--
ol-eww.elc	3.12 KB	-rw-r--r--
ol-gnus.elc	8.1 KB	-rw-r--r--
ol-info.elc	4.25 KB	-rw-r--r--
ol-irc.elc	5.87 KB	-rw-r--r--
ol-mhe.elc	5.32 KB	-rw-r--r--
ol-rmail.elc	2.61 KB	-rw-r--r--
ol-w3m.elc	3.82 KB	-rw-r--r--
ol.elc	55.84 KB	-rw-r--r--
org-agenda.elc	372.33 KB	-rw-r--r--
org-archive.elc	17.32 KB	-rw-r--r--
org-attach-git.elc	3.66 KB	-rw-r--r--
org-attach.elc	26.55 KB	-rw-r--r--
org-capture.elc	59.36 KB	-rw-r--r--
org-clock.elc	90.95 KB	-rw-r--r--
org-colview.elc	54.76 KB	-rw-r--r--
org-compat.elc	40.97 KB	-rw-r--r--
org-crypt.elc	6.43 KB	-rw-r--r--
org-ctags.elc	11.83 KB	-rw-r--r--
org-datetree.elc	7.31 KB	-rw-r--r--
org-duration.elc	11.6 KB	-rw-r--r--
org-element.elc	170.82 KB	-rw-r--r--
org-entities.elc	26.73 KB	-rw-r--r--
org-faces.elc	23.64 KB	-rw-r--r--
org-feed.elc	19.26 KB	-rw-r--r--
org-footnote.elc	28.36 KB	-rw-r--r--
org-goto.elc	9.24 KB	-rw-r--r--
org-habit.elc	13.51 KB	-rw-r--r--
org-id.elc	21.1 KB	-rw-r--r--
org-indent.elc	14.93 KB	-rw-r--r--
org-inlinetask.elc	8.61 KB	-rw-r--r--
org-install.el	452 B	-rw-r--r--
org-keys.elc	26.5 KB	-rw-r--r--
org-lint.elc	51.54 KB	-rw-r--r--
org-list.elc	88.99 KB	-rw-r--r--
org-loaddefs.el	89.89 KB	-rw-r--r--
org-macro.elc	11.38 KB	-rw-r--r--
org-macs.elc	38.95 KB	-rw-r--r--
org-mobile.elc	36.19 KB	-rw-r--r--
org-mouse.elc	31.71 KB	-rw-r--r--
org-num.elc	12.9 KB	-rw-r--r--
org-pcomplete.elc	12.56 KB	-rw-r--r--
org-plot.elc	9.87 KB	-rw-r--r--
org-protocol.elc	20.19 KB	-rw-r--r--
org-src.elc	38.07 KB	-rw-r--r--
org-table.elc	199.12 KB	-rw-r--r--
org-tempo.elc	4.92 KB	-rw-r--r--
org-timer.elc	14.02 KB	-rw-r--r--
org-version.el	587 B	-rw-r--r--
org.elc	700.45 KB	-rw-r--r--
ox-ascii.elc	66.43 KB	-rw-r--r--
ox-beamer.elc	34.81 KB	-rw-r--r--
ox-html.elc	129.5 KB	-rw-r--r--
ox-icalendar.elc	37.05 KB	-rw-r--r--
ox-latex.elc	116.71 KB	-rw-r--r--
ox-man.elc	31.11 KB	-rw-r--r--
ox-md.elc	23.26 KB	-rw-r--r--
ox-odt.elc	131.63 KB	-rw-r--r--
ox-org.elc	12.35 KB	-rw-r--r--
ox-publish.elc	49.05 KB	-rw-r--r--
ox-texinfo.elc	56.87 KB	-rw-r--r--
ox.elc	238.18 KB	-rw-r--r--

Code Editor : org-macro.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.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)
#@223 Set template for the macro NAME.
VALUE is the template of the macro.  The new value override the
previous one, unless VALUE is nil.  TEMPLATES is the list of
templates.  Return the updated list.

(fn NAME VALUE TEMPLATES)
(defalias 'org-macro--set-template #[771 "\203�\300\"\211\203�\211\241\210\202�BB\262\210\207" [assoc] 6 (#$ . 897)])
#@325 Collect macro definitions in current buffer and setup files.
Return an alist containing all macro templates found.

FILES is a list of setup files names read so far, used to avoid
circular dependencies.  TEMPLATES is the alist collected so far.
The two arguments are used in recursive calls.

(fn &optional FILES TEMPLATES)
(defalias 'org-macro--collect-macros #[512 "\302\303\212\304!\203�\305!q\210\212\214~\210\211\206�`b\210\306\307\310\302#\203\245�\311 \312!\313=\203\241�\314\315\"\314\316\"\317\232\203V�\320\321\"\203\240�\322\303\"\323\324\225\"\325#\262\266\202\240�\326!\327!\211\203d�\202g�\330!\211\235\204\236�\331\332!r\211q\210\333\324\334\335\336!\337\"\340$\216\204\211�\341!\342 \210\343\344\"c\210\345\nB	\"\262*\210\266\210\210\202�+\210\346\347\350!B\351\347\352!B\353\347\354\302\"B\355\356 BF\211\211\203\332�\211@\211@A\211\325\n#\262\266A\266\202\202\275�\266)\207" [case-fold-search default-directory t 1 markerp marker-buffer re-search-forward "^[ 	]*#\\+\$MACRO\\|SETUPFILE\$:" nil org-element-at-point org-element-type keyword org-element-property :value :key "MACRO" string-match "^\$\\S-+\$[ 	]*" match-string substring 0 org-macro--set-template org-strip-quotes org-file-url-p expand-file-name generate-new-buffer " *temp*" make-byte-code "\301\300!\205	�\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 file-name-directory org-mode org-file-contents noerror org-macro--collect-macros "author" org-macro--find-keyword-value "AUTHOR" "email" "EMAIL" "title" "TITLE" "date" org-macro--find-date] 15 (#$ . 1255)])
#@340 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: "n", "author", "email", "keyword",
"time", "property", and, if the buffer is associated to
a file, "input-file" and "modification-time".
(defalias 'org-macro-initialize-templates #[0 "\301\302!\210\303 \210\304 \305\306 !\211\2050�\307!\2050�\310\311!B\312\313\314\315!\315\316!\3178\262!#BD\262\244\320\321\322\323F\244\211\207" [org-macro-templates require org-element org-macro--counter-initialize org-macro--collect-macros buffer-file-name buffer-base-buffer file-exists-p "input-file" file-name-nondirectory "modification-time" format "(eval\n(format-time-string $1\n                     (or (and (org-string-nw-p $2)\n                              (org-macro--vc-modified-time %s))\n                     '%s)))" prin1-to-string file-attributes 5 ("n" . "(eval (org-macro--counter-increment $1 $2))") ("keyword" . "(eval (org-macro--find-keyword-value $1))") ("time" . "(eval (format-time-string $1))") ("property" . "(eval (org-macro--get-property $1 $2))")] 11 (#$ . 2863)])
#@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 "\301\302\303\"\304#A\211\205O�\305\306\304\307#)\266\203\310\311\312\313\314\315\316\n\"\317\"\320\321%\306\322%\203E�\323\3241?�\325!0\202B�\210\326 !\262\327\330\206L�\331\"\266\202\207" [inhibit-changing-match-data assoc-string org-element-property :key t "\\`(eval\\>" nil string-match replace-regexp-in-string "\\$[0-9]+" make-byte-code 257 "\302\303\304\"!S\305\306\300\"8\206�\307\301\203�\310\311\"\202�\211\207" vconcat vector [string-to-number substring 1 org-element-property :args #1="" format "%S"] 5 "\n\n(fn M)" literal eval (error) read debug format "%s" #1#] 13 (#$ . 4063)])
#@414 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.

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

Return an error if a macro in the buffer cannot be associated to
a definition in TEMPLATES.

(fn TEMPLATES &optional KEYWORDS)
(defalias 'org-macro-replace-all #[513 "\212\214~\210eb\210\301\302\303!\"\304\305\306\304\307#\205\333�\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\326�\326\327\"\333	\"\326\334\"\211\326\335\"E\211\235\203\244�\336\337\"\210\202\324�\203\305�\211B\262\326\340\"b\210\341\304x\210`|\210\212c\210)\202\324�\342\232\204\324�\336\343\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 " 	" "results" "Undefined Org macro: %s; aborting"] 16 (#$ . 5002)])
#@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\315\"\262\207" ["" reverse "," replace-regexp-in-string "\$\\\\*\$," #[257 "\300\301\302\303\"G_T\304\"\305P\207" [make-string 2 match-string 1 92 ","] 6 "\n\n(fn M)"] string-match "\\\\+\\'" match-string 0 nil t substring 1] 12 (#$ . 6574)])
#@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 (#$ . 7219)])
#@167 Find PROPERTY's value at LOCATION.
PROPERTY is a string.  LOCATION is a search string, as expected
by `org-link-search', or the empty string.

(fn PROPERTY LOCATION)
(defalias 'org-macro--get-property #[514 "\212\301!\203�\3021�\303\304\305\303#)0\202�\306\307\"\262\210\310\305\311#)\207" [org-link-search-must-match-exact-headline org-string-nw-p (error) t org-link-search nil error "Macro property failed: cannot find location %s" org-entry-get selective] 6 (#$ . 7746)])
#@281 Find value for keyword NAME in current buffer.
Return value associated to the keywords named after NAME, as
a string, or nil.  When optional argument COLLECT is non-nil,
concatenate values, separated with a space, from various keywords
in the buffer.

(fn NAME &optional COLLECT)
(defalias 'org-macro--find-keyword-value #[513 "\301\212\302!\203
�\303!q\210\212\214~\210\211\206�`b\210\304\305\306!\"\307\310\3112o�\312\310\307#\203T�\313 \314!\315=\203P�\316\317\"\204I�\320\311\"\210\202O�\321Q\262\210\210\202&�\211\205n�\211\310\322\203c�\323\202d�\324\325\322\326\325##\266\2020)\266\203+\207" [case-fold-search 1 markerp marker-buffer format "^[ 	]*#\\+%s:" regexp-quote t nil :exit re-search-forward org-element-at-point org-element-type keyword org-element-property :value throw " " replace-regexp-in-string "\\`\$[ 	]*\n\$+" "\\`[ 	\n
]+" "" "[ 	\n
]+\\'"] 15 (#$ . 8237)])
#@66 Find value for DATE in current buffer.
Return value as a string.
(defalias 'org-macro--find-date #[0 "\300\301!\302\303\304!\"\211:\203*�\211A\204*�\305@!\306=\203*�\307\310\307\311\312@!\"#\202+�\207" [org-macro--find-keyword-value "DATE" org-element-parse-secondary-string org-element-restriction keyword org-element-type timestamp format "(eval (if (org-string-nw-p $1) %s %S))" "(org-timestamp-format '%S $1)" org-element-copy] 8 (#$ . 9146)])
#@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 (#$ . 9605)])
#@47 Hash table containing counter value per name.
(defvar org-macro--counter-table nil (#$ . 10430))
#@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 (#$ . 10533)])
#@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\203�\304\202\f�\305\306\303\307\306##\266\202\310!\2052�\302\303\203'�\304\202(�\305\306\303\307\306##\266\202\311\310!\204C�\312\313#T\202h�\314\230\203Q�\312\315#\202h�\316\302\317\320#)\266\203\203g�\321!\202h�\315#\207" [org-macro--counter-table inhibit-changing-match-data nil replace-regexp-in-string "\\`\$[ 	]*\n\$+" "\\`[ 	\n
]+" "" "[ 	\n
]+\\'" org-string-nw-p puthash gethash 0 "-" 1 "\\`[0-9]+\\'" t string-match string-to-number] 13 (#$ . 10722)])
(provide 'org-macro)

${this.title}

Code Editor : org-macro.elc