1alias disptime_one xecho -window $0 [^Btime^O] $strftime(%Y-%m-%d %a %H:%M) 2alias disptime_all { 3 foreach disptime_wins w { 4 if (winvisible($w)==-1) { 5 ^assign -disptime_wins[$w] 6 } elsif (disptime_wins[$w]) { 7 disptime_one $w 8 } 9 } 10} 11on #^timer 431 * disptime_all 12#on #^timer 431 *:30 disptime_all 13alias disptime { 14 @disptime_wins[$winnum()] = [t] 15 xecho -window $winnum() [time] $strftime(%Y-%m-%d %a %H:%M) 16 parsekey refresh_status 17} 18alias disptimeoff { 19 assign -disptime_wins[$winnum()] 20 parsekey refresh_status 21} 22 23alias dtminon { 24 @dt_min[$winnum()] = [m] 25 parsekey refresh_status 26} 27alias dtminoff { 28 ^assign -dt_min[$winnum()] 29 parsekey refresh_status 30} 31on ^window * if (dt_min[$0]) { 32 if (dt_min_last[$0] != [$Z]) { 33 echo $cparse(%r$strftime(%M)%b+%n)$1- 34 @dt_min_last[$0] = Z 35 } else { 36 echo $cparse(%b+++%n)$1- 37 } 38} else { 39 echo $1- 40} 41 42