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

Improve Footnote export. 

Export of Footnotes to HTML now uses a configurable structure.
Also the word "Footnotes" has been translated into many languages.
This commit is contained in:
Carsten Dominik 2008-11-08 15:30:19 +01:00
parent 8b12b9ad05
commit fc6a16f20f
2 changed files with 42 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ChangeLog
View File

@ -1,3 +1,10 @@
2008-11-08 Carsten Dominik <carsten.dominik@gmail.com>
* org-exp.el (org-export-html-footnotes-section): New variable.
(org-export-as-html): Use `org-export-html-footnotes-section' to
insert the footnotes.
(org-export-language-setup): Add "Footnotes" to language words.
2008-11-07 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-yank): Fix bug when not inserting a subtree.

51
lisp/org-exp.el
View File

@ -98,17 +98,17 @@ This option can also be set with the +OPTIONS line, e.g. \"-:nil\"."
:type 'boolean)
(defcustom org-export-language-setup
'(("en" "Author" "Date" "Table of Contents")
("cs" "Autor" "Datum" "Obsah")
("da" "Ophavsmand" "Dato" "Indhold")
("de" "Autor" "Datum" "Inhaltsverzeichnis")
("es" "Autor" "Fecha" "\xcdndice")
("fr" "Auteur" "Date" "Table des mati\xe8res")
("it" "Autore" "Data" "Indice")
("nl" "Auteur" "Datum" "Inhoudsopgave")
("no" "Forfatter" "Dato" "Innhold")
("nb" "Forfatter" "Dato" "Innhold") ;; nb = Norsk (bokm.l)
("nn" "Forfattar" "Dato" "Innhald") ;; nn = Norsk (nynorsk)
'(("en" "Author" "Date" "Table of Contents" "Footnotes")
("cs" "Autor" "Datum" "Obsah" "Pozn\xe1mky pod carou")
("da" "Ophavsmand" "Dato" "Indhold" "Note under teksten")
("de" "Autor" "Datum" "Inhaltsverzeichnis" "Fussnoten")
("es" "Autor" "Fecha" "\xcdndice" "Notas al pie de la p\xe1gina")
("fr" "Auteur" "Date" "Table des mati\xe8res" "Notes de bas de page")
("it" "Autore" "Data" "Indice" "Note a pi\xe8 di pagina")
("nl" "Auteur" "Datum" "Inhoudsopgave" "Voetnoten")
("no" "Forfatter" "Dato" "Innhold" "Fotnoter")
("nb" "Forfatter" "Dato" "Innhold" "Fotnoter") ;; nb = Norsk (bokm.l)
("nn" "Forfattar" "Dato" "Innhald" "Fotnotar") ;; nn = Norsk (nynorsk)
("sv" "F\xf6rfattarens" "Datum" "Inneh\xe5ll"))
"Terms used in export text, translated to different languages.
Use the variable `org-export-default-language' to set the language,
@ -119,7 +119,8 @@ or use the +OPTION lines for a per-file setting."
(string :tag "HTML language tag")
(string :tag "Author")
(string :tag "Date")
(string :tag "Table of Contents"))))
(string :tag "Table of Contents")
(string :tag "Footnotes"))))
(defcustom org-export-default-language "en"
"The default language of HTML export, as a string.
@ -303,6 +304,19 @@ This option can also be set with the +OPTIONS line, e.g. \"f:nil\"."
:group 'org-export-translation
:type 'boolean)
(defcustom org-export-html-footnotes-section "<div id=\"footnotes\">
<h2 class=\"footnotes\">%s: </h2>
<div id=\"footnotes-text\">
%s
</div>
</div>"
"Format for the footnotes section.
Should contain a two instances of %s. The first will be replaced with the
language-specific word for \"Footnotes\", the second one will be replaced
by the footnotes themselves."
:group 'org-export-html
:type 'string)
(defcustom org-export-with-sub-superscripts t
"Non-nil means, interpret \"_\" and \"^\" for export.
When this option is turned on, you can use TeX-like syntax for sub- and
@ -3446,6 +3460,11 @@ lang=\"%s\" xml:lang=\"%s\">
;; Is this the start of a footnote?
(when org-export-with-footnotes
(when (and (boundp 'footnote-section-tag-regexp)
(string-match (concat "^" footnote-section-tag-regexp)
line))
;; ignore this line
(throw 'nextline nil))
(when (string-match "^[ \t]*\\[\\([0-9]+\\)\\]" line)
(org-close-par-maybe)
(let ((n (match-string 1 line)))
@ -3486,10 +3505,10 @@ lang=\"%s\" xml:lang=\"%s\">
(push (match-string 0) footnotes)
(replace-match "" t t)))
(when footnotes
(insert "<div id=\"footnotes\">\n"
(mapconcat 'identity (nreverse footnotes) "\n")
"\n</div>\n"))
(insert (format org-export-html-footnotes-section
(or (nth 4 lang-words) "Footnotes")
(mapconcat 'identity (nreverse footnotes) "\n"))
"\n"))
(unless body-only
(when (plist-get opt-plist :auto-postamble)
(insert "<div id=\"postamble\">")