Re: [O] Bug: org-table latex export does not honour alignment [7.5]

[Arik Mitschang]

Hi Eric,

Thanks for the response. Yes, I'm aware of that, but it seems unnecessary when I
have already used the alignments in the table (and of course if you want HTML to
be the same alignment as latex then you would have to do both). I have a patch
that fixes this issue and behaves the same when alignment is not specified (or
is specified via the attr_latex). This patch is actually against org version
7.7. Not totally sure the best delivery method, but it is short so I include
here. Let me know what you think

Thanks,
-Arik

==========================================

diff -U3 /usr/local/share/emacs/site-lisp/org-latex.el
/Users/arikm/devel/org-latex-table-export-align-fix.el
--- /usr/local/share/emacs/site-lisp/org-latex.el       2011-07-28 
20:35:40.000000000
+1000
+++ /Users/arikm/devel/org-latex-table-export-align-fix.el      2011-09-08
16:31:32.000000000 +1000
@@ -1867,9 +1867,11 @@
              (org-table-last-alignment (copy-sequence 
org-table-last-alignment))
              (org-table-last-column-widths (copy-sequence
                                             org-table-last-column-widths))
+            (forced-aligns (org-find-text-property-in-string 
+                            'org-forced-aligns raw-table))
              fnum fields line lines olines gr colgropen line-fmt align
-             caption width shortn label attr floatp placement
-            longtblp tblenv tabular-env)
+             alignments caption width shortn label attr floatp
+             placement longtblp tblenv tabular-env)
         (if org-export-latex-tables-verbatim
             (let* ((tbl (concat "\\begin{verbatim}\n" raw-table
                                 "\\end{verbatim}\n")))
@@ -1944,12 +1946,21 @@
             (when (and (not org-export-latex-tables-column-borders)
                        (string-match "^\\(|\\)?\\(.+\\)|$" line-fmt))
               (setq line-fmt (match-string 2 line-fmt)))
+           ;; incorporate forced alignment defaulting to "right" alignment
+           (dotimes (i (length fields))
+             (let ((forced forced-aligns)
+                   (a "r"))
+               (while forced
+                 (when (= (car (car forced)) (- (length fields) i))
+                   (setq a (cdr (car forced))))
+                 (setq forced (cdr forced)))
+               (push a alignments)))
             ;; format alignment
             (unless align
               (setq align (apply 'format
                                  (cons line-fmt
-                                       (mapcar (lambda (x) (if x "r" "l"))
-                                               org-table-last-alignment)))))
+                                       (mapcar (lambda (x) x)
+                                              alignments)))))
             ;; prepare the table to send to orgtbl-to-latex
             (setq lines
                   (mapcar

=============================================