| commit | author | age | ||
| 76bbd0 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (byte-code "\300\301!\210\300\302!\210\300\303!\207" [require cl-lib org-macs org-compat] 2) | |
| 16 | #@215 Regular expression for matching footnotes. | |
| 17 | Match group 1 contains footnote's label. It is nil for anonymous | |
| 18 | footnotes. Match group 2 is non-nil only when footnote is | |
| 19 | inline, i.e., it contains its own definition. | |
| 20 | (defconst org-footnote-re "\\[fn:\\(?:\\(?1:[-_[:word:]]+\\)?\\(:\\)\\|\\(?1:[-_[:word:]]+\\)\\]\\)" (#$ . 502)) | |
| 21 | #@102 Regular expression matching the definition of a footnote. | |
| 22 | Match group 1 contains definition's label. | |
| 23 | (defconst org-footnote-definition-re "^\\[fn:\\([-_[:word:]]+\\)\\]" (#$ . 836)) | |
| 24 | #@50 Names of blocks where footnotes are not allowed. | |
| 25 | (defconst org-footnote-forbidden-blocks '("comment" "example" "export" "src") (#$ . 1024)) | |
| 26 | (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& \210\310\324\312\313\325DD\326\306\301\322\327&\210\310\330\312\313\331DD\332\306\301\322\333&\210\310\334\312\313\335DD\336\306\301\322\337&\210\310\340\312\313\341DD\342\306\301\322\327&\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)) 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 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)) 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."] 12) | |
| 27 | #@52 Is point in a context where footnotes are allowed? | |
| 28 | (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 (#$ . 4546)]) | |
| 29 | #@150 Is the cursor at a footnote reference? | |
| 30 | ||
| 31 | If so, return a list containing its label, beginning and ending | |
| 32 | positions, and the definition, when inlined. | |
| 33 | (defalias 'org-footnote-at-reference-p #[0 "\302 \205\202 \303!\204 \304!\204 \212\305\306\307#)\205\202 \310\224\311 U?\205\202 \310\224\312\313!\31415 \315\313\"0\2027 \210\306\211\205\200 `W\205\200 \212b\210\316 \317\310\320\321\322!\323\"\324$\216\304 !)\262\211\205a `AW\262)?\205\200 \325 ?\205\200 \326\225\205 \327\330\310\225S\"!F\266\203\207" [org-footnote-re org-bracket-link-regexp org-footnote-in-valid-context-p looking-at org-in-regexp re-search-backward nil t 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-inside-latex-macro-p 2 org-trim buffer-substring-no-properties] 10 (#$ . 5039)]) | |
| 34 | #@379 Is point within a footnote definition? | |
| 35 | ||
| 36 | This matches only pure definitions like [1] or [fn:name] at the | |
| 37 | beginning of a line. It does not match references like | |
| 38 | [fn:name:definition], where the footnote text is included and | |
| 39 | defined locally. | |
| 40 | ||
| 41 | The return value will be nil if not at a footnote definition, and | |
| 42 | a list with label, start, end and definition of the footnote | |
| 43 | otherwise. | |
| 44 | (defalias 'org-footnote-at-definition-p #[0 "\212\302 \210\303 )\205N \212\304\210\212\305\306P\304\307#)\305 \307#\205K \310\311!\312\224\312\225\304\210\313\314 \314\315\260\304\316#\203< \312\224\202= `\317\320\"!F\266\204\262)\207" [org-outline-regexp-bol org-footnote-definition-re beginning-of-line org-footnote-in-valid-context-p nil re-search-backward "\\|^\\([ ]*\n\\)\\{2,\\}" t match-string-no-properties 1 0 re-search-forward "\\|" "^\\([ ]*\n\\)\\{2,\\}" move org-trim buffer-substring-no-properties] 12 (#$ . 5940)]) | |
| 45 | #@61 Non-nil when a footnote reference can be inserted at point. | |
| 46 | (defalias 'org-footnote--allow-reference-p #[0 "n?\205\330 \303 \304!\305\306\"\211\205 `W\262\203 \307\202\326 \211\310>\206\326 \211\311=\203< `\305\312\"Y\205\326 `\305\313\"W\202\326 \211\314>\203 \315 ?\206\326 \212\316 \210\317\320\317\321!)\262)?\205b \307\321\n!))\205\326 \322\224\205\326 `\322\224Y\205\326 \323\224?\206\326 `\323\224W\202\326 `\212\305\324\"b\210\325\307x\210\326!\327=\203\227 `\202\233 \330\331!T)Y\206\326 \326!\332=\203\254 \307\202\326 `\305\333\"U\206\326 \211\334=\203\277 \307\202\326 \305\312\"\305\313\"\205\324 `Y\205\324 `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) verse-block :contents-begin :contents-end (headline inlinetask) 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 (#$ . 6871)]) | |
| 47 | #@191 Remove all footnote sections in buffer and create a new one. | |
| 48 | New section is created at the end of the buffer, before any file | |
| 49 | local variable definition. Leave point within the new section. | |
| 50 | (defalias 'org-footnote--clear-footnote-section #[0 "\205Y eb\210\302\303\304!\"\305\306\307#\203: \310\224\311\307\211\"\210m\204$ `\2025 \312 \210\313\306w\210m\2033 `\2025 \314 |\210\202 \210db\210\312 \210\315 \236A\203T \212\316 )\310U\203T \317c\210\320\317\261\207" [org-footnote-section org-blank-before-new-entry format "^\\*+ +%s[ ]*$" regexp-quote re-search-forward nil t 0 org-end-of-subtree org-footnote--goto-local-insertion-point " \n" line-beginning-position heading org-back-over-empty-lines "\n" "* "] 5 (#$ . 7948)]) | |
| 51 | #@136 Set label of footnote at point to string LABEL. | |
| 52 | Assume point is at the beginning of the reference or definition | |
| 53 | to rename. | |
| 54 | ||
| 55 | (fn LABEL) | |
| 56 | (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 (#$ . 8689)]) | |
| 57 | #@637 Collect all labeled footnote references in current buffer. | |
| 58 | ||
| 59 | Return an alist where associations follow the pattern | |
| 60 | ||
| 61 | (LABEL MARKER TOP-LEVEL SIZE) | |
| 62 | ||
| 63 | with | |
| 64 | ||
| 65 | LABEL the label of the of the definition, | |
| 66 | MARKER a marker pointing to its beginning, | |
| 67 | TOP-LEVEL a boolean, nil when the footnote is contained within | |
| 68 | another one, | |
| 69 | SIZE the length of the inline definition, in characters, | |
| 70 | or nil for non-inline references. | |
| 71 | ||
| 72 | When optional ANONYMOUS is non-nil, also collect anonymous | |
| 73 | references. In such cases, LABEL is nil. | |
| 74 | ||
| 75 | References are sorted according to a deep-reading order. | |
| 76 | ||
| 77 | (fn &optional ANONYMOUS) | |
| 78 | (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 (#$ . 9034)]) | |
| 79 | #@349 Collect all footnote definitions in current buffer. | |
| 80 | ||
| 81 | Return an alist where associations follow the pattern | |
| 82 | ||
| 83 | (LABEL . DEFINITION) | |
| 84 | ||
| 85 | with LABEL and DEFINITION being, respectively, the label and the | |
| 86 | definition of the footnote, as strings. | |
| 87 | ||
| 88 | When optional argument DELETE is non-nil, delete the definition | |
| 89 | while collecting them. | |
| 90 | ||
| 91 | (fn &optional DELETE) | |
| 92 | (defalias 'org-footnote--collect-definitions #[256 "\212\214~\210eb\210\301\211\302\301\303#\203m \304u\210\305 \306\307\"\310!\311=\203h \211\235\204h \211B\262\306\312\"b\210\313\301x\210o\203? `\202B \314\315!\306\316\"b\210\313\301x\210\314\315!\317\320\"!BB\262\203f |\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 org-trim buffer-substring-no-properties] 11 (#$ . 10945)]) | |
| 93 | #@144 Find insertion point for footnote, just before next outline heading. | |
| 94 | Assume insertion point is within currently accessible part of the buffer. | |
| 95 | (defalias 'org-footnote--goto-local-insertion-point #[0 "\305\306 \211\307 P\310 \210,m\203 \305 \311\312d\313Ze]\305#\210)\314\315x\210\315y\210n?\205. \316c\207" [org-called-with-limited-levels org-outline-regexp outline-regexp org-outline-regexp-bol case-fold-search t org-get-limited-outline-regexp "^" outline-next-heading re-search-backward "^[ ]*# +Local Variables:" 3000 " \n" nil "\n"] 5 (#$ . 11874)]) | |
| 96 | #@374 Return complete reference of the next footnote. | |
| 97 | ||
| 98 | If LABEL is provided, get the next reference of that footnote. If | |
| 99 | BACKWARD is non-nil, find previous reference instead. LIMIT is | |
| 100 | the buffer position bounding the search. | |
| 101 | ||
| 102 | Return value is a list like those provided by `org-footnote-at-reference-p'. | |
| 103 | If no footnote is found, return nil. | |
| 104 | ||
| 105 | (fn &optional LABEL BACKWARD LIMIT) | |
| 106 | (defalias 'org-footnote-get-next-reference #[768 "\212\203\f \301\302\"\202 \3032< \203 \304\202 \305\306#\204& \307\303\310\"\210\204- \311u\210\312 \211\2038 \307\303\"\210\210\202 \262)\207" [org-footnote-re format "\\[fn:%s[]:]" exit re-search-backward re-search-forward t throw nil -1 org-footnote-at-reference-p] 8 (#$ . 12443)]) | |
| 107 | #@266 Move point to next footnote reference or definition. | |
| 108 | ||
| 109 | LIMIT is the buffer position bounding the search. | |
| 110 | ||
| 111 | Return value is a list like those provided by | |
| 112 | `org-footnote-at-reference-p' or `org-footnote-at-definition-p'. | |
| 113 | If no footnote is found, return nil. | |
| 114 | ||
| 115 | (fn LIMIT) | |
| 116 | (defalias 'org-footnote-next-reference-or-definition #[257 "\301`\3022_ \303\304#\204 \211b\210\305\302\301\"\210\306u\210\307 \211\262\203) \305\302\"\210\202 \310 \311\312\313\314\315!\316\"\317$\216\320 )\262\203 \312\225\305\302\301\312\224\206K `Sf\321=\203V \202X TE\"\266\202 \207" [org-footnote-re nil exit re-search-forward t throw -1 org-footnote-at-reference-p match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 org-footnote-at-definition-p 93] 10 (#$ . 13172)]) | |
| 117 | #@321 Move point to the definition of the footnote LABEL. | |
| 118 | ||
| 119 | LOCATION, when non-nil specifies the buffer position of the | |
| 120 | definition. | |
| 121 | ||
| 122 | Throw an error if there is no definition or if it cannot be | |
| 123 | reached from current narrowed part of buffer. Return a non-nil | |
| 124 | value if point was successfully moved. | |
| 125 | ||
| 126 | (fn LABEL &optional LOCATION) | |
| 127 | (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 (#$ . 13974) "sLabel: "]) | |
| 128 | #@87 Find the first closest (to point) reference of footnote with label LABEL. | |
| 129 | ||
| 130 | (fn LABEL) | |
| 131 | (defalias 'org-footnote-goto-previous-reference #[257 "\300 \210\301!\302\212\303\304\"\206# \303!\206# \214~\210\303\304\"\206\" \303!)\262)\211\2041 \305\306\"\2029 \211A@b\210\307\310!\207" [org-mark-ring-push org-footnote-normalize-label nil org-footnote-get-next-reference t error "Cannot find reference of footnote %s" org-show-context link-search] 6 (#$ . 15006) "sLabel: "]) | |
| 132 | #@134 Return LABEL without "fn:" prefix. | |
| 133 | If LABEL is the empty string or constituted of white spaces only, | |
| 134 | return nil instead. | |
| 135 | ||
| 136 | (fn LABEL) | |
| 137 | (defalias 'org-footnote-normalize-label #[257 "\300!\211\301\232\203 \302\202 \303\304\"\203 \305\302O\202 \207" [org-trim "" nil string-prefix-p "fn:" 3] 5 (#$ . 15489)]) | |
| 138 | #@76 Return label, boundaries and definition of the footnote LABEL. | |
| 139 | ||
| 140 | (fn LABEL) | |
| 141 | (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 (#$ . 15808)]) | |
| 142 | #@103 List all defined footnote labels used throughout the buffer. | |
| 143 | This function ignores narrowing, if any. | |
| 144 | (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 (#$ . 16523)]) | |
| 145 | #@196 Return a new unique footnote label. | |
| 146 | ||
| 147 | The function returns the first numeric label currently unused. | |
| 148 | ||
| 149 | Optional argument CURRENT is the list of labels active in the | |
| 150 | buffer. | |
| 151 | ||
| 152 | (fn &optional CURRENT) | |
| 153 | (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 (#$ . 16998)]) | |
| 154 | #@222 Insert a new footnote. | |
| 155 | This command prompts for a label. If this is a label referencing an | |
| 156 | existing label, only insert the label. If the footnote label is empty | |
| 157 | or new, let the user edit the definition of the footnote. | |
| 158 | (defalias 'org-footnote-new #[0 "\303 \204 \304\305!\210\306 \307=\203 \310\311\307 !\"\202< \312\313!\314=\203( \211\2029 \315\316\317\320\"\321\211\322=\2058 %\262!\211\204H \323c\210\324u\202\224 \211\235\203Z \325\326\261\210\327\330!\202\224 \n\203l \325\331\261\210\324u\210\332 \202\224 \325\326\261\210\333!\3341\201 \335\"0\202\205 \210\202\215 \203\215 \332 \202\222 \332 \210\336 \262\207" [org-footnote-auto-label most-positive-fixnum org-footnote-define-inline org-footnote--allow-reference-p user-error "Cannot insert a footnote here" org-footnote-all-labels random format "%x" 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 (#$ . 17375) nil]) | |
| 159 | #@160 Start the definition of a footnote with label LABEL. | |
| 160 | Return buffer position at the beginning of the definition. This | |
| 161 | function doesn't move point. | |
| 162 | ||
| 163 | (fn LABEL) | |
| 164 | (defalias 'org-footnote-create-definition #[257 "\302!\303\212\214~\210 \204 \304 \210\2029 \212eb\210\305\306\307 !\310Q\303\311#)\2036 \312\225b\210\303y\210n\2049 \313c\210\2029 \314 \210\315 \312U\203C \313c\210\316\317\261\210\320\312!+\207" [electric-indent-mode org-footnote-section org-footnote-normalize-label nil org-footnote--goto-local-insertion-point re-search-forward "^\\*+[ ]+" regexp-quote "[ ]*$" t 0 "\n" org-footnote--clear-footnote-section org-back-over-empty-lines "[fn:" "] \n" line-beginning-position] 6 (#$ . 18570)]) | |
| 165 | #@95 Delete every reference to footnote LABEL. | |
| 166 | Return the number of footnotes removed. | |
| 167 | ||
| 168 | (fn LABEL) | |
| 169 | (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 (#$ . 19285)]) | |
| 170 | #@100 Delete every definition of the footnote LABEL. | |
| 171 | Return the number of footnotes removed. | |
| 172 | ||
| 173 | (fn LABEL) | |
| 174 | (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 (#$ . 19583)]) | |
| 175 | #@219 Delete the footnote at point. | |
| 176 | This will remove the definition (even multiple definitions if they exist) | |
| 177 | and all references of a footnote label. | |
| 178 | ||
| 179 | If LABEL is non-nil, delete that footnote instead. | |
| 180 | ||
| 181 | (fn &optional LABEL) | |
| 182 | (defalias 'org-footnote-delete #[256 "\3002R \301\211\302\206; \303 \211\262\203+ \211@\206; \211A@\3048|\210\305\306!\210\307\300\310\"\202; \311 \211\262\2038 \211@\202; \312\313!\314!\262\315!\262\316 \210\305\317$\266\2040\207" [done 0 nil org-footnote-at-reference-p 2 message "Anonymous footnote removed" throw t 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"] 10 (#$ . 20165)]) | |
| 183 | #@59 Order numbered footnotes into a sequence in the document. | |
| 184 | (defalias 'org-footnote-renumber-fn:N #[0 "\300 \301\302\303\304\305!\306\"\307$\216\302C\310\311\"\312\301\313\314\304\305!\315\"\307\316%\317\312\320\"!\"\212\214~\210\211\203I \211@\211A@b\210\321\322@\"A!\210A\266\202\202. \210eb\210\323\324\325\326#\205p \327\322\330\331!\"A\206g \332\211\242T\240!\325\211\211\331%\210\202M *\266\203)\207" [org-footnote--collect-references make-byte-code 0 "\300\211\205 \211@\211A@\301\211\223\210A\266\202\202 \207" vconcat vector [nil] 5 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)"] mapcar 257 "\211\301\300\211\242T\240!B\207" [number-to-string] "\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] 10 (#$ . 20971) nil]) | |
| 185 | #@296 Rearrange footnote definitions in the current buffer. | |
| 186 | Sort footnote definitions so they match order of footnote | |
| 187 | references. Also relocate definitions at the end of their | |
| 188 | relative section or within a single footnote section, according | |
| 189 | to `org-footnote-section'. Inline definitions are ignored. | |
| 190 | (defalias 'org-footnote-sort #[0 "\301 \302\303\304\305\306!\307\"\310$\216\311\312!\212\214~\210\313 \210\314C\211\203i \211@\211@\3158?\3168\242\235\204` \211\204` \242B\240\210\204N \204N A@b\210\317 \210\320\321 \"A\206\\ \322\323\"\320\261\210\266A\266\202\202 \210\324\302\325\326\305\306!\327\"\316\330%\"\211\211\205\217 \211@\320A\320\261\210A\266\202\202{ \262\262\262*\262)\207" [org-footnote-section org-footnote--collect-references make-byte-code 0 "\300\211\205 \211@\211A@\301\211\223\210A\266\202\202 \207" vconcat vector [nil] 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." cl-remove-if 257 "\211@\300\242\235\207" [] "\n\n(fn D)"] 12 (#$ . 21907)]) | |
| 191 | #@52 Turn every footnote in buffer into a numbered one. | |
| 192 | (defalias 'org-footnote-normalize #[0 "\303\304!\305\306\307\310\311!\312\"\313$\216\306\314\211\212\214~\210\211\203\232 \211@\211@\211?\211\2030 T\211\262 \240\202L \315\"A\206L \316T\211\262 !BB\262\211\262A@b\210\317\203\\ \316!\202] !\210\3208\211\203\221 \321\322\"\323\324`\325`\326#\"\326\314O!P\203\201 \202\202 BB\262\203\220 \327 \210\210\266A\266\202\202 \210\211\330\331!\244\314C\332 \210\211\203\211@\211@\211\250A@ \204\303 \3338\203\303 \211b\210\334 \210\242\235\204 \242B\240\210\315\"A\203\341 \202\347 \315 \"A\335\204\363 \321\336\"\202\203\373 \202\337\340\314\211\326&\335\261\266\266A\266\202\202\246 \210\341\305\342\343\310\311!\344\"\320\345%\"\211\211\205D\211@\335\337\n\321\346\fT\211\262\"A#\335\261\210A\266\202\202$\262\262\266\202*\266\203)\207" [org-footnote-fill-after-inline-note-extraction org-footnote-section org-footnote-definition-re org-footnote--collect-references anonymous make-byte-code 0 "\300\211\205 \211@\211A@\301\211\223\210A\266\202\202 \207" vconcat vector [nil] 5 nil assoc number-to-string org-footnote--set-label 3 format "[fn:%s] " org-trim delete-and-extract-region + 1 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." replace-regexp-in-string "\\`\\[fn:\\(.*?\\)\\]" cl-remove-if 257 "\211@\300\242\235\207" [] "\n\n(fn D)" "[fn:%d]"] 21 (#$ . 23041) nil]) | |
| 193 | #@60 Renumber and/or sort footnotes according to user settings. | |
| 194 | (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 (#$ . 24630)]) | |
| 195 | #@398 Do the right thing for footnotes. | |
| 196 | ||
| 197 | When at a footnote reference, jump to the definition. | |
| 198 | ||
| 199 | When at a definition, jump to the references if they exist, offer | |
| 200 | to create them otherwise. | |
| 201 | ||
| 202 | When neither at definition or reference, create a new footnote, | |
| 203 | interactively if possible. | |
| 204 | ||
| 205 | With prefix arg SPECIAL, or when no footnote can be created, | |
| 206 | offer additional commands in a menu. | |
| 207 | ||
| 208 | (fn &optional SPECIAL) | |
| 209 | (defalias 'org-footnote-action #[256 "\211?\205 \300 \301!\203% `\212\302\303\"b\210\304\305x\210`)V\203% \306 \202\303 \211\307=\203u \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\303 \211\322=\203\204 \323\302\310\"!\202\303 \204\215 \324 \204\301 \325\326!\210\327 \211\330\267\202\265 \331 \202\274 \332 \202\274 \332 \210\331 \202\274 \333 \202\274 \334 \202\274 \211\335\336\"\262\262\202\303 \306 \207" [org-element-context org-element-type org-element-property :end " " nil org-footnote-new footnote-reference :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 footnote-definition 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 eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (115 153 114 158 83 163 110 171 100 176)) org-footnote-sort org-footnote-renumber-fn:N org-footnote-normalize org-footnote-delete error "No such footnote command %c"] 8 (#$ . 25085) "P"]) | |
| 210 | (provide 'org-footnote) | |
