Auto indent added for () [] braces

2018-02-08 11:07:14 +03:00
parent be2f63b14f
commit 70bf20d61e
6 changed files with 30 additions and 37 deletions
--- a/lib/editor.tcl
+++ b/lib/editor.tcl
@@ -798,6 +798,29 @@ proc TabIns {text} {
                set shouldBeSpaces [expr {$shouldBeSpaces - $indentSize}]
            }
        }
+        if {$lastSymbol == "\["} {
+            incr shouldBeSpaces $indentSize
+        }
+        set a ""
+        regexp "^| *\]" $curText a
+        if {$a != ""} {
+            # make unindent
+            if {$shouldBeSpaces >= $indentSize} {
+                set shouldBeSpaces [expr {$shouldBeSpaces - $indentSize}]
+            }
+        }
+        if {$lastSymbol == "\("} {
+            incr shouldBeSpaces $indentSize
+        }
+        set a ""
+        regexp {^| *\)} $curText a
+        if {$a != ""} {
+            # make unindent
+            if {$shouldBeSpaces >= $indentSize} {
+                set shouldBeSpaces [expr {$shouldBeSpaces - $indentSize}]
+            }
+        }
+        
        set spaceNum [string length $spaces]
        if {$shouldBeSpaces > $spaceNum} {
            #insert spaces
@@ -1202,6 +1225,3 @@ proc TextOperation {oper} {
 #################################### 
 GetOp

-
-
-