This is a small tool to indent/unindent Tcl code for this Wiki.

======
 package require Tk
 
 proc doIndent {indent} {
    set d [string trimright [.text get 1.0 end] " \r\n"]
    set nd ""
    foreach line [split $d \n] {
         if {$indent && ([string index $line 0] != " ")} {
             set line " $line"
         }  elseif {(!$indent) && ([string index $line 0] == " ") && ([string index $line 1] != " ")} {
             set line [string range $line 1 end]
         }
         append nd $line \n
    }
    set nd [string trimright $nd " \r\n"]
    .text delete 1.0 end
    .text insert end $nd
 }
 
 text .text -yscrollcommand [list .scroll set] -font {{Lucida Console} 8}
 scrollbar .scroll -command [list .text yview]
 
 grid .text .scroll -sticky news
 grid columnconfigure . 0 -weight 1
 grid rowconfigure . 0 -weight 1
 
 bind all <F2> {doIndent 0}
 bind all <F3> {doIndent 1}
======

[wdb] -- Nice idea! I've stolen it immediately, and here comes my improved version which not only adds the required space but additionally pretty-prints the source code -- more precisely, updates the appropriate indent level:

======
 package require Tk
 
 pack [text .t] -expand yes -fill both
 bind .t <F2> {
     set src [.t get 1.0 end-1chars]
     .t delete 1.0 end-1chars
     .t insert 1.0 [pp $src]
 }
 
 proc indentAtLine {str nr}  {
     set allLines [split $str \n]
     set lines [lrange $allLines 0 [expr {$nr - 1}]]
     set testStr [join $lines]
     set indent 0
     while {![info complete $testStr]} {
         incr indent
         append testStr \}
     }
     if {[string index [string trim [lindex $allLines $nr]] 0] eq "\}"} then {
         incr indent -1
     }
     set indentStr [string repeat " " 4]
     string repeat $indentStr $indent
 }
 
 proc pp {str} {
     set result ""
     set i 0
     foreach line [split $str \n] {
         append result " "\
                 [indentAtLine $str $i]\
                 [string trim $line]\
                 \n
         incr i
     }
     string trimright $result
 }
======

[wdb] Attention -- processes line-spanning braced groups { and } but hangs if line-spanning bracket groups [[ and ]] appear.



<<categories>> Deployment | Tcler's Wiki