From d0b055c469f349a035a2d103871473c0ce9120d7 Mon Sep 17 00:00:00 2001
From: Jan-Erik Rediger <janerik@fnordig.de>
Date: Tue, 29 Oct 2024 21:02:17 +0100
Subject: [PATCH] identity function

---
 texttools.tcl | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/texttools.tcl b/texttools.tcl
index 57d8aa0..04b1df8 100755
--- a/texttools.tcl
+++ b/texttools.tcl
@@ -28,6 +28,9 @@ proc markdown_quote {text} {
   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 {Line/Word/Char} wordcount]
 lappend transforms [list {Dedent} dedent]