add org article help

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
 %<<lstlistingname>>
 \\def\\nameappendix{Appendix}
 %<<csquotes>>
-%<<siunitx>>
 " "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 "%<<draft>>"
-                            (my-org-article-latex-template-value :draft))
-                    (cons "%<<draft>>" ""))
-                  (cons "%<<babel>>"
-                        (my-org-article-latex-template-value :babel lang))
-                  (cons "%<<fontspec>>"
-                        (my-org-article-latex-template-value :fontspec lang))
-                  (cons "%<<ruby>>"
-                        (my-org-article-latex-template-value :ruby lang))
-                  (cons "%<<biblatex>>"
-                        (my-org-article-latex-template-value :biblatex lang))
-                  (cons "%<<csquotes>>"
-                        (my-org-article-latex-template-value :csquotes lang))
-                  (cons "%<<mtcselectlanguage>>"
-                        (my-org-article-latex-template-value :mtcselectlanguage lang))
-                  (cons "%<<lstlistingname>>"
-                        (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 "%<<draft>>"
+                       (my-org-article-latex-template-value :draft))
+               (cons "%<<draft>>" ""))
+             (cons "%<<babel>>"
+                   (my-org-article-latex-template-value :babel lang))
+             (cons "%<<fontspec>>"
+                   (my-org-article-latex-template-value :fontspec lang))
+             (cons "%<<ruby>>"
+                   (my-org-article-latex-template-value :ruby lang))
+             (cons "%<<biblatex>>"
+                   (my-org-article-latex-template-value :biblatex lang))
+             (cons "%<<csquotes>>"
+                   (my-org-article-latex-template-value :csquotes lang))
+             (cons "%<<mtcselectlanguage>>"
+                   (my-org-article-latex-template-value :mtcselectlanguage lang))
+             (cons "%<<lstlistingname>>"
+                   (my-org-article-latex-template-value :lstlistingname lang)))
             (plist-get info :latex-header))
 			  (and (not snippet?)
 			       (plist-get info :latex-header-extra)))