ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

org-e-ascii: Insert a title for footnote section 

* EXPERIMENTAL/org-e-ascii.el (org-e-ascii-dictionary): Add footnotes
  entry.
(org-e-ascii-template): Insert a title for footnote section.
This commit is contained in:
Nicolas Goaziou 2012-01-28 13:41:50 +01:00
parent 952abb2c46
commit 4d72201b30
1 changed files with 42 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

68
EXPERIMENTAL/org-e-ascii.el
View File

@ -95,24 +95,15 @@ See `org-export-option-alist' for more information on the
structure or the values.") structure or the values.")
(defconst org-e-ascii-dictionary (defconst org-e-ascii-dictionary
'(("Table Of Contents\n" '(("Footnotes\n"
("en" ("en"
:ascii "Table Of Contents\n" :ascii "Footnotes\n"
:latin1 "Table Of Contents\n" :latin1 "Footnotes\n"
:utf-8 "Table Of Contents\n") :utf-8 "Footnotes\n")
("fr" ("fr"
:ascii "Sommaire\n" :ascii "Notes de bas de page\n"
:latin1 "Table des matières\n" :latin1 "Notes de bas de page\n"
:utf-8 "Table des matières\n")) :utf-8 "Notes de bas de page\n"))
("Table %d: %s"
("en"
:ascii "Table %d: %s"
:latin1 "Table %d: %s"
:utf-8 "Table %d: %s")
("fr"
:ascii "Tableau %d : %s"
:latin1 "Tableau %d : %s"
:utf-8 "Tableau nº %d : %s"))
("Listing %d: %s" ("Listing %d: %s"
("en" ("en"
:ascii "Listing %d: %s" :ascii "Listing %d: %s"
@ -149,6 +140,33 @@ structure or the values.")
:ascii "Programme %d : " :ascii "Programme %d : "
:latin1 "Programme %d : " :latin1 "Programme %d : "
:utf-8 "Programme nº %d : ")) :utf-8 "Programme nº %d : "))
("Table Of Contents\n"
("en"
:ascii "Table Of Contents\n"
:latin1 "Table Of Contents\n"
:utf-8 "Table Of Contents\n")
("fr"
:ascii "Sommaire\n"
:latin1 "Table des matières\n"
:utf-8 "Table des matières\n"))
("Table %d: %s"
("en"
:ascii "Table %d: %s"
:latin1 "Table %d: %s"
:utf-8 "Table %d: %s")
("fr"
:ascii "Tableau %d : %s"
:latin1 "Tableau %d : %s"
:utf-8 "Tableau nº %d : %s"))
("See section %s"
("en"
:ascii "See section %s"
:latin1 "See section %s"
:utf-8 "See section %s")
("fr"
:ascii "cf. section %s"
:latin1 "cf. section %s"
:utf-8 "cf. section %s"))
("Table %d: " ("Table %d: "
("en" ("en"
:ascii "Table %d: " :ascii "Table %d: "
@ -166,16 +184,7 @@ structure or the values.")
("fr" ("fr"
:ascii "Destination inconnue" :ascii "Destination inconnue"
:latin1 "Référence inconnue" :latin1 "Référence inconnue"
:utf-8 "Référence inconnue")) :utf-8 "Référence inconnue")))
("See section %s"
("en"
:ascii "See section %s"
:latin1 "See section %s"
:utf-8 "See section %s")
("fr"
:ascii "cf. section %s"
:latin1 "cf. section %s"
:utf-8 "cf. section %s")))
"Dictionary for ASCII back-end. "Dictionary for ASCII back-end.
Alist whose car is the string to translate and cdr is an alist Alist whose car is the string to translate and cdr is an alist
@ -946,6 +955,13 @@ holding export options."
(when definitions (when definitions
(concat (concat
"\n\n\n" "\n\n\n"
(let ((title (org-e-ascii--translate "Footnotes\n" info)))
(concat
title
(make-string
(1- (length title))
(if (eq (plist-get info :ascii-charset) 'utf-8) ?─ ?_))))
"\n\n"
(mapconcat (mapconcat
(lambda (ref) (lambda (ref)
(let ((id (format "[%s] " (car ref)))) (let ((id (format "[%s] " (car ref))))