[O] [PATCH] ox-latex.el: Extend :placement attribute to source blocks

[Mario Schlegel]

* lisp/ox-latex.el (org-latex-src-block): Extend :placement attribute
to source blocks when the minted package is used.

TINYCHANGE
---
 lisp/ox-latex.el | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/lisp/ox-latex.el b/lisp/ox-latex.el
index 1f1be240a..77aac78f4 100644
--- a/lisp/ox-latex.el
+++ b/lisp/ox-latex.el
@@ -2957,21 +2957,23 @@ contextual information."
        ;; Case 3.  Use minted package.
        ((eq listings 'minted)
        (let* ((caption-str (org-latex--caption/label-string src-block info))
+              (placement (or (org-unbracket-string "[" "]" (plist-get 
attributes :placement))
+                             (plist-get info :latex-default-figure-position)))
               (float-env
                (cond
                 ((string= "multicolumn" float)
                  (format "\\begin{listing*}[%s]\n%s%%s\n%s\\end{listing*}"
-                         (plist-get info :latex-default-figure-position)
+                         placement
                          (if caption-above-p caption-str "")
                          (if caption-above-p "" caption-str)))
                 (caption
                  (format "\\begin{listing}[%s]\n%s%%s\n%s\\end{listing}"
-                         (plist-get info :latex-default-figure-position)
+                         placement
                          (if caption-above-p caption-str "")
                          (if caption-above-p "" caption-str)))
                 ((string= "t" float)
                  (concat (format "\\begin{listing}[%s]\n"
-                                 (plist-get info 
:latex-default-figure-position))
+                                 placement)
                          "%s\n\\end{listing}"))
                 (t "%s")))
               (options (plist-get info :latex-minted-options))
-- 
2.23.0