[nongnu] elpa/paredit 8b38538 190/224: A little more HTML tweaking. Not perfect, but enough for the day.

[ELPA Syncer]

branch: elpa/paredit
commit 8b3853883c66910e6a2564a0774cdb5b61481997
Author: Taylor R Campbell <campbell@mumble.net>
Commit: Taylor R Campbell <campbell@mumble.net>

    A little more HTML tweaking.  Not perfect, but enough for the day.
---
 paredit.el | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/paredit.el b/paredit.el
index 2083066..87b428b 100644
--- a/paredit.el
+++ b/paredit.el
@@ -549,20 +549,22 @@ Paredit behaves badly if parentheses are unbalanced, so 
exercise
                         keys
                         ", ")))
         (funcall insert-lines "<tr>")
-        (funcall insert-lines (concat "  <th>" name "</th>"))
-        (funcall insert-lines (concat "  <th>" keys "</th>"))
+        (funcall insert-lines (concat "  <th align=\"left\">" keys "</th>"))
+        (funcall insert-lines (concat "  <th align=\"left\">" name "</th>"))
         (funcall insert-lines "</tr>")
         (funcall insert-lines
-                 "<tr><td colspan=\"2\"><table cellpadding=\"10\">")
+                 "<tr><td colspan=\"2\"><table cellpadding=\"5\"><tr>")
         (dolist (example examples)
-          (let ((prefix "<tr><td><pre>")
+          (let ((prefix "<td><table border=\"1\"><tr><td><table><tr><td><pre>")
                 (examples
                  (mapconcat 'paredit-html-quote
                             example
-                            (concat "</pre></td><td>&rarr;</td><td><pre>")))
-                (suffix "</pre></td></tr>"))
+                            (concat "</pre></td></tr>"
+                                    "<tr><th>&darr;</th></tr>"
+                                    "<tr><td><pre>")))
+                (suffix "</pre></td></tr></table></td></tr></table></td>"))
             (funcall insert-lines (concat prefix examples suffix))))
-        (funcall insert-lines "</table></td></tr>")))
+        (funcall insert-lines "</tr></table></td></tr>")))
     (funcall insert-lines "</table>")))
 
 (defun paredit-html-quote (string)