markdown quote transform
This commit is contained in:
parent
52e8103b92
commit
1e746fbd72
|
@ -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"
|
||||
|
|
Loading…
Reference in a new issue