Commit | Line | Data |
---|---|---|
702b1646 EW |
1 | # @(#)windowrc 3.7 %G% |
2 | # | |
60de5df9 EW |
3 | # Copyright (c) 1983 Regents of the University of California, |
4 | # All rights reserved. Redistribution permitted subject to | |
5 | # the terms of the Berkeley Software License Agreement. | |
702b1646 | 6 | # |
17e4eebc EW |
7 | # Configuration file example for window manager |
8 | # To be installed in ~/.windowrc | |
48aba638 | 9 | # |
702b1646 EW |
10 | # Create two unequal sized windows of full screen width, |
11 | # and set up some useful aliases. | |
12 | # | |
48aba638 | 13 | |
702b1646 EW |
14 | # |
15 | # Optional settings | |
16 | # | |
17 | # terse on # set terse mode | |
18 | # escape "^A" # set escape character | |
19 | # nline 100 # set default buffer size | |
e6cf2c12 | 20 | # initially, this is 48 |
48aba638 | 21 | |
702b1646 EW |
22 | # |
23 | # Make two windows | |
17e4eebc EW |
24 | # The bottom one is MIN(24, total lines * 3 / 4) lines |
25 | # The top one is the rest of the screen. | |
702b1646 EW |
26 | # |
27 | three_fourth = $nrow - ((_ = $nrow * 3 / 4) > 24 ? 24 : $_) | |
28 | unset _ | |
29 | window row = 0, nrow = $three_fourth - 1, label = "Top" | |
30 | window row = $three_fourth, label = "Local" | |
17e4eebc | 31 | |
702b1646 EW |
32 | # |
33 | # Useful aliases | |
34 | # | |
35 | # | |
36 | # Standard window | |
37 | # | |
38 | alias std "window r = $three_fourth, l = $?1 ? $1 : ''" | |
39 | # | |
40 | # Sysline, add your own options | |
41 | # | |
42 | alias sysline "_ = select();" \ | |
43 | "foreground window(r = 0, nr = 1, nc = $ncol + 1, nl = 0," \ | |
44 | "l = sysline, pty = no, frame = no, sh = sysline \\-w), 1;" \ | |
45 | "select $_; unset _" | |
46 | # | |
47 | # Rlogin | |
48 | # | |
49 | alias rlogin "window r = $three_fourth, l = $1, pty = no, mapnl = no," \ | |
50 | "sh = sh \\-c 'echo $TERMCAP | rsh ' + $1 + ' \\'cat > .TERMCAP\\' ;" \ | |
51 | "exec rlogin ' + $1" | |
52 | alias rl rlogin \$1 | |
53 | # | |
54 | # Two equal windows | |
55 | # | |
56 | alias two "window r = 1, nr = $nrow / 2 - 1, l = top;" \ | |
57 | "window r = $nrow / 2 + 1, l = bottom" |