felixfoertsch/remind
1
0
Fork 0
mirror of https://salsa.debian.org/dskoll/remind.git synced 2026-04-16 06:18:47 +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} {
# Some systems render bold as "X bs X" and underline as "_ bs X"
# 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 "\033\[3m&\033\[23m" ]
set line [regsub -all {((.\b.)+)} $line "\033\[1m\\0\033\[22m" ]
set line [regsub -all {(.\b)} $line "" ]
if {$jump != 0} {
if {[regexp -- {THE CALENDAR WINDOW} $line]} {
if {[regexp -- {THE.*CALENDAR.*WINDOW} $line]} {
$w.t yview moveto 1
}
}
if {[regexp -- {SEE ALSO} $line]} {
if {[regexp -- {SEE.*ALSO} $line]} {
set seealso 1
} else {
if {$seealso != 0} {
@@ -5005,8 +5005,8 @@ proc ShowManPage { cmd jump destroy } {
$w.t insert end "\n";
}
close $fp
} err more_err]} {
$w.t insert end "Could not display TkRemind manual page: $err $more_err"
} err]} {
$w.t insert end "Could not display TkRemind manual page: $err"
}
$w.t configure -state disabled
if { $destroy } {