From fdb83958860163624138783117c30a6603301531 Mon Sep 17 00:00:00 2001 From: Jambunathan K Date: Wed, 31 Aug 2011 23:35:29 +0530 Subject: [PATCH] Introduced org-lparse-do-format-list-table * contrib/lisp/org-lparse.el (org-lparse-do-format-list-table): New. Factored out from `org-lparse-do-format-org-table'. (org-lparse-do-format-org-table): Use above function. (org-lparse-format-list-table): New. Wrapper for `org-lparse-do-format-list-table'. For future use. --- contrib/lisp/org-lparse.el | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/contrib/lisp/org-lparse.el b/contrib/lisp/org-lparse.el index 2c9a172a5..97fb90cff 100755 --- a/contrib/lisp/org-lparse.el +++ b/contrib/lisp/org-lparse.el @@ -1373,7 +1373,7 @@ for formatting. This is required for the DocBook exporter." (lambda (x) (string-match "^[ \t]*|-" x)) (cdr lines))))) (org-lparse-table-rownum -1) org-lparse-table-ncols i (cnt 0) - tbopen line fields + tbopen fields org-lparse-table-cur-rowgrp-is-hdr org-lparse-table-rowgrp-open org-lparse-table-num-numeric-items-per-column @@ -1383,6 +1383,12 @@ for formatting. This is required for the DocBook exporter." (org-lparse-table-style 'org-table) org-lparse-table-is-styled) (setq lines (org-lparse-org-table-to-list-table lines splice)) + + (org-lparse-do-format-list-table lines splice caption label attributes head))) + +(defun org-lparse-do-format-list-table (lines &optional splice + caption label attributes head) + (let (line) (cond (splice (setq org-lparse-table-is-styled nil) @@ -1407,6 +1413,11 @@ for formatting. This is required for the DocBook exporter." (org-lparse-do-format-org-table lines splice) (buffer-substring-no-properties (point-min) (point-max)))) +(defun org-lparse-format-list-table (lines &optional splice) + (with-temp-buffer + (org-lparse-do-format-list-table lines splice) + (buffer-substring-no-properties (point-min) (point-max)))) + (defun org-lparse-do-format-table-table (lines) "Format a table generated by table.el into backend-specific code. This conversion does *not* use `table-generate-source' from table.el. -- 2.11.4.GIT