tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Revert "org-footnote.el: Allow to inline external footnotes" 

This reverts commit 8738f173e5.
This commit is contained in:
Nicolas Goaziou 2014-05-31 11:26:37 +02:00
parent 66db8836b5
commit 857222323b
1 changed files with 36 additions and 61 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
lisp/org-footnote.el
View File

@ -450,8 +450,8 @@ 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 existing label, only insert the label. If the footnote label is empty
or new, let the user edit the definition of the footnote." or new, let the user edit the definition of the footnote."
(interactive) (interactive)
(if (not (org-footnote-in-valid-context-p)) (unless (org-footnote-in-valid-context-p)
(org-footnote-action '(4)) (error "Cannot insert a footnote here"))
(let* ((lbls (and (not (equal org-footnote-auto-label 'random)) (let* ((lbls (and (not (equal org-footnote-auto-label 'random))
(org-footnote-all-labels))) (org-footnote-all-labels)))
(propose (and (not (equal org-footnote-auto-label 'random)) (propose (and (not (equal org-footnote-auto-label 'random))
@ -484,7 +484,7 @@ or new, let the user edit the definition of the footnote."
(t (t
(insert "[" label "]") (insert "[" label "]")
(org-footnote-create-definition label) (org-footnote-create-definition label)
(org-footnote-auto-adjust-maybe)))))) (org-footnote-auto-adjust-maybe)))))
(defvar org-blank-before-new-entry) ; silence byte-compiler (defvar org-blank-before-new-entry) ; silence byte-compiler
(defun org-footnote-create-definition (label) (defun org-footnote-create-definition (label)
@ -579,10 +579,9 @@ With prefix arg SPECIAL, offer additional commands in a menu."
(let (tmp c) (let (tmp c)
(cond (cond
(special (special
(message "Footnotes: [s]ort, [r]enumber fn:N, [S]=r+s, ->[n]umeric, [d]elete, [i]inline") (message "Footnotes: [s]ort | [r]enumber fn:N | [S]=r+s |->[n]umeric | [d]elete")
(setq c (read-char-exclusive)) (setq c (read-char-exclusive))
(cond (cond
((eq c ?i) (org-footnote-inline-footnotes))
((eq c ?s) (org-footnote-normalize 'sort)) ((eq c ?s) (org-footnote-normalize 'sort))
((eq c ?r) (org-footnote-renumber-fn:N)) ((eq c ?r) (org-footnote-renumber-fn:N))
((eq c ?S) ((eq c ?S)
@ -871,30 +870,6 @@ If LABEL is non-nil, delete that footnote instead."
(push (cons (match-string 1) new-val) map)) (push (cons (match-string 1) new-val) map))
(replace-match new-val nil nil nil 1)))))))) (replace-match new-val nil nil nil 1))))))))
(defun org-footnote-inline-footnotes ()
"Convert external footnotes into inline ones."
(interactive)
(org-with-wide-buffer
(goto-char (point-min))
(while (re-search-forward (concat org-footnote-re "\\]") nil t)
(let ((fn (match-string 0)) fnd-end repl)
(save-excursion
(save-match-data
(when (and (re-search-forward (regexp-quote fn) nil t)
(eq (car (org-element-at-point)) 'footnote-definition))
(beginning-of-line)
(setq fnd-end (save-excursion (org-forward-element) (point)))
(setq repl (org-trim
(replace-regexp-in-string
(concat "\n\\|" org-footnote-re "\\]")
" " (buffer-substring (point) fnd-end))))
(delete-region (point) fnd-end))))
(replace-match (format "[fn::%s]" repl))))
(goto-char (point-min))
;; Delete the * Footnotes heading
(when (re-search-forward (concat org-outline-regexp-bol org-footnote-section) nil t)
(replace-match ""))))
(defun org-footnote-auto-adjust-maybe () (defun org-footnote-auto-adjust-maybe ()
"Renumber and/or sort footnotes according to user settings." "Renumber and/or sort footnotes according to user settings."
(when (memq org-footnote-auto-adjust '(t renumber)) (when (memq org-footnote-auto-adjust '(t renumber))