jer/texttools
1
Fork 0
Code Actions Activity

markdown quote transform

Browse source
This commit is contained in:
Jan-Erik Rediger 2024-10-29 20:50:22 +01:00
parent 52e8103b92
commit 1e746fbd72
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
texttools.tcl
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"