1
Fork 0

markdown quote transform

This commit is contained in:
Jan-Erik Rediger 2024-10-29 20:50:22 +01:00
parent 52e8103b92
commit 1e746fbd72

View file

@ -17,8 +17,14 @@ proc wordcount {text} {
return $out 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 {One line} oneline]
lappend transforms [list {Line/Word/Char} wordcount] lappend transforms [list {Line/Word/Char} wordcount]
lappend transforms [list {Markdown Quote} markdown_quote]
wm geometry . 750x650 wm geometry . 750x650
wm title . "Text Tools" wm title . "Text Tools"