diff options
| -rwxr-xr-x | tkread | 22 |
1 files changed, 22 insertions, 0 deletions
@@ -90,6 +90,14 @@ proc indexmovechar {str moveby} { return $linenum.[expr $charnum $moveby] } +# Moves line part of a text widget index (linenum.charnum) +proc indexmoveline {str moveby} { + set dotindex [string first . $str] + set charnum [string range $str [expr $dotindex + 1] end] + set linenum [string range $str 0 [expr $dotindex - 1]] + return [expr $linenum $moveby].$charnum +} + # TODO: move each section into their own procedures proc markup {widget} { global fontfamily @@ -117,6 +125,15 @@ proc markup {widget} { set alt [$widget get $altstart $altend] set src [$widget get $srcstart $srcend] + # sometimes "title" tags are encoded after a space following the source, enclosed in "" + set imgtitlestart [string first " " $src] + if {$imgtitlestart != -1} { + set imgtitle [string trim [string range $src $imgtitlestart end] {" }] + set src [string range $src 0 [expr $imgtitlestart - 1] ] + } else { + set imgtitle "" + } + $widget delete [indexmovechar $altstart "- 2"] [indexmovechar $srcend "+ 1"] set insertion [indexmovechar $altstart "- 2"] set localfile [file tail $src] @@ -129,6 +146,11 @@ proc markup {widget} { set cur [indexmovechar $insertion "+ [string length $alt]"] } + set insertion [indexmoveline $insertion "+ 1"] + if {[string length $imgtitle] != 0} { + $widget insert $insertion "${imgtitle}\n" + } + set cur [$widget search {![} $cur end] } |