felixfoertsch/remind
1
0
Fork 0
mirror of https://salsa.debian.org/dskoll/remind.git synced 2026-04-17 23:08:40 +02:00
Code Issues Actions Packages Projects Releases Wiki Activity

Make TkRemind work on dumb systems that use "poor-man's" bold and italic.

Browse Source
This commit is contained in:
Dianne Skoll
2025-10-23 12:08:02 -04:00
parent 6d9ccc1522
commit 1cd6205cdd
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
scripts/tkremind.in
View File

@@ -4938,16 +4938,16 @@ proc ShowManPage { cmd jump destroy } {
while {[gets $fp line] >= 0} { while {[gets $fp line] >= 0} {
# Some systems render bold as "X bs X" and underline as "_ bs X" # Some systems render bold as "X bs X" and underline as "_ bs X"
# Convert them to our bold and italic indicators # Convert them to our bold and italic indicators
set line [regsub -all {(_\b)+} $line "\033\[3m&\033\[23m" ] set line [regsub -all {((_\b.)+)} $line "\033\[3m\\0\033\[23m" ]
set line [regsub -all {(_\b)} $line "" ] set line [regsub -all {(_\b)} $line "" ]
set line [regsub -all {(.\b)+} $line "\033\[3m&\033\[23m" ] set line [regsub -all {((.\b.)+)} $line "\033\[1m\\0\033\[22m" ]
set line [regsub -all {(.\b)} $line "" ] set line [regsub -all {(.\b)} $line "" ]
if {$jump != 0} { if {$jump != 0} {
if {[regexp -- {THE CALENDAR WINDOW} $line]} { if {[regexp -- {THE.*CALENDAR.*WINDOW} $line]} {
$w.t yview moveto 1 $w.t yview moveto 1
} }
} }
if {[regexp -- {SEE ALSO} $line]} { if {[regexp -- {SEE.*ALSO} $line]} {
set seealso 1 set seealso 1
} else { } else {
if {$seealso != 0} { if {$seealso != 0} {
@@ -5005,8 +5005,8 @@ proc ShowManPage { cmd jump destroy } {
$w.t insert end "\n"; $w.t insert end "\n";
} }
close $fp close $fp
} err more_err]} { } err]} {
$w.t insert end "Could not display TkRemind manual page: $err $more_err" $w.t insert end "Could not display TkRemind manual page: $err"
} }
$w.t configure -state disabled $w.t configure -state disabled
if { $destroy } { if { $destroy } {