* bug#19444: shr-tag-table: the value passed to shr-tag-table-1 is not a DOM
@ 2014-12-26 17:27 Ivan Shmakov
2014-12-28 14:06 ` Lars Ingebrigtsen
0 siblings, 1 reply; 2+ messages in thread
From: Ivan Shmakov @ 2014-12-26 17:27 UTC (permalink / raw)
To: 19444
[-- Attachment #1: Type: text/plain, Size: 3238 bytes --]
Package: emacs
As of 36c43e95de5e (2014-12-18 16:44:11 +0000), shr-tag-table
fails to pass a valid DOM value to shr-tag-table-1 when the
table contains a thead, tfoot, or caption element (or any
combination thereof.) Consider, e. g.:
(with-temp-buffer
(mapcar (lambda (table)
(erase-buffer)
(let ((r (shr-tag-table table)))
(cons r (buffer-string))))
'((table nil
(thead nil (tr nil (th nil "Foo") (th nil "Bar")))
(tbody nil (tr nil (th nil "Baz") (th nil "Qux"))))
(table nil
(thead nil (tr nil (th nil "Foo") (th nil "Bar")))
(tr nil (th nil "Baz") (th nil "Qux")))
(table nil
(tr nil (th nil "Foo") (th nil "Bar"))
(tfoot nil (tr nil (th nil "Baz") (th nil "Qux"))))
(table nil
(caption nil "Hello, world!")
(tr nil (th nil "Foo") (th nil "Bar"))
(tr nil (th nil "Baz") (th nil "Qux")))
(table nil
(tr nil (th nil "Foo") (th nil "Bar"))
(tr nil (th nil "Baz") (th nil "Qux"))))))
; → ((nil . "") (nil . "") (nil . "") (nil . "")
; (nil . " Foo Bar \n Baz Qux \n"))
The reasons to this are twofold. First of all, shr-tag-table
generally assumes that the value of header and footer locals
(and body, – if at least one of header, footer is non-nil) are
lists of elements, while they are in fact DOM values:
1440 (defun shr-tag-table (dom)
1441 (shr-ensure-paragraph)
1442 (let* ((caption (dom-child-by-tag dom 'caption))
1443 (header (dom-child-by-tag dom 'thead))
1444 (body (or (dom-child-by-tag dom 'tbody) dom))
1445 (footer (dom-child-by-tag dom 'tfoot))
Suppose that (thead nil (tr nil (th nil "Foo") (th nil "Bar")))
gets assigned to ‘header’, for instance.
Now, at a later point, ‘header’ is assumed to hold a list of
elements instead, which are put into a new tbody element:
1469 (if (= nbody nfooter)
1470 `((tr (td (table (tbody ,@header ,@body ,@footer)))))
1471 (nconc `((tr (td (table (tbody ,@header ,@body)))))
1472 (if (= nfooter 1)
1473 footer
1474 `((tr (td (table (tbody ,@footer))))))))
The second reason behind this problem is that the above
backquote templates by no means lead to valid DOM values! For
example, the last template above should instead read:
`((tr nil (td nil (table nil (tbody nil ,@footer)))))
Please consider the patch MIMEd.
* lisp/net/shr.el (shr-tag-table): Ensure that shr-tag-table-1
gets passed a valid DOM value for tables containing a thead,
tfoot, or caption.
FWIW, applying the change makes the example above give a more
sensible result:
((nil . " Foo Bar \n Baz Qux \n")
(nil . " Foo Bar \n Baz Qux \n")
(nil . " Foo Bar \n Baz Qux \n")
(nil . " Hello, world! \n Foo Bar \n Baz Qux \n")
(nil . " Foo Bar \n Baz Qux \n"))
PS. I also took the liberty of rearranging a chain of ‘if’ forms into a
cond. Not that it makes a big difference, though.
--
FSF associate member #7257 np. Hope – Apocalyptica … 3013 B6A0 230E 334A
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Type: text/diff, Size: 3959 bytes --]
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -1439,10 +1439,11 @@ defun shr-tag-table-1 (dom)
(defun shr-tag-table (dom)
(shr-ensure-paragraph)
- (let* ((caption (dom-child-by-tag dom 'caption))
- (header (dom-child-by-tag dom 'thead))
- (body (or (dom-child-by-tag dom 'tbody) dom))
- (footer (dom-child-by-tag dom 'tfoot))
+ (let* ((caption (dom-children (dom-child-by-tag dom 'caption)))
+ (header (dom-non-text-children (dom-child-by-tag dom 'thead)))
+ (body (dom-non-text-children (or (dom-child-by-tag dom 'tbody)
+ dom)))
+ (footer (dom-non-text-children (dom-child-by-tag dom 'tfoot)))
(bgcolor (dom-attr dom 'bgcolor))
(start (point))
(shr-stylesheet (nconc (list (cons 'background-color bgcolor))
@@ -1461,42 +1462,62 @@ defun shr-tag-table (dom)
;; It's a real table, so render it.
(shr-tag-table-1
(nconc
- (if caption `((tr (td ,@caption))))
- (if header
- (if footer
- ;; header + body + footer
- (if (= nheader nbody)
- (if (= nbody nfooter)
- `((tr (td (table (tbody ,@header ,@body ,@footer)))))
- (nconc `((tr (td (table (tbody ,@header ,@body)))))
- (if (= nfooter 1)
- footer
- `((tr (td (table (tbody ,@footer))))))))
- (nconc `((tr (td (table (tbody ,@header)))))
- (if (= nbody nfooter)
- `((tr (td (table (tbody ,@body ,@footer)))))
- (nconc `((tr (td (table (tbody ,@body)))))
- (if (= nfooter 1)
- footer
- `((tr (td (table (tbody ,@footer))))))))))
- ;; header + body
- (if (= nheader nbody)
- `((tr (td (table (tbody ,@header ,@body)))))
- (if (= nheader 1)
- `(,@header (tr (td (table (tbody ,@body)))))
- `((tr (td (table (tbody ,@header))))
- (tr (td (table (tbody ,@body))))))))
- (if footer
- ;; body + footer
- (if (= nbody nfooter)
- `((tr (td (table (tbody ,@body ,@footer)))))
- (nconc `((tr (td (table (tbody ,@body)))))
- (if (= nfooter 1)
- footer
- `((tr (td (table (tbody ,@footer))))))))
- (if caption
- `((tr (td (table (tbody ,@body)))))
- body))))))
+ (list 'table nil)
+ (if caption `((tr nil (td nil ,@caption))))
+ (cond (header
+ (if footer
+ ;; header + body + footer
+ (if (= nheader nbody)
+ (if (= nbody nfooter)
+ `((tr nil (td nil (table nil
+ (tbody nil ,@header
+ ,@body ,@footer)))))
+ (nconc `((tr nil (td nil (table nil
+ (tbody nil ,@header
+ ,@body)))))
+ (if (= nfooter 1)
+ footer
+ `((tr nil (td nil (table
+ nil (tbody
+ nil ,@footer))))))))
+ (nconc `((tr nil (td nil (table nil (tbody
+ nil ,@header)))))
+ (if (= nbody nfooter)
+ `((tr nil (td nil (table
+ nil (tbody nil ,@body
+ ,@footer)))))
+ (nconc `((tr nil (td nil (table
+ nil (tbody nil
+ ,@body)))))
+ (if (= nfooter 1)
+ footer
+ `((tr nil (td nil (table
+ nil
+ (tbody
+ nil
+ ,@footer))))))))))
+ ;; header + body
+ (if (= nheader nbody)
+ `((tr nil (td nil (table nil (tbody nil ,@header
+ ,@body)))))
+ (if (= nheader 1)
+ `(,@header (tr nil (td nil (table
+ nil (tbody nil ,@body)))))
+ `((tr nil (td nil (table nil (tbody nil ,@header))))
+ (tr nil (td nil (table nil (tbody nil ,@body)))))))))
+ (footer
+ ;; body + footer
+ (if (= nbody nfooter)
+ `((tr nil (td nil (table
+ nil (tbody nil ,@body ,@footer)))))
+ (nconc `((tr nil (td nil (table nil (tbody nil ,@body)))))
+ (if (= nfooter 1)
+ footer
+ `((tr nil (td nil (table
+ nil (tbody nil ,@footer)))))))))
+ (caption
+ `((tr nil (td nil (table nil (tbody nil ,@body))))))
+ (body)))))
(when bgcolor
(shr-colorize-region start (point) (cdr (assq 'color shr-stylesheet))
bgcolor))
^ permalink raw reply [flat|nested] 2+ messages in thread
* bug#19444: shr-tag-table: the value passed to shr-tag-table-1 is not a DOM
2014-12-26 17:27 bug#19444: shr-tag-table: the value passed to shr-tag-table-1 is not a DOM Ivan Shmakov
@ 2014-12-28 14:06 ` Lars Ingebrigtsen
0 siblings, 0 replies; 2+ messages in thread
From: Lars Ingebrigtsen @ 2014-12-28 14:06 UTC (permalink / raw)
To: Ivan Shmakov; +Cc: 19444
Thanks; applied.
--
(domestic pets only, the antidote for overdose, milk.)
bloggy blog http://lars.ingebrigtsen.no/
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2014-12-28 14:06 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2014-12-26 17:27 bug#19444: shr-tag-table: the value passed to shr-tag-table-1 is not a DOM Ivan Shmakov
2014-12-28 14:06 ` Lars Ingebrigtsen
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.