#TODO: <!-- hello <tag> -->

proc pretty { text } {
    set originalText $text
#    puts $text
    # & => &amp;
    set text [regsub -all -- "\[\&]" $text {\&amp;}]

    # prettify <simpletag>, <simpletag /> and </simpletag>
    if { [regexp {[<][ ]*[/]?[ ]*([[:alnum:]]+)[ ]*[/]?[ ]*[>]} $text] } {
	set result [regsub {[<]([ ]*[/]?[ ]*)([[:alnum:]]*)([ ]*[/]?[ ]*)[>]} $text {\&lt;\1<span class="tagname">\2</span>\3\&gt;}]
	return "<span class=\"tag\">$result</span>"
    }

    #prettify tag from <tag key="value">. spanclass is a hack
    set text [regsub {[<]([ ]*)([[:alnum:]]+)([^>]*)[>]} $text {\&lt;\1<spanclass="tagname">\2</span>\3\&gt;}]

    #prettify key and value from <tag key="value">
    set text [regsub -all -- {[ ]+([[:alnum:]][:[:alnum:]-]*)([ ]*=[ ]*\")([^"]*)(\")} $text { <span class="key">\1</span>\2<span class="value">\3</span>\4}]

#    set text [regsub -all -- {[ ]+([[:alnum:]]+)([ ]*=[ ]*\")([^"]*)(\")} $text { <span class="key">\1</span>\2<span class="value">\3</span>\4}]

    # Resolve spanclass
    set text [regsub -all -- {[<][s][p][a][n][c][l][a][s][s]} $text "<span class"]
    # If everything fails, just convert it to entities and return
    if { $text == $originalText } {
	set text [regsub -all -- "\[\<]" $text {\&lt;}]
	set text [regsub -all -- "\[\>]" $text {\&gt;}]
	return $text
    }

    return "<span class=\"tag\">$text</span>"

}

proc step { content } {
    set result ""

    while {[regexp -indices -- "\[\<]\[^\>]*\[\>]" $content indicie]} {
	set cbegin [lindex $indicie 0]
	set cend [lindex $indicie 1]

	set subResult [pretty [string range $content $cbegin $cend]]
#	puts $subResult\n
	set result "$result[string range $content 0 [expr $cbegin-1]]$subResult"
	set content [string range $content [expr $cend+1] end]
    }
    set result "$result$content"
    return $result
}

proc entity { text } {
    set text [regsub -all -- "\[\&]" $text {\&amp;}]
    set text [regsub -all -- "\[\<]" $text {\&lt;}]
    set text [regsub -all -- "\[\>]" $text {\&gt;}]
    return $text
}

proc prettify { text filename } {
    set file [open $filename]
    set content [read $file]
    close $file
    set pretty [step $text]
    if { [regexp -indices -nocase -- "\[\<]\[\!]\[\-]{2}\[ ]*\[=pretty=]\[^\>]*\[\>]" $content indicie] } {
	set cbegin [lindex $indicie 0]
	set cend [lindex $indicie 1]
	set content "[string range $content 0 [expr $cbegin-1]]$pretty[string range $content [expr $cend+1] end]"
    }
    if { [regexp -indices -nocase -- "\[\<]\[\!]\[\-]{2}\[ ]*\[=entitypretty=]\[^\>]*\[\>]" $content indicie] } {
	set cbegin [lindex $indicie 0]
	set cend [lindex $indicie 1]
	set content "[string range $content 0 [expr $cbegin-1]][entity $pretty][string range $content [expr $cend+1] end]"
    }
    puts $content
}    
   
#prettify "<h1 cl-as:s=\"test\">Test<br />Line 2</h1>" "prettify.html"
#puts [step "<a href=\"test.html?test=5&test2=7\">\n<span class=\"test\">Test</span>"]
#puts \n[step "<h1></h1>< h1></ h1>< / h1>< h1 test=\"this\">"]