aliens/tekuti
1
0
Fork 0
Code Activity

better error messages for invalid xhtml

Browse source 
* tekuti/filters.scm (bad-user-submitted-xhtml?): Add a more informative
  error message.
This commit is contained in:
Andy Wingo 2008-04-11 13:24:57 +02:00
parent e1e44eb8f0
commit 2f7780b552
1 changed files with 11 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
tekuti/filters.scm
View file

@ -149,8 +149,17 @@
`(div (p "Invalid XHTML") `(div (p "Invalid XHTML")
,(case key ,(case key
((parser-error) ((parser-error)
`(pre ,(with-output-to-string `(div
(lambda () (write args))))) (p "The comment filter requires valid XHTML, although "
"it will translate single newlines to <br/> elements, "
"and multiple newlines to paragraphs.")
(p "Usually if you get here it's because you put in a "
"malformed XHTML tag. Another way to get here is if "
"you have an unescaped <, >, or & character. Replace "
"them with &lt;, &gt;, or &amp;, respectively.")
(p "Here is the internal error:")
(pre ,(with-output-to-string
(lambda () (write args))))))
((bad-tag) ((bad-tag)
`(p "XHTML tag disallowed: " ,(symbol->string (car args)))) `(p "XHTML tag disallowed: " ,(symbol->string (car args))))
((bad-attr) ((bad-attr)