{"thread":{"id":"27463","subject":"Using Zenburn color scheme in gitk","startedAt":"2011-05-26T13:25:11Z","lastAt":"2011-05-26T13:25:11Z","messageCount":1,"participants":["Osamu OKANO"],"isPatch":false,"patchVersion":null,"patchTotal":null},"messages":[{"id":"168760","messageId":"BANLkTinnHgdHSasU2EtxLns-7Nb5wR0WYQ@mail.gmail.com","threadId":"27463","inReplyTo":null,"subject":"Using Zenburn color scheme in gitk","fromName":"Osamu OKANO","fromEmail":"okano.osamu@gmail.com","sentAt":"2011-05-26T13:25:11Z","receivedAt":"2011-05-26T13:25:11Z","isPatch":false,"sender":{"key":"okano.osamu@gmail.com","avatar":"https://gravatar.com/avatar/08dbdf62f1d26e7f96d27f74d6afcb4f027419102cab5c38e2bbc7c04b1871dd?d=mp&s=160"},"body":"I like Zenburn color scheme.\nI use it on Emacs, chrome, mintty.\nSo I tried to use Zenburn in gitk.\n\nscreenshot is http://bit.ly/j6jmv0\nRegards.\n=== ~/.gitk ===\nset bgcolor #3f3f3f\nset fgcolor #dcdccc\nset colors {#7f9f7f #cc9393 #8cd0d3 #dc8cc3 darkgrey brown #dfaf8f}\nset diffcolors {\"#705050\" \"#60b48a\" \"#8cd0d3\"}\nset markbgcolor #e0e0ff\nset selectbgcolor #506070\n===\ndiff --git a/gitk b/gitk\nindex 4cde0c4..06077af 100755\n--- a/gitk\n+++ b/gitk\n@@ -2164,9 +2164,9 @@ proc makewindow {} {\n \tset h [expr {[font metrics uifont -linespace] + 2}]\n \tset progresscanv .tf.bar.progress\n \tcanvas $progresscanv -relief sunken -height $h -borderwidth 2\n-\tset progressitem [$progresscanv create rect -1 0 0 $h -fill green]\n-\tset fprogitem [$progresscanv create rect -1 0 0 $h -fill yellow]\n-\tset rprogitem [$progresscanv create rect -1 0 0 $h -fill red]\n+\tset progressitem [$progresscanv create rect -1 0 0 $h -fill #7f9f7f]\n+\tset fprogitem [$progresscanv create rect -1 0 0 $h -fill #f0dfaf]\n+\tset rprogitem [$progresscanv create rect -1 0 0 $h -fill #cc9393]\n     }\n     pack $progresscanv -side right -expand 1 -fill x -padx {0 2}\n     set progresscoords {0 0}\n@@ -2295,9 +2295,9 @@ proc makewindow {} {\n     $ctext tag conf hunksep -fore [lindex $diffcolors 2]\n     $ctext tag conf d0 -fore [lindex $diffcolors 0]\n     $ctext tag conf dresult -fore [lindex $diffcolors 1]\n-    $ctext tag conf m0 -fore red\n-    $ctext tag conf m1 -fore blue\n-    $ctext tag conf m2 -fore green\n+    $ctext tag conf m0 -fore \"#cc9393\"\n+    $ctext tag conf m1 -fore \"#8cd0d3\"\n+    $ctext tag conf m2 -fore \"#7f9f7f\"\n     $ctext tag conf m3 -fore purple\n     $ctext tag conf m4 -fore brown\n     $ctext tag conf m5 -fore \"#009090\"\n@@ -2315,7 +2315,7 @@ proc makewindow {} {\n     set mergemax 16\n     $ctext tag conf mresult -font textfontbold\n     $ctext tag conf msep -font textfontbold\n-    $ctext tag conf found -back yellow\n+    $ctext tag conf found -back \"#f0dfaf\"\n\n     .pwbottom add .bleft\n     if {!$use_ttk} {\n@@ -3150,7 +3150,7 @@ image create bitmap tri-dn -background black\n-foreground blue -data {\n        0x00, 0x00};\n }\n\n-image create bitmap reficon-T -background black -foreground yellow -data {\n+image create bitmap reficon-T -background black -foreground #f0dfaf -data {\n     #define tagicon_width 13\n     #define tagicon_height 9\n     static unsigned char tagicon_bits[] = {\n@@ -3177,7 +3177,7 @@ set rectmask {\n        0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,\n        0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};\n }\n-image create bitmap reficon-H -background black -foreground green \\\n+image create bitmap reficon-H -background black -foreground #7f9f7f \\\n     -data $rectdata -maskdata $rectmask\n image create bitmap reficon-o -background black -foreground \"#ddddff\" \\\n     -data $rectdata -maskdata $rectmask\n@@ -5850,9 +5850,9 @@ proc drawcmittext {id row col} {\n     if {$id eq $nullid} {\n \tset ofill red\n     } elseif {$id eq $nullid2} {\n-\tset ofill green\n+\tset ofill #7f9f7f\n     } elseif {$id eq $mainheadid} {\n-\tset ofill yellow\n+\tset ofill #f0dfaf\n     } else {\n \tset ofill [lindex $circlecolors $listed]\n     }\n@@ -6309,13 +6309,13 @@ proc drawtags {id x xt y1} {\n \t    # draw a tag\n \t    set t [$canv create polygon $x [expr {$yt + $delta}] $xl $yt \\\n \t\t       $xr $yt $xr $yb $xl $yb $x [expr {$yb - $delta}] \\\n-\t\t       -width 1 -outline black -fill yellow -tags tag.$id]\n+\t\t       -width 1 -outline #3f3f3f -fill #f0dfaf -tags tag.$id]\n \t    $canv bind $t <1> [list showtag $tag_quoted 1]\n \t    set rowtextx([rowofcommit $id]) [expr {$xr + $linespc}]\n \t} else {\n \t    # draw a head or other ref\n \t    if {[incr nheads -1] >= 0} {\n-\t\tset col green\n+\t\tset col #7f9f7f\n \t\tif {$tag eq $mainhead} {\n \t\t    set font mainfontbold\n \t\t}\n@@ -6324,7 +6324,7 @@ proc drawtags {id x xt y1} {\n \t    }\n \t    set xl [expr {$xl - $delta/2}]\n \t    $canv create polygon $x $yt $xr $yt $xr $yb $x $yb \\\n-\t\t-width 1 -outline black -fill $col -tags tag.$id\n+\t\t-width 1 -outline #3f3f3f -fill $col -tags tag.$id\n \t    if {[regexp {^(remotes/.*/|remotes/)} $tag match remoteprefix]} {\n \t        set rwid [font measure mainfont $remoteprefix]\n \t\tset xi [expr {$x + 1}]\n@@ -6334,7 +6334,7 @@ proc drawtags {id x xt y1} {\n \t\t\t-width 0 -fill \"#ffddaa\" -tags tag.$id\n \t    }\n \t}\n-\tset t [$canv create text $xl $y1 -anchor w -text $tag -fill $fgcolor \\\n+\tset t [$canv create text $xl $y1 -anchor w -text $tag -fill $bgcolor \\\n \t\t   -font $font -tags [list tag.$id text]]\n \tif {$ntags >= 0} {\n \t    $canv bind $t <1> [list showtag $tag_quoted 1]\n@@ -6633,7 +6633,7 @@ proc markmatches {canv l str tag matches font row} {\n \tset xlen [font measure $font [string range $str 0 [expr {$end}]]]\n \tset t [$canv create rect [expr {$x0+$xoff}] $y0 \\\n \t\t   [expr {$x0+$xlen+2}] $y1 \\\n-\t\t   -outline {} -tags [list match$l matches] -fill yellow]\n+\t\t   -outline {} -tags [list match$l matches] -fill #f0dfaf]\n \t$canv lower $t\n \tif {$row == $selectedline} {\n \t    $canv raise $t secsel\n@@ -6716,7 +6716,7 @@ proc setlink {id lk} {\n \tset known [commitinview $id $curview]\n     }\n     if {$known} {\n-\t$ctext tag conf $lk -foreground blue -underline 1\n+\t$ctext tag conf $lk -foreground #8cd0d3 -underline 1\n \t$ctext tag bind $lk <1> [list selbyid $id]\n \t$ctext tag bind $lk <Enter> {linkcursor %W 1}\n \t$ctext tag bind $lk <Leave> {linkcursor %W -1}\n@@ -8846,7 +8846,7 @@ proc redrawtags {id} {\n     if {![info exists iddrawn($id)]} return\n     set row [rowofcommit $id]\n     if {$id eq $mainheadid} {\n-\tset ofill yellow\n+\tset ofill #f0dfaf\n     } else {\n \tset ofill [lindex $circlecolors $cmitlisted($curview,$id)]\n     }\n@@ -11459,7 +11459,7 @@ set ignorespace 0\n set worddiff \"\"\n set markbgcolor \"#e0e0ff\"\n\n-set circlecolors {white blue gray blue blue}\n+set circlecolors {\"#DCDCCC\" \"#8cd0d3\" \"#999999\" \"#8cd0d3\" \"#8cd0d3\"}\n\n # button for popping up context menus\n if {[tk windowingsystem] eq \"aqua\"} {\n"}]}