summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xtkread19
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 != ""} {