diff --git a/texttools.tcl b/texttools.tcl index d8a1096..abc1efc 100755 --- a/texttools.tcl +++ b/texttools.tcl @@ -17,8 +17,14 @@ proc wordcount {text} { return $out } +proc markdown_quote {text} { + set text [string trimright $text] + return [string cat "> " [regsub -all \n $text "\n> "]] +} + lappend transforms [list {One line} oneline] lappend transforms [list {Line/Word/Char} wordcount] +lappend transforms [list {Markdown Quote} markdown_quote] wm geometry . 750x650 wm title . "Text Tools"