bug#13287: [PATCH] table.el: Wiki export

bug#13287: [PATCH] table.el: Wiki export

[Aaron S. Hawley]

[-- Attachment #1: Type: text/plain, Size: 626 bytes --]

This patch adds support for exporting Emacs tables to Wiki and
MediaWiki source.  The Wiki format is a generally accepted table
format used by various Wiki engines.

This patch is the minimal implementation for exporting these formats.
It doesn't do any quoting (of the table syntax characters) and might
not do the correct thing for multiple line cells.  Making it work in
these situations might take some rework of the exporting facilities in
table.el

Thanks for Emacs,
/a

-- 
In general, we reserve the right to have a poor
memory--the computer, however, is supposed to
remember!  Poor computer.  -- Guy Lewis Steele Jr.

[-- Attachment #2: table.el.diff --]
[-- Type: application/octet-stream, Size: 4015 bytes --]

2012-12-17  Aaron S. Hawley  <aaron.s.hawley@gmail.com>

        * table.el (table-source-languages)
        (table--generate-source-prologue)
        (table--generate-source-epilogue)
        (table--generate-source-scan-rows)
        (table--generate-source-cells-in-a-row)
        (table--generate-source-cell-contents): Add wiki and mediawiki.

--- table.el	2012-12-17 11:05:21.635770100 -0500
+++ table.el	2012-12-17 11:09:23.122916400 -0500
@@ -888,7 +888,7 @@
   (push '(table-mode-indicator (table-fixed-width-mode " Fixed-Table" " Table"))
         minor-mode-alist))
 
-(defconst table-source-languages '(html latex cals)
+(defconst table-source-languages '(html latex cals wiki mediawiki)
   "Supported source languages.")
 (defvar table-source-info-plist nil
   "General storage for temporary information used while generating source.")
@@ -3081,6 +3081,9 @@
       (table-put-source-info 'row-type (if (zerop table-cals-thead-rows) "tbody" "thead"))
       (set-marker-insertion-type (table-get-source-info 'colspec-marker) nil) ;; insert after
       (insert (format "    <%s valign=\"top\">\n" (table-get-source-info 'row-type))))
+     ((eq language 'mediawiki)
+      (insert (format "<!-- This HTML table template is generated by Emacs %s -->\n" emacs-version))
+      (insert "{|\n"))
      )))
 
 (defun table--generate-source-epilogue (dest-buffer language _col-list _row-list)
@@ -3098,6 +3101,8 @@
 	(dolist (col (sort (table-get-source-info 'colnum-list) '<))
           (insert (format "    <colspec colnum=\"%d\" colname=\"c%d\"/>\n" col col))))
       (insert (format "    </%s>\n  </tgroup>\n</table>\n" (table-get-source-info 'row-type))))
+     ((eq language 'mediawiki)
+      (insert "|}\n"))
      )))
 
 (defun table--generate-source-scan-rows (dest-buffer language _origin-cell col-list row-list)
@@ -3110,6 +3115,11 @@
 	(insert "  <tr>\n"))
        ((eq language 'cals)
 	(insert "      <row>\n"))
+       ((eq language 'wiki)
+	(insert "|"))
+       ((and (eq language 'mediawiki)
+             (> (table-get-source-info 'current-row) 1))
+	(insert "|-\n"))
        ))
     (table--generate-source-cells-in-a-row dest-buffer language col-list row-list)
     (with-current-buffer dest-buffer
@@ -3120,7 +3130,10 @@
 	(insert "      </row>\n")
 	(unless (/= (table-get-source-info 'current-row) table-cals-thead-rows)
 	  (insert (format "    </%s>\n" (table-get-source-info 'row-type)))
-	  (insert (format "    <%s valign=\"top\">\n" (table-put-source-info 'row-type "tbody")))))))
+	  (insert (format "    <%s valign=\"top\">\n" (table-put-source-info 'row-type "tbody")))))
+       ((eq language 'wiki)
+	(insert "|\n"))
+       ))
     (table-put-source-info 'current-row (1+ (table-get-source-info 'current-row)))
     (setq row-list (cdr row-list))))
 
@@ -3189,6 +3202,8 @@
 		       (not (memq valign '(top none))))
 		  (insert " valign=\"" (symbol-name valign) "\""))
 	      (insert ">\n"))
+	     ((memq language '(wiki mediawiki))
+	      (insert "|"))
 	     ))
 	  (table--generate-source-cell-contents dest-buffer language cell)
 	  (with-current-buffer dest-buffer
@@ -3197,6 +3212,10 @@
 	      (insert (format"    </%s>\n" (table-get-source-info 'cell-type))))
 	     ((eq language 'cals)
 	      (insert "        </entry>\n"))
+	     ((eq language 'wiki)
+	      (insert "|"))
+	     ((eq language 'mediawiki)
+	      (insert ?\n))
 	     ))
 	  (table-forward-cell 1 t)
 	  (table-put-source-info 'current-column (table-get-source-info 'next-column))
@@ -3236,11 +3255,12 @@
     (with-current-buffer dest-buffer
       (let ((beg (point)))
 	(insert cell-contents)
-	(indent-rigidly beg (point)
-			(cond
-			 ((eq language 'html) 6)
-			 ((eq language 'cals) 10)))
-	(insert ?\n)))))
+	(when (memq language '(html cals))
+	  (indent-rigidly beg (point)
+			  (cond
+			   ((eq language 'html) 6)
+			   ((eq language 'cals) 10)))
+	(insert ?\n))))))
 
 (defun table--cell-horizontal-char-p (c)
   "Test if character C is one of the horizontal characters"

bug#13287: [PATCH] table.el: Wiki export

[Lars Ingebrigtsen]

"Aaron S. Hawley" <aaron.s.hawley@gmail.com> writes:

> This patch adds support for exporting Emacs tables to Wiki and
> MediaWiki source.  The Wiki format is a generally accepted table
> format used by various Wiki engines.
>
> This patch is the minimal implementation for exporting these formats.
> It doesn't do any quoting (of the table syntax characters) and might
> not do the correct thing for multiple line cells.  Making it work in
> these situations might take some rework of the exporting facilities in
> table.el

This seems reasonable, but how much are the wiki and MediaWiki formats
used as possible receptors for table.el output?  I'm not sure it seems
worth the code, but I may be totally wrong...

-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no

bug#13287: [PATCH] table.el: Wiki export

[Aaron S. Hawley]

> This seems reasonable, but how much are the wiki and MediaWiki formats
> used as possible receptors for table.el output?  I'm not sure it seems
> worth the code, but I may be totally wrong...

I was just trying to keep table.el relevant.  Of course, HTML, LaTeX
and DocBook remain so, but less and less.

bug#13287: [PATCH] table.el: Wiki export

[Lars Ingebrigtsen]

"Aaron S. Hawley" <aaron.s.hawley@gmail.com> writes:

>> This seems reasonable, but how much are the wiki and MediaWiki formats
>> used as possible receptors for table.el output?  I'm not sure it seems
>> worth the code, but I may be totally wrong...
>
> I was just trying to keep table.el relevant.  Of course, HTML, LaTeX
> and DocBook remain so, but less and less.

I'm not against the patch -- I'm just asking.  :-)

-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no

bug#13287: [PATCH] table.el: Wiki export

[Lars Ingebrigtsen]

Lars Ingebrigtsen <larsi@gnus.org> writes:

> "Aaron S. Hawley" <aaron.s.hawley@gmail.com> writes:
>
>>> This seems reasonable, but how much are the wiki and MediaWiki formats
>>> used as possible receptors for table.el output?  I'm not sure it seems
>>> worth the code, but I may be totally wrong...
>>
>> I was just trying to keep table.el relevant.  Of course, HTML, LaTeX
>> and DocBook remain so, but less and less.
>
> I'm not against the patch -- I'm just asking.  :-)

And I've now applied it to the Emacs trunk.

-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no