From: Anders Kaseorg Date: Fri, 19 Nov 2010 07:38:20 GMT Subject: [PATCH 4/4] gitk: Allow displaying time zones from author and commit timestamps Message-ID: <1290152300-21393-4-git-send-email-andersk@mit.edu> In-Reply-To: <1290152300-21393-1-git-send-email-andersk@mit.edu> Now gitk can be configured to display author and commit dates in their original timezone, by putting %z into datetimeformat in ~/.gitk. Signed-off-by: Anders Kaseorg --- gitk-git/gitk | 13 ++++++++++++- 1 files changed, 12 insertions(+), 1 deletions(-) diff --git a/gitk-git/gitk b/gitk-git/gitk index acdbd21..b67ecc4 100644 --- a/gitk-git/gitk +++ b/gitk-git/gitk @@ -10957,7 +10957,18 @@ proc prefsok {} { proc formatdate {d} { global datetimeformat if {$d ne {}} { - set d [clock format [lindex $d 0] -format $datetimeformat] + if {[string match {*%[zZ]*} $datetimeformat]} { + if {[catch {set d [clock format [lindex $d 0] -timezone [lindex $d 1] -format $datetimeformat]}]} { + # Tcl < 8.5 does not support -timezone. + global env + set zone [lindex $d 1] + set env(TZ) "IDK[string range $zone 0 2]:[string range $zone 3 end]" + set d [clock format [lindex $d 0] -format $datetimeformat] + unset env(TZ) + } + } else { + set d [clock format [lindex $d 0] -format $datetimeformat] + } } return $d } -- 1.7.3.2