Advertisement
Guest User

Untitled

a guest
Aug 21st, 2017
84
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.88 KB | None | 0 0
  1. #+LANGUAGE: fr
  2.  
  3. (defconst org-export-dictionary
  4. ...
  5. ("Table of Contents"
  6. ...
  7. ("sr" :html "Sadržaj" :utf-8 "Sadržaj")
  8. ...)
  9. ...)
  10.  
  11. (defun org-export-translate-to-lang (term-translations &optional lang)
  12. "Adds desired translations to `org-export-dictionary'.
  13. TERM-TRANSLATIONS is alist consisted of term you want to translate
  14. and its corresponding translation, first as :default then as :html and
  15. :utf-8. LANG is language you want to translate to."
  16. (dolist (term-translation term-translations)
  17. (let* ((term (car term-translation))
  18. (translation-default (nth 1 term-translation))
  19. (translation-html (nth 2 term-translation))
  20. (translation-utf-8 (nth 3 term-translation))
  21. (term-list (assoc term org-export-dictionary))
  22. (term-langs (cdr term-list)))
  23. (setcdr term-list (append term-langs
  24. (list
  25. (list lang
  26. :default translation-default
  27. :html translation-html
  28. :utf-8 translation-utf-8)))))))
  29.  
  30. (org-export-translate-to-lang '(("Table of Contents"
  31. "Sadržaj"
  32. "Sadržaj"
  33. "Sadržaj")
  34. ("Another term"
  35. "coilogji"))
  36. "sr")
  37.  
  38. #+LANGUAGE: fr
  39.  
  40. #+LANGUAGE: fr
  41. #+LATEX_HEADER: usepackage[AUTO]{babel}
  42.  
  43. #+LANGUAGE: br
  44. #+LATEX_HEADER: usepackage[breton]{babel}
  45.  
  46. #+LANGUAGE: en
  47. #+LATEX_HEADER: usepackage[AUTO]{babel}
  48. #+LATEX_HEADER: addtocaptionsenglish{renewcommandcontentsname{Outline}}
  49.  
  50. #+LATEX_HEADER: renewcommand*{contentsname}{My Table of Contents Header}
  51.  
  52. Symbol's value as variable is void: org-export-dictionary
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement