daniel/emacs
1
2
Fork 0
Code Issues 7 Pull Requests Projects Releases Wiki Activity

add org article help

Browse Source
This commit is contained in:
Daniel Weschke
2022-05-16 19:20:47 +02:00
parent 47df597a99
commit 3e1f8743bd
2 changed files with 20 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
lisp/my/my-org-article.el
View File

@@ -649,8 +649,6 @@ Currently only one i.e. A.x is possible."
;;; LISTINGS lstlistingname for the caption of listings and lstlistlistingname for the table of listings ;;; LISTINGS lstlistingname for the caption of listings and lstlistlistingname for the table of listings
:lstlistingname-en "\\renewcommand{\\lstlistlistingname}{List of Listings}" :lstlistingname-en "\\renewcommand{\\lstlistlistingname}{List of Listings}"
:lstlistingname-de "\\renewcommand{\\lstlistingname}{Programmausdruck}\\renewcommand{\\lstlistlistingname}{Programmausdrucke}" :lstlistingname-de "\\renewcommand{\\lstlistingname}{Programmausdruck}\\renewcommand{\\lstlistlistingname}{Programmausdrucke}"
:siunitx-en ""
:siunitx-de "\\sisetup{locale = DE}"
) )
"Replacements. "Replacements.
:documentclass-xx used in :documentclass-xx used in
@@ -711,7 +709,6 @@ Replaces <<...>> with values defined in
%<<lstlistingname>> %<<lstlistingname>>
\\def\\nameappendix{Appendix} \\def\\nameappendix{Appendix}
%<<csquotes>> %<<csquotes>>
%<<siunitx>>
" "Preamble options. " "Preamble options.
Inserted after `my-org-article-latex-default-packages-alist'. Inserted after `my-org-article-latex-default-packages-alist'.
Text like <<...>>> will be replaced according to Text like <<...>>> will be replaced according to
@@ -1430,24 +1427,26 @@ Uses also `my-org-article-latex-template-value' with
snippet? snippet?
(mapconcat #'org-element-normalize-string (mapconcat #'org-element-normalize-string
(list (s-replace-all (list (s-replace-all
(list (if (plist-get info :draft) (list
(cons "%<<draft>>" ;; if draft is set in keyword options then replace otherwise remove placeholder
(my-org-article-latex-template-value :draft)) (if (plist-get info :article-draft)
(cons "%<<draft>>" "")) (cons "%<<draft>>"
(cons "%<<babel>>" (my-org-article-latex-template-value :draft))
(my-org-article-latex-template-value :babel lang)) (cons "%<<draft>>" ""))
(cons "%<<fontspec>>" (cons "%<<babel>>"
(my-org-article-latex-template-value :fontspec lang)) (my-org-article-latex-template-value :babel lang))
(cons "%<<ruby>>" (cons "%<<fontspec>>"
(my-org-article-latex-template-value :ruby lang)) (my-org-article-latex-template-value :fontspec lang))
(cons "%<<biblatex>>" (cons "%<<ruby>>"
(my-org-article-latex-template-value :biblatex lang)) (my-org-article-latex-template-value :ruby lang))
(cons "%<<csquotes>>" (cons "%<<biblatex>>"
(my-org-article-latex-template-value :csquotes lang)) (my-org-article-latex-template-value :biblatex lang))
(cons "%<<mtcselectlanguage>>" (cons "%<<csquotes>>"
(my-org-article-latex-template-value :mtcselectlanguage lang)) (my-org-article-latex-template-value :csquotes lang))
(cons "%<<lstlistingname>>" (cons "%<<mtcselectlanguage>>"
(my-org-article-latex-template-value :lstlistingname lang))) (my-org-article-latex-template-value :mtcselectlanguage lang))
(cons "%<<lstlistingname>>"
(my-org-article-latex-template-value :lstlistingname lang)))
(plist-get info :latex-header)) (plist-get info :latex-header))
(and (not snippet?) (and (not snippet?)
(plist-get info :latex-header-extra))) (plist-get info :latex-header-extra)))

0
lisp/my/my-org-article.org Normal file
View File