org-export: Flesh out dictionary
* contrib/lisp/org-export.el (org-export-dictionary): Flesh out dictionary. (org-export-translate): Allow for a :default charset in order to simplify dictionary completion.
This commit is contained in:
Nicolas Goaziou
parent
d86f09a854
commit
61b5e28509
|
|
@ -4249,67 +4249,124 @@ object, a string, or nil."
|
|||
|
||||
(defconst org-export-dictionary
|
||||
'(("Author"
|
||||
("fr"
|
||||
:ascii "Auteur"
|
||||
:latin1 "Auteur"
|
||||
:utf-8 "Auteur"))
|
||||
("ca" :default "Autor")
|
||||
("cs" :default "Autor")
|
||||
("da" :default "Ophavsmand")
|
||||
("de" :default "Autor")
|
||||
("eo" :html "Aŭtoro")
|
||||
("es" :default "Autor")
|
||||
("fi" :html "Tekijä")
|
||||
("fr" :default "Auteur")
|
||||
("hu" :default "Szerzõ")
|
||||
("is" :html "Höfundur")
|
||||
("it" :default "Autore")
|
||||
("ja" :html "著者" :utf-8 "著者")
|
||||
("nl" :default "Auteur")
|
||||
("no" :default "Forfatter")
|
||||
("nb" :default "Forfatter")
|
||||
("nn" :default "Forfattar")
|
||||
("pl" :default "Autor")
|
||||
("ru" :html "Автор" :utf-8 "Автор")
|
||||
("sv" :html "Författare")
|
||||
("uk" :html "Автор" :utf-8 "Автор")
|
||||
("zh-CN" :html "作者" :utf-8 "作者")
|
||||
("zh-TW" :html "作者" :utf-8 "作者"))
|
||||
("Date"
|
||||
("fr"
|
||||
:ascii "Date"
|
||||
:latin1 "Date"
|
||||
:utf-8 "Date"))
|
||||
("Equation")
|
||||
("ca" :default "Data")
|
||||
("cs" :default "Datum")
|
||||
("da" :default "Dato")
|
||||
("de" :default "Datum")
|
||||
("eo" :default "Dato")
|
||||
("es" :default "Fecha")
|
||||
("fi" :html "Päivämäärä")
|
||||
("hu" :html "Dátum")
|
||||
("is" :default "Dagsetning")
|
||||
("it" :default "Data")
|
||||
("ja" :html "日付" :utf-8 "日付")
|
||||
("nl" :default "Datum")
|
||||
("no" :default "Dato")
|
||||
("nb" :default "Dato")
|
||||
("nn" :default "Dato")
|
||||
("pl" :default "Data")
|
||||
("ru" :html "Дата" :utf-8 "Дата")
|
||||
("sv" :default "Datum")
|
||||
("uk" :html "Дата" :utf-8 "Дата")
|
||||
("zh-CN" :html "日期" :utf-8 "日期")
|
||||
("zh-TW" :html "日期" :utf-8 "日期"))
|
||||
("Equation"
|
||||
("fr" :ascii "Equation" :default "Équation"))
|
||||
("Figure")
|
||||
("Footnotes"
|
||||
("fr"
|
||||
:ascii "Notes de bas de page"
|
||||
:latin1 "Notes de bas de page"
|
||||
:utf-8 "Notes de bas de page"))
|
||||
("ca" :html "Peus de pàgina")
|
||||
("cs" :default "Pozn\xe1mky pod carou")
|
||||
("da" :default "Fodnoter")
|
||||
("de" :html "Fußnoten")
|
||||
("eo" :default "Piednotoj")
|
||||
("es" :html "Pies de página")
|
||||
("fi" :default "Alaviitteet")
|
||||
("fr" :default "Notes de bas de page")
|
||||
("hu" :html "Lábjegyzet")
|
||||
("is" :html "Aftanmálsgreinar")
|
||||
("it" :html "Note a piè di pagina")
|
||||
("ja" :html "脚注" :utf-8 "脚注")
|
||||
("nl" :default "Voetnoten")
|
||||
("no" :default "Fotnoter")
|
||||
("nb" :default "Fotnoter")
|
||||
("nn" :default "Fotnotar")
|
||||
("pl" :default "Przypis")
|
||||
("ru" :html "Сноски" :utf-8 "Сноски")
|
||||
("sv" :default "Fotnoter")
|
||||
("uk" :html "Примітки"
|
||||
:utf-8 "Примітки")
|
||||
("zh-CN" :html "脚注" :utf-8 "脚注")
|
||||
("zh-TW" :html "腳註" :utf-8 "腳註"))
|
||||
("List of Listings"
|
||||
("fr"
|
||||
:ascii "Liste des programmes"
|
||||
:latin1 "Liste des programmes"
|
||||
:utf-8 "Liste des programmes"))
|
||||
("fr" :default "Liste des programmes"))
|
||||
("List of Tables"
|
||||
("fr"
|
||||
:ascii "Liste des tableaux"
|
||||
:latin1 "Liste des tableaux"
|
||||
:utf-8 "Liste des tableaux"))
|
||||
("fr" :default "Liste des tableaux"))
|
||||
("Listing %d:"
|
||||
("fr"
|
||||
:ascii "Programme %d :"
|
||||
:latin1 "Programme %d :"
|
||||
:utf-8 "Programme nº %d :"))
|
||||
:ascii "Programme %d :" :default "Programme nº %d :"
|
||||
:latin1 "Programme %d :"))
|
||||
("Listing %d: %s"
|
||||
("fr"
|
||||
:ascii "Programme %d : %s"
|
||||
:latin1 "Programme %d : %s"
|
||||
:utf-8 "Programme nº %d : %s"))
|
||||
:ascii "Programme %d : %s" :default "Programme nº %d : %s"
|
||||
:latin1 "Programme %d : %s"))
|
||||
("See section %s"
|
||||
("fr"
|
||||
:ascii "cf. section %s"
|
||||
:latin1 "cf. section %s"
|
||||
:utf-8 "cf. section %s"))
|
||||
("fr" :default "cf. section %s"))
|
||||
("Table %d:"
|
||||
("fr"
|
||||
:ascii "Tableau %d :"
|
||||
:latin1 "Tableau %d :"
|
||||
:utf-8 "Tableau nº %d :"))
|
||||
:ascii "Tableau %d :" :default "Tableau nº %d :" :latin1 "Tableau %d :"))
|
||||
("Table %d: %s"
|
||||
("fr"
|
||||
:ascii "Tableau %d : %s"
|
||||
:latin1 "Tableau %d : %s"
|
||||
:utf-8 "Tableau nº %d : %s"))
|
||||
:ascii "Tableau %d : %s" :default "Tableau nº %d : %s"
|
||||
:latin1 "Tableau %d : %s"))
|
||||
("Table of Contents"
|
||||
("fr"
|
||||
:ascii "Sommaire"
|
||||
:latin1 "Table des matières"
|
||||
:utf-8 "Table des matières"))
|
||||
("ca" :html "Índex")
|
||||
("cs" :default "Obsah")
|
||||
("da" :default "Indhold")
|
||||
("de" :default "Inhaltsverzeichnis")
|
||||
("eo" :default "Enhavo")
|
||||
("es" :html "Índice")
|
||||
("fi" :html "Sisällysluettelo")
|
||||
("fr" :ascii "Sommaire" :default "Table des matières")
|
||||
("hu" :html "Tartalomjegyzék")
|
||||
("is" :default "Efnisyfirlit")
|
||||
("it" :default "Indice")
|
||||
("ja" :html "目次" :utf-8 "目次")
|
||||
("nl" :default "Inhoudsopgave")
|
||||
("no" :default "Innhold")
|
||||
("nb" :default "Innhold")
|
||||
("nn" :default "Innhald")
|
||||
("pl" :html "Spis treści")
|
||||
("ru" :html "Содержание"
|
||||
:utf-8 "Содержание")
|
||||
("sv" :html "Innehåll")
|
||||
("uk" :html "Зміст" :utf-8 "Зміст")
|
||||
("zh-CN" :html "目录" :utf-8 "目录")
|
||||
("zh-TW" :html "目錄" :utf-8 "目錄"))
|
||||
("Unknown reference"
|
||||
("fr"
|
||||
:ascii "Destination inconnue"
|
||||
:latin1 "Référence inconnue"
|
||||
:utf-8 "Référence inconnue")))
|
||||
("fr" :ascii "Destination inconnue" :default "Référence inconnue")))
|
||||
"Dictionary for export engine.
|
||||
|
||||
Alist whose CAR is the string to translate and CDR is an alist
|
||||
|
|
@ -4327,11 +4384,15 @@ entry.")
|
|||
ENCODING is a symbol among `:ascii', `:html', `:latex', `:latin1'
|
||||
and `:utf-8'. INFO is a plist used as a communication channel.
|
||||
|
||||
Translation depends on `:language' property. Return the
|
||||
translated string. If no translation is found return S."
|
||||
(let ((lang (plist-get info :language))
|
||||
(translations (cdr (assoc s org-export-dictionary))))
|
||||
(or (plist-get (cdr (assoc lang translations)) encoding) s)))
|
||||
Translation depends on `:language' property. Return the
|
||||
translated string. If no translation is found, try to fall back
|
||||
to `:default' encoding. If it fails, return S."
|
||||
(let* ((lang (plist-get info :language))
|
||||
(translations (cdr (assoc lang
|
||||
(cdr (assoc s org-export-dictionary))))))
|
||||
(or (plist-get translations encoding)
|
||||
(plist-get translations :default)
|
||||
s)))
|
||||
|
||||
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue