templates/gitk.in

   1 #!/bin/bash
   2 set -e
   3 . infra/template
   4
   5 case "$font" in
   6 zealot)
   7         cat <<END
   8 set mainfont {{Nimbus Sans L} 12}
   9 set textfont {{Courier 10 Pitch} 12}
  10 set uifont {{Nimbus Sans L} 11 bold}
  11 END
  12         ;;
  13 *)
  14         cat <<END
  15 set mainfont {sans 9}
  16 set textfont {monospace 9}
  17 set uifont {sans 9 bold}
  18 END
  19         ;;
  20 esac
  21
  22 cat <<END
  23 set tabstop 8
  24 set findmergefiles 0
  25 set maxgraphpct 50
  26 set maxwidth 16
  27 set cmitmode patch
  28 set wrapcomment none
  29 set autoselect 0
  30 set autosellen 40
  31 set showneartags 1
  32 set maxrefs 20
  33 set visiblerefs {"master"}
  34 set hideremotes 0
  35 set showlocalchanges 1
  36 set datetimeformat {%Y-%m-%d %H:%M:%S}
  37 set limitdiffs 1
  38 set uicolor grey85
  39 set want_ttk 1
  40 set bgcolor #000000
  41 set fgcolor #ffffff
  42 set uifgcolor black
  43 set uifgdisabledcolor #999
  44 set colors {green red blue magenta darkgrey brown orange}
  45 set diffcolors {{#ff8888} #88ff88 #8080ff}
  46 set mergecolors {red blue green purple brown "#009090" magenta "#808000" "#009000" "#ff0080" cyan "#b07070" "#70b0f0" "#70f0b0" "#f0b070" "#ff70b0"}
  47 set markbgcolor #e0e0ff
  48 set diffcontext 3
  49 set selectbgcolor #333366
  50 set foundbgcolor yellow
  51 set currentsearchhitbgcolor orange
  52 set extdifftool meld
  53 set perfile_attrs 0
  54 set headbgcolor #00ff00
  55 set headfgcolor black
  56 set headoutlinecolor black
  57 set remotebgcolor #ffddaa
  58 set tagbgcolor yellow
  59 set tagfgcolor black
  60 set tagoutlinecolor black
  61 set reflinecolor white
  62 set filesepbgcolor #aaaaaa
  63 set filesepfgcolor black
  64 set linehoverbgcolor #ffff80
  65 set linehoverfgcolor black
  66 set linehoveroutlinecolor black
  67 set mainheadcirclecolor yellow
  68 set workingfilescirclecolor red
  69 set indexcirclecolor green
  70 set circlecolors {white blue gray blue blue}
  71 set linkfgcolor blue
  72 set circleoutlinecolor black
  73 END
  74
  75 perl <$HOME/.gitk -ne '
  76      next unless m{^set geometry\(};
  77      s{^(set geometry\(state\)) .*}{$1 normal};
  78      print;
  79 '
  80
  81 cat <<END
  82 set permviews {}
  83 END