chiark / gitweb /
emacs: local variables ask
[ian-dotfiles.git] / 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