table.rkt

table.rkt

#lang racket
(require "latex.rkt")

(provide
  table
  table-env
  tabular)

(define (table #:config [config null] headers . body)
  (table-env
    (apply 
      (curry tabular #:config config headers) 
      body)))

(define (table-env . body)
  (beg #:opt "!htb" "table"
    (list
      (command "centering")
      "\n"
      body)))

(define (tabular #:config [config null] headers . entries)
  (when (null? config) 
    (set! config
      (make-list (length headers) "l"))) 
      
  (beg #:arg config "tabular"
    (list
      (command "toprule")
      (intersperse "&" headers)
      (command "\\")
      (command "midrule")
      "\n"
      (map
        (lambda (x) 
          (list 
            (intersperse " & " x)
            (command "\\\n")))
        entries)
      (command "bottomrule"))))