feat: Add support for tcl

Author: andrewferrier

README.md

@@ -248,6 +248,7 @@ they are used to convert sections to ROT-13, which most folks don't use.
 | Ruby                                                                | :+1:              | :+1:                                                           | :x:                                                       | :+1:                                                                 | :x:                                                 | :x:                                                   |
 | Rust                                                                | :+1:              | :+1:                                                           | :+1:                                                      | :x:                                                                  | :+1:                                                | :x:                                                   |
 | Swift                                                               | :+1:              | :x:                                                            | :x:                                                       | :x:                                                                  | :x:                                                 | :x:                                                   |
+| tcl                                                                 | :+1:              | :x:                                                            | :x:                                                       | :x:                                                                  | :x:                                                 | :x:                                                   |
 | VimL (vimscript)                                                    | :+1:              | :x:                                                            | :+1:                                                      | :x:                                                                  | :+1:                                                | :x:                                                   |
 | Zig                                                                 | :+1:              | :x:                                                            | :x:                                                       | :x:                                                                  | :x:                                                 | :x:                                                   |
 | zsh                                                                 | :+1:              | :x:                                                            | :+1:                                                      | :x:                                                                  | :+1:                                                | :x:                                                   |

lua/debugprint/filetypes.lua

@@ -245,6 +245,12 @@ return {
         mid_var = "\\(",
         right_var = ')")',
     },
+    ["tcl"] = {
+        left = 'puts "',
+        right = '"',
+        mid_var = "$",
+        right_var = '"',
+    },
     ["typescript"] = js,
     ["typescriptreact"] = js,
     ["vim"] = {