jer/texttools
1
Fork 0
Code Actions Activity

identity function

Browse source
This commit is contained in:
Jan-Erik Rediger 2024-10-29 21:02:17 +01:00
parent 2aaf3d2106
commit d0b055c469
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
texttools.tcl
View file

@ -28,6 +28,9 @@ proc markdown_quote {text} {
return [string cat "> " [regsub -all \n $text "\n> "]] 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 {One line} oneline]
lappend transforms [list {Line/Word/Char} wordcount] lappend transforms [list {Line/Word/Char} wordcount]
lappend transforms [list {Dedent} dedent] lappend transforms [list {Dedent} dedent]