@@ -3305,6 +3310,21 @@
This function assumes TABLE has `table.el' as its `:type'
property."
+ (let* ((caption (org-latex--caption/label-string table info))
+ (attr (org-export-read-attribute :attr_latex table))
+ ;; Determine alignment string.
+ (alignment (org-latex--align-string table info))
+ ;; Determine environment for the table: longtable, tabular...
+ (table-env (or (plist-get attr :environment)
+ (plist-get info :latex-default-table-environment)))
+ ;; If table is a float, determine environment: table, table*
+ ;; or sidewaystable.
+ (placement
+ (or (plist-get attr :placement)
+ (format "[%s]" (plist-get info :latex-default-figure-position))))
+ (centerp (if (plist-member attr :center) (plist-get attr :center)
+ (plist-get info :latex-tables-centered)))
+ (caption-above-p (org-latex--caption-above-p table info)))
(require 'table)
;; Ensure "*org-export-table*" buffer is empty.
(with-current-buffer (get-buffer-create "*org-export-table*")
@@ -3332,7 +3352,16 @@
(let ((centerp (if (plist-member attr :center) (plist-get attr :center)
(plist-get info :latex-tables-centered))))
(if (not centerp) output
- (format "\\begin{center}\n%s\n\\end{center}" output))))))
+ (if (string= "" caption)
+ (format (concat "\\begin{center}\n"
+ "%s\n"
+ "\\end{center}\n") output)
+ (format (concat "\\begin{table}\n"
+ caption
+ "\\centering\n"
+ "%s\n"
+ "\\end{table}\n") output))
+ ))))))
(defun org-latex--math-table (table info)
"Return appropriate LaTeX code for a matrix.