[babel] Passing an org table block to Eric Schulte's booktabs function

[babel] Passing an org table block to Eric Schulte's booktabs function

[Jeff Horn]

I've recently tried getting pretty tables in LaTeX export using Eric
Schulte's function from Worg:

    http://orgmode.org/worg/org-contrib/babel/languages/ob-doc-LaTeX.html#sec-5_2

The problem is that passing the table to the function produces an
error, specifically "wrong type of argument: listp".

Any ideas about what to do differently? Here's a quick example:

* Test Table
Have a look at Table \ref{tab:example}.
#+srcname: es-booktabs
#+begin_src emacs-lisp :var table='((:head) hline (:body)) :exports none
(flet ((to-tab (tab)
               (orgtbl-to-generic
                (mapcar (lambda (lis)
                          (if (listp lis)
                              (mapcar (lambda (el)
                                        (if (stringp el)
                                            el
                                          (format "%S" el))) lis)
                            lis)) tab)
                (list :lend " \\\\" :sep " & " :hline "\\hline"))))
  (org-fill-template
   "
\\toprule
%table
\\bottomrule\n"
   (list
    (cons "table"
          ;; only use \midrule if it looks like there are column headers
          (if (equal 'hline (second table))
              (concat (to-tab (list (first table)))
                      "\n\\midrule\n"
                      (to-tab (cddr table)))
            (to-tab table))))))
#+end_src
#+srcname: tab-example
#+begin_src org :results replace :exports none
       ,|            |   | Column Player |     |
       ,|------------+---+---------------+-----|
       ,| /          | < |               | >   |
       ,|            |   | A             | B   |
       ,| Row Player | A | 1,2           | 3,4 |
       ,|            | B | 5,6           | 7,8 |
#+end_src
#+begin_src latex :noweb yes
 \begin{table}[htb!]
   \centering
   \caption{A test table}
   \label{tab:example}
   \begin{tabular}{rl}
     <<es-booktabs(table=tab-example)>>
   \end{tabular}
 \end{table}
#+end_src

-- 
Jeffrey Horn
http://www.failuretorefrain.com/jeff/

Re: [babel] Passing an org table block to Eric Schulte's booktabs function

[Thomas S. Dye]

[-- Attachment #1.1: Type: text/plain, Size: 2491 bytes --]

Aloha Jeff,

Do the instructions here work for you?

http://orgmode.org/worg/org-tutorials/org-latex-export.html#sec-12_1

hth,
Tom

On Feb 21, 2011, at 9:34 AM, Jeff Horn wrote:

> I've recently tried getting pretty tables in LaTeX export using Eric
> Schulte's function from Worg:
>
>    http://orgmode.org/worg/org-contrib/babel/languages/ob-doc-LaTeX.html#sec-5_2
>
> The problem is that passing the table to the function produces an
> error, specifically "wrong type of argument: listp".
>
> Any ideas about what to do differently? Here's a quick example:
>
> * Test Table
> Have a look at Table \ref{tab:example}.
> #+srcname: es-booktabs
> #+begin_src emacs-lisp :var table='((:head) hline (:body)) :exports  
> none
> (flet ((to-tab (tab)
>               (orgtbl-to-generic
>                (mapcar (lambda (lis)
>                          (if (listp lis)
>                              (mapcar (lambda (el)
>                                        (if (stringp el)
>                                            el
>                                          (format "%S" el))) lis)
>                            lis)) tab)
>                (list :lend " \\\\" :sep " & " :hline "\\hline"))))
>  (org-fill-template
>   "
> \\toprule
> %table
> \\bottomrule\n"
>   (list
>    (cons "table"
>          ;; only use \midrule if it looks like there are column  
> headers
>          (if (equal 'hline (second table))
>              (concat (to-tab (list (first table)))
>                      "\n\\midrule\n"
>                      (to-tab (cddr table)))
>            (to-tab table))))))
> #+end_src
> #+srcname: tab-example
> #+begin_src org :results replace :exports none
>       ,|            |   | Column Player |     |
>       ,|------------+---+---------------+-----|
>       ,| /          | < |               | >   |
>       ,|            |   | A             | B   |
>       ,| Row Player | A | 1,2           | 3,4 |
>       ,|            | B | 5,6           | 7,8 |
> #+end_src
> #+begin_src latex :noweb yes
> \begin{table}[htb!]
>   \centering
>   \caption{A test table}
>   \label{tab:example}
>   \begin{tabular}{rl}
>     <<es-booktabs(table=tab-example)>>
>   \end{tabular}
> \end{table}
> #+end_src
>
> -- 
> Jeffrey Horn
> http://www.failuretorefrain.com/jeff/
>
> _______________________________________________
> Emacs-orgmode mailing list
> Please use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode


[-- Attachment #1.2: Type: text/html, Size: 5714 bytes --]

[-- Attachment #2: Type: text/plain, Size: 201 bytes --]

_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode