summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xtkread22
1 files changed, 20 insertions, 2 deletions
diff --git a/tkread b/tkread
index 5fbce76..126156f 100755
--- a/tkread
+++ b/tkread
@@ -60,6 +60,12 @@ set prefixfmt { \
{"###### " "0" "italic"} \
}
+set listitems { \
+ {\* *} \
+ {- *} \
+ {\+ *} \
+}
+
if { $::argc > 0 && [lindex $::argv 0] == "-h" } {
puts "Usage: $usage"
exit
@@ -86,11 +92,12 @@ proc indexmovechar {str moveby} {
# TODO: move each section into their own procedures
proc markup {widget} {
+ global fontfamily
+ global fontsize
global surroundfmt
global underlinefmt
global prefixfmt
- global fontfamily
- global fontsize
+ global listitems
global tagnum
global underlinenum
global prefixnum
@@ -204,6 +211,17 @@ proc markup {widget} {
$widget tag configure tag_$tagnum -font "{$fontfamily} [expr $fontsize + $fmtsizemod] $fmtstring"
incr tagnum
}
+
+ # process lists
+ foreach item $listitems {
+ set cur [$widget search -count len -regexp "^$item" 0.0 end]
+ while {$cur != ""} {
+ set dotindex [string first . $cur]
+ set linenum [string range $cur 0 [expr $dotindex - 1]]
+ $widget replace $linenum.0 $linenum.$len "• "
+ set cur [$widget search -regexp "^$item" 0.0 end]
+ }
+ }
}
proc changeFontSize {change} {