diff --git a/toc-for-chunked.tcl b/toc-for-chunked.tcl index 08ea1b1..9189966 100644 --- a/toc-for-chunked.tcl +++ b/toc-for-chunked.tcl @@ -6,7 +6,7 @@ set file [open "[lindex $argv 0]/index.html"] regexp {
.+?
} [read $file] replacement close $file -set replacement "
$replacement" +set replacement "
[regsub -all {&|\\[0-9]} $replacement {\\&}]" # Add the table of contents to all other html files. foreach path [glob -directory [lindex $argv 0] {*.html}] { @@ -16,7 +16,7 @@ foreach path [glob -directory [lindex $argv 0] {*.html}] { set file [open $path r+] set data [read $file] - regsub {]+)>} $data [regsub -all {\W} $replacement {\\&}] data + regsub {]+)>} $data $replacement data regsub {} $data {
} data seek $file 0 puts $file $data