Add a few replacements, for hr and escaping of dollar and end of line

1 files changed, 19 insertions, 0 deletions

diff --git a/tkread b/tkread
index bf03f50..d415274 100755
--- a/tkread
+++ b/tkread
@@ -66,6 +66,12 @@ set listitems { \
 	{\+ *} \
 }
 
+set replacements { \
+	{{^\* \* \* \* \*$} "―"} \
+	{{\\$} ""} \
+	{{\\\$} "$"} \
+}
+
 if { $::argc > 0 && [lindex $::argv 0] == "-h" } {
 	puts "Usage: $usage"
 	exit
@@ -106,10 +112,23 @@ proc markup {widget} {
 	global underlinefmt
 	global prefixfmt
 	global listitems
+	global replacements
 	global tagnum
 	global underlinenum
 	global prefixnum
 
+	# process replacements
+	foreach item $replacements {
+		set searchfor [lindex $item 0]
+		set replacement [lindex $item 1]
+
+		set cur [$widget search -count len -regex "$searchfor" 0.0 end]
+		while {$cur != ""} {
+			$widget replace $cur [indexmovechar $cur "+ $len"] "$replacement"
+			set cur [$widget search -regex "$searchfor" $cur end]
+		}
+	}
+
 	# process images
 	set cur [$widget search {![} 0.0 end]
 	while {$cur != ""} {