[PATCH] gitk: Make the date/time display configurable
The new 'datetimeformat' configuration variable in ~/.gitk can be set to a Tcl 'clock format' format string to modify the display of dates and times. http://www.tcl.tk/man/tcl8.4/TclCmd/clock.htm has a list of allowed fields. Signed-off-by: Arjen Laarhoven <arjen@yaph.org> Signed-off-by: Paul Mackerras <paulus@samba.org>
This commit is contained in:
parent
890fae7041
commit
e8b5f4be70
7
gitk
7
gitk
@ -1012,7 +1012,7 @@ proc savestuff {w} {
|
|||||||
global stuffsaved findmergefiles maxgraphpct
|
global stuffsaved findmergefiles maxgraphpct
|
||||||
global maxwidth showneartags showlocalchanges
|
global maxwidth showneartags showlocalchanges
|
||||||
global viewname viewfiles viewargs viewperm nextviewnum
|
global viewname viewfiles viewargs viewperm nextviewnum
|
||||||
global cmitmode wrapcomment
|
global cmitmode wrapcomment datetimeformat
|
||||||
global colors bgcolor fgcolor diffcolors diffcontext selectbgcolor
|
global colors bgcolor fgcolor diffcolors diffcontext selectbgcolor
|
||||||
|
|
||||||
if {$stuffsaved} return
|
if {$stuffsaved} return
|
||||||
@ -1030,6 +1030,7 @@ proc savestuff {w} {
|
|||||||
puts $f [list set wrapcomment $wrapcomment]
|
puts $f [list set wrapcomment $wrapcomment]
|
||||||
puts $f [list set showneartags $showneartags]
|
puts $f [list set showneartags $showneartags]
|
||||||
puts $f [list set showlocalchanges $showlocalchanges]
|
puts $f [list set showlocalchanges $showlocalchanges]
|
||||||
|
puts $f [list set datetimeformat $datetimeformat]
|
||||||
puts $f [list set bgcolor $bgcolor]
|
puts $f [list set bgcolor $bgcolor]
|
||||||
puts $f [list set fgcolor $fgcolor]
|
puts $f [list set fgcolor $fgcolor]
|
||||||
puts $f [list set colors $colors]
|
puts $f [list set colors $colors]
|
||||||
@ -7341,8 +7342,9 @@ proc prefsok {} {
|
|||||||
}
|
}
|
||||||
|
|
||||||
proc formatdate {d} {
|
proc formatdate {d} {
|
||||||
|
global datetimeformat
|
||||||
if {$d ne {}} {
|
if {$d ne {}} {
|
||||||
set d [clock format $d -format "%Y-%m-%d %H:%M:%S"]
|
set d [clock format $d -format $datetimeformat]
|
||||||
}
|
}
|
||||||
return $d
|
return $d
|
||||||
}
|
}
|
||||||
@ -7655,6 +7657,7 @@ set showneartags 1
|
|||||||
set maxrefs 20
|
set maxrefs 20
|
||||||
set maxlinelen 200
|
set maxlinelen 200
|
||||||
set showlocalchanges 1
|
set showlocalchanges 1
|
||||||
|
set datetimeformat "%Y-%m-%d %H:%M:%S"
|
||||||
|
|
||||||
set colors {green red blue magenta darkgrey brown orange}
|
set colors {green red blue magenta darkgrey brown orange}
|
||||||
set bgcolor white
|
set bgcolor white
|
||||||
|
Loading…
Reference in New Issue
Block a user