Sometimes it's useful to be able to abstract away structural stuff, like headers, margins, footers and such.
The following code can be put in the custom directory, and is suitable as a post-generation filter.
What this means is that if you put [Httpd_Filter [Httpd_CurrentSocket] Wrap] into the .tml of a directory, any template will be substituted into wrapper.html instead of the token %BODY%.
It's not perfect: changes in the wrapper won't regenerate the whole page.
-- CMcC 20041203
# wrap.tcl
#
# This code will use the post-content filter to substitute content
# into a file called wrapper.tml or wrapper.html at the point where %BODY% occurs.
#
# To trigger this, put the following in a Doc domain's .tml
#
# Httpd_Filter [Httpd_CurrentSocket] Wrap
package require struct::list
proc Wrap {sock content} {
upvar #0 Httpd$sock data
foreach dir [::struct::list::Lreverse [Doc_GetPath $sock]] {
set template [file join $dir wrapper.tml]
set wrapper [file join $dir wrapper.html]
if {![file exists $wrapper]
&& [file exists $template]} {
# instantiate the wrapper
set dynamic 0
set wrapper [TemplateInstantiate $sock $template $wrapper $data(suffix) dynamic 0]
set content [string map [list %BODY% $content] $wrapper]
break
} elseif {[file exists $wrapper]} {
# the wrapper exists
set fd [open $wrapper]; set wrapper [read $fd]; close $fd
set content [string map [list %BODY% $content] $wrapper]
break
}
}
return $content
}