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

Hyperlink reminders in "show today's reminders"

Browse Source
This commit is contained in:
Dianne Skoll
2025-08-11 22:39:53 -04:00
parent ebcf6fd534
commit 04dee13996
1 changed files with 17 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
scripts/tkremind.in
View File

@@ -4366,6 +4366,23 @@ proc ShowTodaysReminders { force date } {
$w.text tag configure "clr$color" -foreground "#$color"
}
if {[dict exists $thing filename]} {
set fname [dict get $thing filename]
# Don't make INCLUDECMD output editable
if {![string match "*|" $fname]} {
if {[dict exists $thing lineno_start]} {
set l [dict get $thing lineno_start]
} else {
set l [dict get $thing lineno]
}
set fntag [string cat "FILE_" $l "_" $fname]
$w.text tag bind $fntag <Enter> [list $w.text tag configure $fntag -underline 1]
$w.text tag bind $fntag <Leave> [list $w.text tag configure $fntag -underline 0]
$w.text tag bind $fntag <ButtonPress-1> [list FireEditor $w.text $fntag]
$w.text tag bind $fntag <ButtonPress-3> [list FireEditor $w.text $fntag]
lappend tags $fntag
}
}
$w.text insert end [dict get $thing body] $tags
$w.text insert end "\n"
}