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