diff --git a/texttools.tcl b/texttools.tcl index 57d8aa0..04b1df8 100755 --- a/texttools.tcl +++ b/texttools.tcl @@ -28,6 +28,9 @@ proc markdown_quote {text} { return [string cat "> " [regsub -all \n $text "\n> "]] } +proc identity {text} { return $text } + +lappend transforms [list {None} identity] lappend transforms [list {One line} oneline] lappend transforms [list {Line/Word/Char} wordcount] lappend transforms [list {Dedent} dedent]