tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org-e-groff.el (org-e-groff-table--align-string): Small code cleanup. 

* org-e-groff.el (org-e-groff-table--align-string): Small code
cleanup.
This commit is contained in:
Bastien Guerry 2012-08-08 18:48:14 +02:00
parent a3778633c5
commit c81bb45d23
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
contrib/lisp/org-e-groff.el
View File

@ -1572,20 +1572,16 @@ a communication channel."
(width-cm (when raw-width (/ raw-width 5)))
(width (if raw-width (format "w(%dc)"
(if (< width-cm 1) 1 width-cm)) "")))
;; Check left border for the first cell only.
;; Alignment is nil on assignment
(when (and (memq 'left borders) (not alignment))
(push "|" alignment)) ;; Not nil after push
(push "|" alignment))
(push
(case (org-export-table-cell-alignment cell info)
(left (concat "l" width divider))
(right (concat "r" width divider))
(center (concat "c" width divider)))
(left (concat "l" width divider))
(right (concat "r" width divider))
(center (concat "c" width divider)))
alignment)
(when (memq 'right borders) (push "|" alignment))))
info)
(apply 'concat (reverse alignment))))