Propuestas para una gestión multilingüe en Org Mode (un primer apunte)

A lo largo de mi trabajo en Org Mode —especialmente cuando lo uso como interfaz de alto nivel para LATEX—, una de las cosas que más vengo echando en falta es un consistente soporte multilingüe, especialmente asociado a las posibilidades de exportación. Cuando nos referimos a «soporte multilingüe» queremos decir un sistema parecido a lo que hace el paquete babel en LATEX: definir una lengua principal para el documento junto a la posibilidad de definir también una serie de lenguas «secundarias» para activarlas o desactivarlas a voluntad sobre tramos de texto determinados. Por desgracia, la situación dista mucho de ser ésa.

Los documentos de Org, en efecto, son monolingües de fábrica. Podemos indicar una lengua principal mediante la directiva #+LANGUAGE:, y según sea la lengua que hayamos escogido, Org tomará una serie de decisiones a la hora de exportar el documento. Dichas decisiones pueden concertarse perfectamente con la opción de exportación ':t, que se encargará de escoger las comillas adecuadas, de primer o segundo nivel, para la lengua en cuestión: una suerte de funcionalidad de «comillas inteligentes», aunque no tan poderosa como la que ofrece el paquete para LATEX csquotes.

Por supuesto, Org ofrece también los recursos y herramientas necesarias para salvar estas limitaciones. Una cosa que yo venía usando bastante, especialmente para los comandos del paquete babel de LATEX \foreignlanguage{lengua}{texto}, cuando se trata de texto extranjero dentro de un párrafo, eran las polivalentes macros de sustitución. Por ejemplo, podemos definir esta macro lg que evalúa un condicional en Elisp. Si la exportación es a LATEX, toma como segundo argumento (el primero es la lengua escogida) el tramo de texto a encerrar dentro del segundo argumento de la macro \foreignlanguage. Si la exportación es a otro formato, de momento, devuelve sólo el segundo argumento, es decir, el texto. Si luego queremos afinar más con otras salidas, podemos aplicar un multi-condicional del estilo cond, pero no es el caso pues aquí lo que necesitaba era la salida a LATEX:

#+MACRO: lg (eval (if (org-export-derived-backend-p org-export-current-backend 'latex) (concat "@@latex:\\foreignlanguage{@@" $1 "@@latex:}{@@" "\u200B" $2 "\u200B" "@@latex:}@@") $2))

Así, podríamos poner en nuestro documento algo como esto:

Lorem ipsum dolor sit amet, {{{lg(english,consectetuer adipiscing elit)}}}.

que nos entregaría este esperable resultado en LATEX:

Lorem ipsum dolor sit amet, \foreignlanguage{english}{consectetuer adipiscing elit}.

Bien, este sistema, aunque nos viene a hacer el apaño, adolece de ciertos inconvenientes que sólo con el uso continuado he ido más o menos solventando. A saber:

• Obsérvese que en la definición de la macro, justo antes y después del segundo argumento, he concatenado el carácter Unicode U+200B (ZERO WIDTH SPACE), para evitar que cualquier marca de énfasis de Org se exporte literalmente (lo que no se pretende) en contacto con las llaves de inicio o cierre del argumento en LATEX¹. O sea, que esto:

  {{{lg(english,/consectetuer/ adipiscing elit)}}}.
  

  entregue esto:

  \foreignlanguage{english}{\emph{consectetuer} adipiscing elit}.
  

  y no esto:

  \foreignlanguage{english}{/consectetuer/ adipiscing elit}.
  

• Otro inconveniente, éste mucho más engorroso, es el hecho de que el propio signo de separación de macros en Org, la coma, puede interferir claramente en el segundo argumento de la macro, al ser de naturaleza textual. Si queremos incluir allí una coma literal, debemos precederla de una barra invertida como carácter de escape:

  {{{lg(english,consectetuer adipiscing elit\, y mucho texto más)}}}.
  

  o, de lo contrario, la macro se exportará mal y el tramo de texto que queda tras la coma no aparecerá. Tener que escapar un signo tan habitual como una coma es una pesadez, y no es raro que nos olvidemos más de una vez de hacerlo. Para evitar estos lapsus (que nos pueden destrozar sin querer el documento de salida), tuve que apañármelas con esta función:

  (defun arregla-comas-macro-org ()
      (interactive)
      (let
          ((x (make-marker))
           (y (make-marker)))
        (save-excursion
          (goto-char (point-min))
          (while
              (re-search-forward "{{{lg(\\b[a-z]+\\b," nil t)
            (set-marker x  (point))
            (re-search-forward ")}}}" nil t)
            (set-marker y (point))
            (save-restriction
              (narrow-to-region x y)
              (reemplaza "\\([^\\\\]\\)," "\\1\\\\,"))))))
  

  y anclarla, siquiera de manera local, a un before-save-hook.

En fin, todo este sistema de las macros, si bien funciona perfectamente cuando se van limando contratiempos, no deja de ser un remiendo, en parte porque estamos llevando el recurso de las macros de sustitución casi al límite. De modo que me puse a barajar otras posibilidades.

A mi modo de ver, las soluciones al problema multilingüe de Org deben repartirse entre dos niveles diferenciados: un nivel intra-párrafo (in line) y un nivel supra-párrafo, necesario para acotar bloques de texto individualizados dentro del flujo de texto general.