] [ error>> tag-not-allowed-here? ] must-fail-with
{ "This is <style type=\"text/css\"> * { font-family: monospace; } </style>" } [
- SBUF" " clone style [
+ V{ } clone style [
[ "test16" test-template call-template ] run-template
] with-variable
] unit-test
{ "<script type=\"text/javascript\">/* <![CDATA[*/function testAlerts() { window.alert(\"Hello, world!\");}/*]]> */</script>" } [
- SBUF" " clone script [
+ V{ } clone script [
[ "test17" test-template call-template ] run-template
] with-variable
] unit-test
SYMBOL: style
: add-style ( string -- )
- "\n" style get push-all
- style get push-all ;
+ style get push ;
: get-style ( -- string )
- style get >string ;
+ style get <reversed> "\n" join ;
: write-style ( -- )
get-style write ;
SYMBOL: script
: add-script ( string -- )
- "\n" script get push-all
- script get push-all ;
+ script get push ;
: get-script ( -- string )
- script get >string ;
+ script get <reversed> "\n" join ;
: write-script ( -- )
get-script write ;
: with-boilerplate ( child master -- )
[
title [ [ <box> ] unless* ] change
- style [ [ SBUF" " clone ] unless* ] change
- script [ [ SBUF" " clone ] unless* ] change
+ style [ [ V{ } clone ] unless* ] change
+ script [ [ V{ } clone ] unless* ] change
meta [ [ V{ } clone ] unless* ] change
atom-feeds [ V{ } like ] change