Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
27.1 /
lisp /
org /
[ HOME SHELL ]
Name
Size
Permission
Action
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--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : org-footnote.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) #@215 Regular expression for matching footnotes. Match group 1 contains footnote's label. It is nil for anonymous footnotes. Match group 2 is non-nil only when footnote is inline, i.e., it contains its own definition. (defconst org-footnote-re "\\[fn:\\(?:\\(?1:[-_[:word:]]+\\)?\\(:\\)\\|\\(?1:[-_[:word:]]+\\)\\]\\)" (#$ . 502)) #@102 Regular expression matching the definition of a footnote. Match group 1 contains definition's label. (defconst org-footnote-definition-re "^\\[fn:\\([-_[:word:]]+\\)\\]" (#$ . 836)) #@50 Names of blocks where footnotes are not allowed. (defconst org-footnote-forbidden-blocks '("comment" "example" "export" "src") (#$ . 1024)) (byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314DD\315\306\301\316\317\320\321\322\323\324\325& \210\310\326\312\313\327DD\330\306\301\322\331\324\332& \210\310\333\312\313\334DD\335\306\301\322\336\324\337& \210\310\340\312\313\341DD\342\306\301\322\343\324\337& \210\310\344\312\313\345DD\346\306\301\322\331\324\332& \207" [custom-declare-group org-footnote nil "Footnotes in Org mode." :tag "Org Footnote" :group org custom-declare-variable org-footnote-section funcall function #[0 "\300\207" [#1="Footnotes"] 1 #1#] "Outline heading containing footnote definitions.\n\nThis can be nil, to place footnotes locally at the end of the\ncurrent outline node. If can also be the name of a special\noutline heading under which footnotes should be put.\n\nThis variable defines the place where Org puts the definition\nautomatically, i.e. when creating the footnote, and when sorting\nthe notes. However, by hand you may place definitions\n*anywhere*.\n\nIf this is a string, during export, all subtrees starting with\nthis heading will be ignored.\n\nIf you don't use the customize interface to change this variable,\nyou will need to run the following command after the change:\n\n `\\[universal-argument] \\[org-element-cache-reset]'" :initialize custom-initialize-default :set #[514 "L\210\300\301!\205 \301\302!\207" [fboundp org-element-cache-reset all] 4 "\n\n(fn VAR VAL)"] :type (choice (string :tag "Collect footnotes under heading") (const :tag "Define footnotes locally" nil)) :safe string-or-null-p org-footnote-define-inline #[0 "\300\207" [nil] 1] "Non-nil means define footnotes inline, at reference location.\nWhen nil, footnotes will be defined in a special section near\nthe end of the document. When t, the [fn:label:definition] notation\nwill be used to define the footnote at the reference position." boolean booleanp org-footnote-auto-label #[0 "\300\207" [t] 1] "Non-nil means define automatically new labels for footnotes.\nPossible values are:\n\nnil Prompt the user for each label.\nt Create unique labels of the form [fn:1], [fn:2], etc.\nconfirm Like t, but let the user edit the created value.\n The label can be removed from the minibuffer to create\n an anonymous footnote.\nrandom Automatically generate a unique, random label." (choice (const :tag "Prompt for label" nil) (const :tag "Create automatic [fn:N]" t) (const :tag "Offer automatic [fn:N] for editing" confirm) (const :tag "Create a random label" random)) symbolp org-footnote-auto-adjust #[0 "\300\207" [nil] 1] "Non-nil means automatically adjust footnotes after insert/delete.\nWhen this is t, after each insertion or deletion of a footnote,\nsimple fn:N footnotes will be renumbered, and all footnotes will be sorted.\nIf you want to have just sorting or just renumbering, set this variable\nto `sort' or `renumber'.\n\nThe main values of this variable can be set with in-buffer options:\n\n#+STARTUP: fnadjust\n#+STARTUP: nofnadjust" (choice (const :tag "No adjustment" nil) (const :tag "Renumber" renumber) (const :tag "Sort" sort) (const :tag "Renumber and Sort" t)) org-footnote-fill-after-inline-note-extraction #[0 "\300\207" [nil] 1] "Non-nil means fill paragraphs after extracting footnotes.\nWhen extracting inline footnotes, the lengths of lines can change a lot.\nWhen this option is set, paragraphs from which an inline footnote has been\nextracted will be filled again."] 14) #@52 Is point in a context where footnotes are allowed? (defalias 'org-footnote-in-valid-context-p #[0 "\301 \302\303\304\305\306!\307\"\310$\216\311 \206+ \312 \206+ \313 \206+ \212\314 \210\315\316!)\206+ \317!)?\207" [org-footnote-forbidden-blocks match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 org-at-comment-p org-inside-LaTeX-fragment-p org-in-verbatim-emphasis beginning-of-line looking-at "[ ]*:[ ]+" org-in-block-p] 7 (#$ . 4626)]) #@154 Non-nil if point is at a footnote reference. If so, return a list containing its label, beginning and ending positions, and the definition, when inline. (defalias 'org-footnote-at-reference-p #[0 "\300 \301!\302=\205? \212\303\304\"b\210\305\306x\210`)`W\205= \303\307\"\303\310\"\303\311\"\312=\205< \313\303\314\"\303\315\"\"F\262\207" [org-element-context org-element-type footnote-reference org-element-property :end " " nil :label :begin :type inline buffer-substring-no-properties :contents-begin :contents-end] 10 (#$ . 5119)]) #@378 Non-nil if point is within a footnote definition. This matches only pure definitions like [fn:name] at the beginning of a line. It does not match references like [fn:name:definition], where the footnote text is included and defined locally. The return value is nil if not at a footnote definition, and a list with label, start, end and definition of the footnote otherwise. (defalias 'org-footnote-at-definition-p #[0 "\300\301 \302\303#\211\205U \211\304\305\"\304\306\"\212\304\307\"b\210\310\311x\210\312\313!)\304\314\"\304\315\"\2043 \316\202L \317\"\311\320\203A \321\202B \322\316\320\323\316##\266\202F\266\206\262\207" [org-element-lineage org-element-at-point (footnote-definition) t org-element-property :label :post-affiliated :end " \n" nil line-beginning-position 2 :contents-begin :contents-end "" buffer-substring-no-properties replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "[ \n ]+\\'"] 16 (#$ . 5675)]) #@61 Non-nil when a footnote reference can be inserted at point. (defalias 'org-footnote--allow-reference-p #[0 "n?\205\322 \303 \304!\305\306\"\211\205 `W\262\203 \307\202\320 \211\310>\206\320 \211\311\267\202y `\305\312\"Y\205\320 `\305\313\"W\202\320 \314 ?\206\320 \212\315 \210\316\317\316\320!)\262)?\205\\ \307\320\n!))\205\320 \321\224\205\320 `\321\224Y\205\320 \322\224?\206\320 `\322\224W\202\320 `\212\305\323\"b\210\324\307x\210\325!\326=\203\221 `\202\225 \327\330!T)Y\206\320 \325!\331=\203\246 \307\202\320 `\305\332\"U\206\320 \211\333=\203\271 \307\202\320 \305\312\"\305\313\"\205\316 `Y\205\316 `X\266\202\266\202\207" [case-fold-search inhibit-changing-match-data org-complex-heading-regexp org-element-context org-element-type org-element-property :post-affiliated nil (nil paragraph) #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (verse-block 42 headline 60 inlinetask 60)) :contents-begin :contents-end org-at-heading-p beginning-of-line t "\\*+ END[ ]*$" looking-at 4 5 :end " \n" org-element-class object line-beginning-position 2 element :begin link] 6 (#$ . 6638)]) #@148 Remove all footnote sections in buffer and create a new one. New section is created at the end of the buffer. Leave point within the new section. (defalias 'org-footnote--clear-footnote-section #[0 "\205R eb\210\302\303\304!\"\305\306\307#\203 \310\224\311\307\211\"|\210\202 \210db\210\312\306x\210o\2046 \306y\210l\2036 \313c\210`d|\210\314 \236A\203M \212\315 )\310U\203M \313c\210\316\313\261\207" [org-footnote-section org-blank-before-new-entry format "^\\*+ +%s[ ]*$" regexp-quote re-search-forward nil t 0 org-end-of-subtree " \n" "\n" heading org-back-over-empty-lines "* "] 5 (#$ . 7799)]) #@136 Set label of footnote at point to string LABEL. Assume point is at the beginning of the reference or definition to rename. (fn LABEL) (defalias 'org-footnote--set-label #[257 "\300u\210\301f\302=\203 \211c\207\303\304!\203 \305\301\211\211\306%\207\301\207" [4 nil 58 looking-at "\\([-_[:word:]]+\\)" replace-match 1] 7 (#$ . 8417)]) #@637 Collect all labeled footnote references in current buffer. Return an alist where associations follow the pattern (LABEL MARKER TOP-LEVEL SIZE) with LABEL the label of the of the definition, MARKER a marker pointing to its beginning, TOP-LEVEL a boolean, nil when the footnote is contained within another one, SIZE the length of the inline definition, in characters, or nil for non-inline references. When optional ANONYMOUS is non-nil, also collect anonymous references. In such cases, LABEL is nil. References are sorted according to a deep-reading order. (fn &optional ANONYMOUS) (defalias 'org-footnote--collect-references #[256 "\212\214~\210eb\210\211\203 \202 \301\302C\302C\212\303\302\304#\203\233 `Sf\305=\203- \306 \307\224U\204 \310u\210\311 \312!\313=\203\227 \314\315\"\314\316\"\314\317\"\320=\205T \314\321\"\314\322\"Z\323\324\"\325!?F\242B\240\210\211\203\225 \314\315\"\326\242\"\211\203\207 \211\211AB\241\266\202\223 D \242B\240\210\266\266\210\202 )\302C\302C\302\240\210\211\327\330\331\332\333 $\334\"\335\336%\240\210\337\242!\211\203\321 \211@\242\302\"\210A\266\202\202\276 \242\237\262\266\202\266\203*\207" [org-footnote-re "\\[fn:[-_[:word:]]+[]:]" nil re-search-forward t 93 line-beginning-position 0 -1 org-element-context org-element-type footnote-reference org-element-property :label :begin :type inline :contents-end :contents-begin org-element-lineage (footnote-definition) copy-marker assoc make-byte-code 514 "\211\204\n \3048\205= \302\302\242B\240\210\305\306\307\310\311\312\300!\313\"\314\315%\316\317@\301\242\"A!\"\211\205; \211@\303\242\320\"\210A\266\202\202( \262\207" vconcat vector [2 mapcar make-byte-code 257 "\301\300\242\"\207" vconcat vector [assoc] 4 "\n\n(fn L)" reverse assoc t] 9 "\n\n(fn REF ALLOW-NESTED)" reverse] 16 (#$ . 8762)]) #@349 Collect all footnote definitions in current buffer. Return an alist where associations follow the pattern (LABEL . DEFINITION) with LABEL and DEFINITION being, respectively, the label and the definition of the footnote, as strings. When optional argument DELETE is non-nil, delete the definition while collecting them. (fn &optional DELETE) (defalias 'org-footnote--collect-definitions #[256 "\212\214~\210eb\210\301\211\302\301\303#\203\200 \304u\210\305 \306\307\"\310!\311=\203{ \211\235\204{ \211B\262\306\312\"b\210\313\301x\210o\203? `\202B \314\315!\306\316\"b\210\313\301x\210\314\315!\317\"\301\320\203] \321\202^ \322\323\320\324\323##\266\202BB\262\203y |\210\266\266\202 \266\202*\207" [org-footnote-definition-re nil re-search-forward t -1 org-element-at-point org-element-property :label org-element-type footnote-definition :begin " \n" line-beginning-position 2 :end buffer-substring-no-properties replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'"] 16 (#$ . 10673)]) #@144 Find insertion point for footnote, just before next outline heading. Assume insertion point is within currently accessible part of the buffer. (defalias 'org-footnote--goto-local-insertion-point #[0 "\304\305 \211\306 P\307 \210,\310\311x\210o\204 \311y\210n?\205! \312c\207" [org-called-with-limited-levels org-outline-regexp outline-regexp org-outline-regexp-bol t org-get-limited-outline-regexp "^" outline-next-heading " \n" nil "\n"] 3 (#$ . 11724)]) #@374 Return complete reference of the next footnote. If LABEL is provided, get the next reference of that footnote. If BACKWARD is non-nil, find previous reference instead. LIMIT is the buffer position bounding the search. Return value is a list like those provided by `org-footnote-at-reference-p'. If no footnote is found, return nil. (fn &optional LABEL BACKWARD LIMIT) (defalias 'org-footnote-get-next-reference #[768 "\203 \301\302\"\202\f \3032; \212\203 \304\202 \305\306#\2059 \204( \307u\210\310 \211\2035 \211\311\303\"\266\210\202 )0\207" [org-footnote-re format "\\[fn:%s[]:]" :exit re-search-backward re-search-forward t -1 org-footnote-at-reference-p throw] 9 (#$ . 12193)]) #@325 Move point to next footnote reference or definition. LIMIT is the buffer position bounding the search. Return value is a list like those provided by `org-footnote-at-reference-p' or `org-footnote-at-definition-p'. If no footnote is found, return nil. This function is meant to be used for fontification only. (fn LIMIT) (defalias 'org-footnote-next-reference-or-definition #[257 "`\3042\343 \305\306#\204 \211b\210\307\304\310\"\210\311u\210\312\224\313 U\204\221 \312\224\314\315!\31611 \317\315\"0\2023 \210\310\211\205\214 \212b\210\320 \321\312\322\323\324!\325\"\326$\216\327 !)\262\211\205W `AW\262)?\205\214 \330 ?\205\214 \307\304\331\225\205\212 \332\312\225S\"\310\333\203 \334\202\200 \335\336\333\337\336##\266\202F\"\266\203\204 \212\340 \210\320 \321\312\322\323\324!\341\"\326$\216\342 )\262)\203 \212\310\210\312\225\212\343\n\344P\310\306#)\343 \306#\203\335 \307\304\310\312\224\206\315 `Sf\345=\203\330 \202\332 TE\"\210\266)\202 \207" [org-footnote-re org-link-bracket-re org-outline-regexp-bol org-footnote-definition-re exit re-search-forward t throw nil -1 0 line-beginning-position match-string-no-properties 1 (error) scan-sexps match-data make-byte-code "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 org-in-regexp org-inside-latex-macro-p 2 buffer-substring-no-properties replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'" beginning-of-line [set-match-data evaporate] org-footnote-in-valid-context-p re-search-backward "\\|^\\([ ]*\n\\)\\{2,\\}" 93] 19 (#$ . 12902)]) #@321 Move point to the definition of the footnote LABEL. LOCATION, when non-nil specifies the buffer position of the definition. Throw an error if there is no definition or if it cannot be reached from current narrowed part of buffer. Return a non-nil value if point was successfully moved. (fn LABEL &optional LOCATION) (defalias 'org-footnote-goto-definition #[513 "\300!\206\f \301!A@\211\204 \302\303\"\210\202( \211dV\204$ \211eW\203( \302\304!\210\305 \210\211b\210\306\307\310\311!\"!\210\312\225b\210\313\314!\210\315\316!\203L \317\320\321\322!\"\210\323\207" [org-footnote-normalize-label org-footnote-get-definition user-error "Cannot find definition of footnote %s" "Definition is outside narrowed part of buffer" org-mark-ring-push looking-at format "\\[fn:%s[]:]" regexp-quote 0 org-show-context link-search derived-mode-p org-mode message "%s" substitute-command-keys "Edit definition and go back with `\\[org-mark-ring-goto]' or, if unique, with `\\[org-ctrl-c-ctrl-c]'." t] 9 (#$ . 14481) "sLabel: "]) #@87 Find the first closest (to point) reference of footnote with label LABEL. (fn LABEL) (defalias 'org-footnote-goto-previous-reference #[257 "\300!\212\301\302\"\206* \301!\206* deZ\303 U?\205* \212\214~\210\301\302\"\206) \301!*)\211A@\204: \304\305\"\210\202J \211dV\204F \211eW\203J \304\306!\210\307 \210\211b\210\310\311!\207" [org-footnote-normalize-label org-footnote-get-next-reference t buffer-size user-error "Cannot find reference of footnote %S" "Reference is outside narrowed part of buffer" org-mark-ring-push org-show-context link-search] 7 (#$ . 15511) "sLabel: "]) #@134 Return LABEL without "fn:" prefix. If LABEL is the empty string or constituted of white spaces only, return nil instead. (fn LABEL) (defalias 'org-footnote-normalize-label #[257 "\211\300\301\203 \302\202\f \303\304\301\305\304##\266\202\211\304\232\203 \300\202/ \306\307\"\203. \310\311\"\202/ \207" [nil replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'" string-prefix-p "fn:" substring 3] 10 (#$ . 16106)]) #@76 Return label, boundaries and definition of the footnote LABEL. (fn LABEL) (defalias 'org-footnote-get-definition #[257 "\300\301!!\302\303\211#\212\214~\210eb\210\3042] \305\306\307#\203[ \310u\210\311 \312!\211\313>\203V \314\304\315\316\"\315\317\"\315\320\"\211\204E \321\202Q \322\323\321\324\315\325\"\"#\262F\"\210\266\202 \3060*\207" [regexp-quote org-footnote-normalize-label format "^\\[fn:%s\\]\\|.\\[fn:%s:" found re-search-forward nil t -1 org-element-context org-element-type (footnote-definition footnote-reference) throw org-element-property :begin :end :contents-begin "" replace-regexp-in-string "[ \n]*\\'" buffer-substring-no-properties :contents-end] 19 (#$ . 16557)]) #@103 List all defined footnote labels used throughout the buffer. This function ignores narrowing, if any. (defalias 'org-footnote-all-labels #[0 "\212\214~\210eb\210\301\302\301\303#\2039 \304u\210\305 \306!\307>\2035 \310\311\"\211\2034 \211\235\203/ \2022 \211B\262\210\210\202 \211\262*\207" [org-footnote-re nil re-search-forward t -1 org-element-context org-element-type (footnote-definition footnote-reference) org-element-property :label] 5 (#$ . 17272)]) #@196 Return a new unique footnote label. The function returns the first numeric label currently unused. Optional argument CURRENT is the list of labels active in the buffer. (fn &optional CURRENT) (defalias 'org-footnote-unique-label #[256 "\211\206 \300 \301\302!\235\203 \211T\262\202 \302!\262\207" [org-footnote-all-labels 1 number-to-string] 5 (#$ . 17747)]) #@222 Insert a new footnote. This command prompts for a label. If this is a label referencing an existing label, only insert the label. If the footnote label is empty or new, let the user edit the definition of the footnote. (defalias 'org-footnote-new #[0 "\302 \204 \303\304!\210\305 \306=\203 \307\310\311\306 !\"\202= \312\313!\314=\203) \211\202: \315\316\317\320\"\321\211\322=\2059 %\262!\211\204I \323c\210\324u\202\225 \211\235\203[ \325\326\261\210\327\330!\202\225 \203m \325\331\261\210\324u\210\332 \202\225 \325\326\261\210\333!\3341\202 \335\"0\202\206 \210\202\216 \203\216 \332 \202\223 \332 \210\336 \262\207" [org-footnote-auto-label org-footnote-define-inline org-footnote--allow-reference-p user-error "Cannot insert a footnote here" org-footnote-all-labels random format "%x" abs org-footnote-normalize-label org-footnote-unique-label t completing-read "Label (leave empty for anonymous): " mapcar list nil confirm "[fn::]" -1 "[fn:" "]" message "New reference to existing note" ":]" org-footnote-auto-adjust-maybe org-footnote-create-definition (error) org-footnote-goto-definition org-edit-footnote-reference] 10 (#$ . 18124) nil]) #@160 Start the definition of a footnote with label LABEL. Return buffer position at the beginning of the definition. This function doesn't move point. (fn LABEL) (defalias 'org-footnote-create-definition #[257 "\303!\304\212\214~\210db\210\305\306\307`\310Z\311]\305#\205 \312`d\"+\313\314\315\316\317!\320\"\321$\216\212\214~\210\n\2049 \322 \210\202_ \212eb\210\323\324\325\n!\326Q\304\305#)\203\\ \314\225b\210\304y\210n\204_ \327c\210\202_ \330 \210\331 \314U\203i \327c\210\332\333\261\210\334\314!+\262)\207" [electric-indent-mode case-fold-search org-footnote-section org-footnote-normalize-label nil t re-search-backward "^[ ]*# +Local Variables:" 3000 1 delete-and-extract-region make-byte-code 0 "\300\205* \212\214~\210db\210\301\302\303`S!\"n\204 \304c\210\300c\210\211\205' \305\306!d#\262*\207" vconcat vector [cl-find-if #[257 "\300\301\"\302=\207" [overlay-get invisible outline] 4 "\n\n(fn O)"] overlays-at "\n" move-overlay overlay-start] 5 org-footnote--goto-local-insertion-point re-search-forward "^\\*+[ ]+" regexp-quote "[ ]*$" "\n" org-footnote--clear-footnote-section org-back-over-empty-lines "[fn:" "] \n" line-beginning-position] 9 (#$ . 19305)]) #@95 Delete every reference to footnote LABEL. Return the number of footnotes removed. (fn LABEL) (defalias 'org-footnote-delete-references #[257 "\212eb\210\300\301\302!\211\262\203# A@b\210A@\3038|\210\211T\262\202 \262)\207" [nil 0 org-footnote-get-next-reference 2] 6 (#$ . 20499)]) #@100 Delete every definition of the footnote LABEL. Return the number of footnotes removed. (fn LABEL) (defalias 'org-footnote-delete-definitions #[257 "\212eb\210\300\301\302!\"\303\304\305\306#\203r \307 \211:\203n \211A\211:\203m \211@A\211:\203k \211@A\211:\203i \211A\211\204h \211b\210\310\305x\210o\203J `\202M \311\312!b\210\310\305x\210o\203\\ `\202_ \311\312!|\210 T\262\n\266\210\266\266\210\210\202 \262)\207" [format "^\\[fn:%s\\]" regexp-quote 0 re-search-forward nil t org-footnote-at-definition-p " \n" line-beginning-position 2] 15 (#$ . 20797)]) #@219 Delete the footnote at point. This will remove the definition (even multiple definitions if they exist) and all references of a footnote label. If LABEL is non-nil, delete that footnote instead. (fn &optional LABEL) (defalias 'org-footnote-delete #[256 "\3012{ \212\214~\210db\210\302\303\304`\305Z\306]\302#\205 \307`d\"+\310\311\312\313\314!\315\"\316$\216\311\211\317\206a \320 \211\262\203Q \211@\206a \211A@\3218|\210\322\323!\210\324\301\302\"\202a \325 \211\262\203^ \211@\202a \326\327!\330!\262\331!\262\332 \210\322\333$\266\204)\2620\207" [case-fold-search done t re-search-backward "^[ ]*# +Local Variables:" 3000 1 delete-and-extract-region make-byte-code 0 "\300\205* \212\214~\210db\210\301\302\303`S!\"n\204 \304c\210\300c\210\211\205' \305\306!d#\262*\207" vconcat vector [cl-find-if #[257 "\300\301\"\302=\207" [overlay-get invisible outline] 4 "\n\n(fn O)"] overlays-at "\n" move-overlay overlay-start] 5 nil org-footnote-at-reference-p 2 message "Anonymous footnote removed" throw org-footnote-at-definition-p error "Don't know which footnote to remove" org-footnote-delete-references org-footnote-delete-definitions org-footnote-auto-adjust-maybe "%d definition(s) of and %d reference(s) of footnote %s removed"] 11 (#$ . 21379)]) #@59 Order numbered footnotes into a sequence in the document. (defalias 'org-footnote-renumber-fn:N #[0 "\300C\301\302\303 \"\304\305\306\307\310\311!\312\"\313\314%\315\304\316\"!\"\212\214~\210\211\203< \211@\211A@b\210\317\320@\"A!\210A\266\202\202! \210eb\210\321\322\323\324#\205c \325\320\326\327!\"A\206Z \330\211\242T\240!\323\211\211\327%\210\202@ *\207" [0 cl-remove-if-not #[257 "\301@\302\303\304#)\207" [inhibit-changing-match-data "\\`[0-9]+\\'" nil t string-match] 8 "\n\n(fn R)"] org-footnote--collect-references mapcar make-byte-code 257 "\211\301\300\211\242T\240!B\207" vconcat vector [number-to-string] 5 "\n\n(fn L)" delete-dups car org-footnote--set-label assoc re-search-forward "^\\[fn:\\([0-9]+\\)\\]" nil t replace-match match-string 1 number-to-string] 9 (#$ . 22661) nil]) #@296 Rearrange footnote definitions in the current buffer. Sort footnote definitions so they match order of footnote references. Also relocate definitions at the end of their relative section or within a single footnote section, according to `org-footnote-section'. Inline definitions are ignored. (defalias 'org-footnote-sort #[0 "\302 \212\214~\210db\210\303\304\305`\306Z\307]\303#\205 \310`d\"+\311\312\313\314\315!\316\"\317$\216\320\321!\212\214~\210\322 \210\323\211\203 \211@\211@\3248?\3258\235\204v \211\204v B\262 \204d \204d A@b\210\326 \210\327\330 \"A\206r \331\332\"\327\261\210\266A\266\202\2024 \210\211\205\243 \211@\211@A\211\211\235\204\232 \327\327\261\210\266A\266\202\202\201 \262\262*\262)\262\207" [case-fold-search org-footnote-section org-footnote--collect-references t re-search-backward "^[ ]*# +Local Variables:" 3000 1 delete-and-extract-region make-byte-code 0 "\300\205* \212\214~\210db\210\301\302\303`S!\"n\204 \304c\210\300c\210\211\205' \305\306!d#\262*\207" vconcat vector [cl-find-if #[257 "\300\301\"\302=\207" [overlay-get invisible outline] 4 "\n\n(fn O)"] overlays-at "\n" move-overlay overlay-start] 5 org-footnote--collect-definitions delete org-footnote--clear-footnote-section nil 2 3 org-footnote--goto-local-insertion-point "\n" assoc format "[fn:%s] DEFINITION NOT FOUND."] 13 (#$ . 23479)]) #@52 Turn every footnote in buffer into a numbered one. (defalias 'org-footnote-normalize #[0 "\212\214~\210db\210\304\305\306`\307Z\310]\304#\205 \311`d\"+\312\313\314\315\316!\317\"\320$\216\313\321\211\322\323!\212\214~\210\211\211\203\307 \211@\211@\211?\211\203J T\211\262\n\240\202f \324\"A\206f \325T\211\262\n!BB\262\211\262A@b\210\326\203v \325!\202w !\210\3278\211\203\276 \330\331\"\332\311`\333`\310#\"\310\"\321\334\203\232 \335\202\233 \336\337\334\340\337##\266\202P\203\256 \202\257 B B\262 \203\275 \341 \210\210\266A\266\202\2021 \210\342\343!\244\321\344 \210\211\203;\211@\211@\211\250A@\n\204\357 \3458\203\357 \211b\210\346 \210\235\2042B\262\324\"A\203\n\202\324\f\"A\347\204 \330\350\"\202-\203$\202-\334\351\321\211\310&\347\261\266\266A\266\202\202\322 \210\211\205k\211@\211@A\211\211\235\204b\347\334 \330\352T\211\262\"#\347\261\210\266A\266\202\202=\262\266\202*\266\204)\207" [case-fold-search org-footnote-fill-after-inline-note-extraction org-footnote-section org-footnote-definition-re t re-search-backward "^[ ]*# +Local Variables:" 3000 1 delete-and-extract-region make-byte-code 0 "\300\205* \212\214~\210db\210\301\302\303`S!\"n\204 \304c\210\300c\210\211\205' \305\306!d#\262*\207" vconcat vector [cl-find-if #[257 "\300\301\"\302=\207" [overlay-get invisible outline] 4 "\n\n(fn O)"] overlays-at "\n" move-overlay overlay-start] 5 nil org-footnote--collect-references anonymous assoc number-to-string org-footnote--set-label 3 format "[fn:%s] " substring + replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'" org-fill-paragraph org-footnote--collect-definitions delete org-footnote--clear-footnote-section 2 org-footnote--goto-local-insertion-point "\n" "[fn:%s] DEFINITION NOT FOUND." "\\`\\[fn:\\(.*?\\)\\]" "[fn:%d]"] 22 (#$ . 24865) nil]) #@60 Renumber and/or sort footnotes according to user settings. (defalias 'org-footnote-auto-adjust-maybe #[0 "\301>\203 \302 \210\303>\2050 \304 @\305 \210\211\205. eb\210\306\307\310\311!\"\312\313#\205. \314c\210\315 \262\207" [org-footnote-auto-adjust (t renumber) org-footnote-renumber-fn:N (t sort) org-footnote-at-definition-p org-footnote-sort re-search-forward format "^\\[fn:%s\\]" regexp-quote nil t " " just-one-space] 6 (#$ . 26769)]) #@398 Do the right thing for footnotes. When at a footnote reference, jump to the definition. When at a definition, jump to the references if they exist, offer to create them otherwise. When neither at definition or reference, create a new footnote, interactively if possible. With prefix arg SPECIAL, or when no footnote can be created, offer additional commands in a menu. (fn &optional SPECIAL) (defalias 'org-footnote-action #[256 "\211?\205 \300 \301!\203% `\212\302\303\"b\210\304\305x\210`)V\203% \306 \202\275 \211\307\267\202~ \302\310\"\211\204; \302\311\"b\202p \312!A@\211\205H \313\"\262\206p \314\315\316\"!\205p \317!\3201e \313\"0\202i \210\202l \206n \321 \262\262\202\275 \322\302\310\"!\202\275 \204\207 \323 \204\273 \324\325!\210\326 \211\327\267\202\257 \330 \202\266 \331 \202\266 \331 \210\330 \202\266 \332 \202\266 \333 \202\266 \211\334\335\"\262\262\202\275 \306 \207" [org-element-context org-element-type org-element-property :end " " nil org-footnote-new #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (footnote-reference 43 footnote-definition 117)) :label :contents-begin org-footnote-get-definition org-footnote-goto-definition yes-or-no-p format "No definition for %s. Create one? " org-footnote-create-definition (error) org-edit-footnote-reference org-footnote-goto-previous-reference org-footnote--allow-reference-p message "Footnotes: [s]ort | [r]enumber fn:N | [S]=r+s | [n]ormalize | [d]elete" read-char-exclusive #s(hash-table size 5 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (115 147 114 152 83 157 110 165 100 170)) org-footnote-sort org-footnote-renumber-fn:N org-footnote-normalize org-footnote-delete error "No such footnote command %c"] 8 (#$ . 27224) "P"]) (provide 'org-footnote)
Close
