Re: [O] [PATCH] make options available for custom source environment in ox-latex

[Alan Schmitt]

On 2016-01-14 11:47, Nicolas Goaziou <address@hidden> writes:

>> Here is a small addition to the custom source environments for
>> ox-latex.
>
> Thank you. Some comments follow.
>
>> +                       (?o .
>> +                           ,(let ((local-options (plist-get attributes 
>> :options)))
>> +                              (if local-options local-options ""))))))))
>
> Shorter:
>
>   (?o . ,(or (plist-get attributes :options) ""))
>
> I think this should also be documented in
> `org-latex-custom-lang-environments' docstring.
>
> Could you send an updated patch?

Thanks a lot for these comments. Here is an updated patch.

Best,

Alan

From 749ea7dc9e8d6d85c2d05a16e881b948d8c74ee9 Mon Sep 17 00:00:00 2001
From: Alan Schmitt <address@hidden>
Date: Wed, 13 Jan 2016 16:03:40 +0100
Subject: [PATCH] ox-latex: Add option support to custom environment

* lisp/ox-latex.el (org-latex-src-block): make the options from
  attr_latex available to the custom environment using %o.
---
 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 a57677b..7f889d7 100644
--- a/lisp/ox-latex.el
+++ b/lisp/ox-latex.el
@@ -1034,13 +1034,14 @@ exported.  This format string may contain these 
elements:
   %c for the caption
   %f for the float attribute
   %l for an appropriate label 
+  %o for the LaTeX attributes
 
 For example,
 
   (setq org-latex-custom-lang-environments
      '((python \"pythoncode\")
        (ocaml \"\\\\begin{listing}
-\\\\begin{minted}{ocaml}
+\\\\begin{minted}[%o]{ocaml}
 %s\\\\end{minted}
 \\\\caption{%c}
 \\\\label{%l}\")))
@@ -1056,7 +1057,7 @@ and if Org encounters an Ocaml source block during LaTeX 
export it
 will produce
 
   \\begin{listing}
-  \\begin{minted}{ocaml}
+  \\begin{minted}[<attr_latex options>]{ocaml}
   <src block body>
   \\end{minted}
   \\caption{<caption>}
@@ -2802,7 +2803,8 @@ contextual information."
                         `((?s . ,formatted-src)
                           (?c . ,caption)
                           (?f . ,float)
-                          (?l . ,(org-latex--label src-block info)))))))
+                          (?l . ,(org-latex--label src-block info))
+                          (?o . ,(or (plist-get attributes :options) "")))))))
        ;; Case 3.  Use minted package.
        ((eq listings 'minted)
        (let* ((caption-str (org-latex--caption/label-string src-block info))
-- 
2.7.0


-- 
OpenPGP Key ID : 040D0A3B4ED2E5C7
Athmospheric CO₂ (Updated January 13, 2016, Mauna Loa Obs.): 401.97 ppm

signature.asc
Description: PGP signature