steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

html.parser.printer: fix tests, need to decrement before writing.

db4
John Benediktsson 2013-08-05 11:22:09 -07:00
parent 830637c84d
commit 9aeb3b9579
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/html/parser/printer/printer.factor
View File

@ -88,9 +88,9 @@ M: html-prettyprinter print-opening-tag ( tag -- )
[ { "br" "img" } member? [ #indentations inc ] unless ] bi ; [ { "br" "img" } member? [ #indentations inc ] unless ] bi ;
M: html-prettyprinter print-closing-tag ( tag -- ) M: html-prettyprinter print-closing-tag ( tag -- )
[ tabs write "</" write name>> write ">\n" write ]
! These tags usually don't have any closing tag associated with them. ! These tags usually don't have any closing tag associated with them.
[ { "br" "img" } member? [ #indentations dec ] unless ] bi ; [ { "br" "img" } member? [ #indentations dec ] unless ]
[ tabs write "</" write name>> write ">\n" write ] bi ;
M: html-prettyprinter print-text-tag ( tag -- ) M: html-prettyprinter print-text-tag ( tag -- )
text>> [ blank? ] trim [ tabs write write "\n" write ] unless-empty ; text>> [ blank? ] trim [ tabs write write "\n" write ] unless-empty ;