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

remove unfinished code for now

db4
Doug Coleman 2008-08-13 23:13:13 -05:00
parent 805cb650bd
commit d50afc2a35
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -83,13 +83,6 @@ M: src-printer print-closing-named-tag ( tag -- )
SYMBOL: tab-width SYMBOL: tab-width
SYMBOL: #indentations SYMBOL: #indentations
: html-pp ( vector -- )
[
0 #indentations set
2 tab-width set
] with-scope ;
: print-tabs ( -- ) : print-tabs ( -- )
tab-width get #indentations get * CHAR: \s <repetition> write ; tab-width get #indentations get * CHAR: \s <repetition> write ;
@ -125,3 +118,6 @@ M: printer print-tag ( tag -- )
! H{ { table-gap { 10 10 } } } [ ! H{ { table-gap { 10 10 } } } [
! [ [ [ [ . ] with-cell ] each ] with-row ] each ! [ [ [ [ . ] with-cell ] each ] with-row ] each
! ] tabular-output ! ] tabular-output
! : html-pp ( vector -- )
! [ 0 #indentations set 2 tab-width set ] with-scope ;