diff --git a/lisp/my/my-org-article.el b/lisp/my/my-org-article.el index 97933850..e5e447a7 100644 --- a/lisp/my/my-org-article.el +++ b/lisp/my/my-org-article.el @@ -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 :lstlistingname-en "\\renewcommand{\\lstlistlistingname}{List of Listings}" :lstlistingname-de "\\renewcommand{\\lstlistingname}{Programmausdruck}\\renewcommand{\\lstlistlistingname}{Programmausdrucke}" - :siunitx-en "" - :siunitx-de "\\sisetup{locale = DE}" ) "Replacements. :documentclass-xx used in @@ -711,7 +709,6 @@ Replaces <<...>> with values defined in %<> \\def\\nameappendix{Appendix} %<> -%<> " "Preamble options. Inserted after `my-org-article-latex-default-packages-alist'. Text like <<...>>> will be replaced according to @@ -1430,24 +1427,26 @@ Uses also `my-org-article-latex-template-value' with snippet? (mapconcat #'org-element-normalize-string (list (s-replace-all - (list (if (plist-get info :draft) - (cons "%<>" - (my-org-article-latex-template-value :draft)) - (cons "%<>" "")) - (cons "%<>" - (my-org-article-latex-template-value :babel lang)) - (cons "%<>" - (my-org-article-latex-template-value :fontspec lang)) - (cons "%<>" - (my-org-article-latex-template-value :ruby lang)) - (cons "%<>" - (my-org-article-latex-template-value :biblatex lang)) - (cons "%<>" - (my-org-article-latex-template-value :csquotes lang)) - (cons "%<>" - (my-org-article-latex-template-value :mtcselectlanguage lang)) - (cons "%<>" - (my-org-article-latex-template-value :lstlistingname lang))) + (list + ;; if draft is set in keyword options then replace otherwise remove placeholder + (if (plist-get info :article-draft) + (cons "%<>" + (my-org-article-latex-template-value :draft)) + (cons "%<>" "")) + (cons "%<>" + (my-org-article-latex-template-value :babel lang)) + (cons "%<>" + (my-org-article-latex-template-value :fontspec lang)) + (cons "%<>" + (my-org-article-latex-template-value :ruby lang)) + (cons "%<>" + (my-org-article-latex-template-value :biblatex lang)) + (cons "%<>" + (my-org-article-latex-template-value :csquotes lang)) + (cons "%<>" + (my-org-article-latex-template-value :mtcselectlanguage lang)) + (cons "%<>" + (my-org-article-latex-template-value :lstlistingname lang))) (plist-get info :latex-header)) (and (not snippet?) (plist-get info :latex-header-extra))) diff --git a/lisp/my/my-org-article.org b/lisp/my/my-org-article.org new file mode 100644 index 00000000..e69de29b