] make-html-string
] unit-test
-{ "<div style=\"background-color: #ff00ff; white-space: pre; font-family: monospace; display: inline-block;\">cdr</div>" }
+{ "<div style=\"background-color: #ff00ff; white-space: pre; font-family: monospace; display: inline-block; \">cdr</div>" }
[
[
H{ { page-color T{ rgba f 1 0 1 1 } } }
] make-html-string
] unit-test
-{ "<div style=\"white-space: pre; font-family: monospace; display: inline-block;\"></div><br/>" } [
+{ "<div style=\"white-space: pre; font-family: monospace; display: inline-block; \"></div><br/>" } [
[ H{ } [ ] with-nesting nl ] make-html-string
] unit-test
: padding-css, ( padding -- )
first2 (padding-css,) ;
-CONSTANT: pre-css "white-space: pre; font-family: monospace;"
+CONSTANT: pre-css "white-space: pre; font-family: monospace; "
: div-css-style ( style -- str )
[