LaTeX export filter

LaTeX export filter

[Vikas Rawal]

Let me start by confessing my limited knowledge of lisp.

I am trying to write a LaTeX export filter that should replace all table rows with cells having entries such as <3cid4> by \cmidrule{lr}{3-4}

The idea is to have a table row of this kind

| <2cid3> |           <4cid5> |        <6cid7>             |                   |                                           |                   |                   |

Which should be exported to 

\cmidrule(lr){2-3} \cmidrule(lr){4-5} \cmidrule(lr){6-7}

This is as far as I have gone.

------

(defun org-export-cmidrule-filter-latex (row backend info)
  (while (string-match
          "\\(<\\([0-9]+\\)cid\\([0-9]+\\)?>[[:blank:]]*\\([^&]+\\)\\)" row)
    (let ((start (string-to-number (match-string 2 row)))
          (end (or (match-string 3 row) "l")))
      (setq row (replace-match
                 (format "\\\\cmidrule(lr){%s-%s}" start end)
                 nil nil row 1))
      (while (string-match "& \\| \\\\\\\\" row 0)
        (setq row (replace-match "" nil nil row))
        (decf start))
      )
    )
  row)

------

The above filter works if I have only one or two <[0-9]cid[0-9]> strings in a row. It does not pick up the third <[0-9]cid[0-9]> string.

I would greatly appreciate if anyone could help improve this filter.

Vikas

Re: LaTeX export filter

[Eric S Fraga]

[-- Attachment #1: Type: text/plain, Size: 476 bytes --]

On Saturday, 24 Mar 2018 at 22:24, Vikas Rawal wrote:
> I am trying to write a LaTeX export filter that should replace all
> table rows with cells having entries such as <3cid4> by
> \cmidrule{lr}{3-4}

[...]

>   (while (string-match
>           "\\(<\\([0-9]+\\)cid\\([0-9]+\\)?>[[:blank:]]*\\([^&]+\\)\\)" row)

Could it be that you need to change the last + to *?
Haven't tried it, mind you.
-- 
Eric S Fraga via Emacs 27.0.50, Org release_9.1.6-341-g3a4fd3

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 194 bytes --]

Re: LaTeX export filter

[Vikas Rawal]

> 
> 
> 
>> 
>>> (while (string-match
>>>         "\\(<\\([0-9]+\\)cid\\([0-9]+\\)?>[[:blank:]]*\\([^&]+\\)\\)" row)
>> 
>> Could it be that you need to change the last + to *?
>> Haven't tried it, mind you.
>> -- 
> 
> That does not change the result. Still pick only two.
> 
> Vikas
> 

Re: LaTeX export filter

[Vikas Rawal]

> 
>> 
>> 
>>> 
>>>> (while (string-match
>>>>        "\\(<\\([0-9]+\\)cid\\([0-9]+\\)?>[[:blank:]]*\\([^&]+\\)\\)" row)
>>> 
>>> Could it be that you need to change the last + to *?
>>> Haven't tried it, mind you.
>>> -- 
>> 
> 
> The problem is in this part of the code:
> 
>     (while (string-match "& \\| \\\\\\\\" row 0)
>       (setq row (replace-match "" nil nil row))
>       (decf start))
> 
> If I comment it, I get three \cmidrule latex commands, but with &s and \\
> 
> Somehow, the above lines replace more than just &s and \\.
> 
> Vikas
>