Not scape braces in LaTeX org-mode

Question

I am writting a LaTeX document using org-mode, and there is a section where I want to include a proof, which has the following code.

#+LaTeX_HEADER: \newcommand{\dem}[1]{\textcolor{gris}{\small{Demostración. #1}}}

If I write

\dem{(1) Esto es una demostración}

There is nothing wrong when exporting to LaTeX, and the text appears formated correctly. However, if I add an equation with some braces in it, like

\dem{Esto es una demostración con ecuación: \(x = x^{-2}\)}

then, the document is exported as

\dem\{Esto es una demostración con ecuación: \(x = x^{-2}\)\}

and the format is not correct. Is there any way I can "escape" those curly braces in my org-mode text to format the text correctly?

Answer 1

I don't know the reason why this happens. I've found a quick fix for the problem though.

#+BEGIN_EXPORT latex
\dem{Esto es una demostración con ecuación: \(x = x^{-2}\)}
#+END_EXPORT

Works fine

Answer 2

org-element-latex-fragment-parser is too simple to scope with nested brace-delimited lists as arguments of latex macros.

The following advice for org-element-latex-fragment-parser replaces the LaTeX macro parsing with a version that parses LaTeX arguments as sexps.

(require 'tex-mode)

(defun bugfix-org-forward-latex-sexp (&optional start count)
  "Scan forward COUNT sexps starting with character START.
COUNT defaults to 1.
Skip over any sexp if START is not given.
Scanning stops at the end of the current line."
  (let ((line-end (line-end-position))
    state pos)
    (unless count (setq count 1))
    (while (and
        (> count 0)
        (or (null start)
        (eq (char-after) start))
        (save-excursion
          (with-syntax-table
          tex-mode-syntax-table
        (setq state (parse-partial-sexp (point) ;; from
                        line-end ;; to
                        0 ;; targetdepth for forward-sexp
                        nil ;; stopbefore
                        state ;; oldstate
                        )
              pos (point))
        (null (> (nth 0 state) 0) ;; depth
              ))))
      (goto-char pos)
      (cl-decf count))
    pos))

(defun bugfix-org-element-latex-fragment-parser (fun)
  "See `org-element-latex-fragment-parser'.
This bugfix parses arguments of LaTeX macros as sexps."
  (let ((begin (point))
    (latex-macro (looking-at "\\\\[a-zA-Z]+\\*?")))
    (if latex-macro
    (progn
      (goto-char (match-end 0))
      ;; scan optional arguments
      (bugfix-org-forward-latex-sexp ?\[ (buffer-size))
      ;; scan brace-delimited argument
      (bugfix-org-forward-latex-sexp ?\{)
      (let ((fragment (buffer-substring-no-properties begin (point)))
        (post-blank (skip-chars-forward " \t")))
        (list 'latex-fragment
          (list :value fragment
            :begin begin
            :end (point)
            :post-blank post-blank))))
      (funcall fun))))

(advice-add 'org-element-latex-fragment-parser :around #'bugfix-org-element-latex-fragment-parser)