162452Sbostic# Copyright (c) 1983, 1993 262452Sbostic# The Regents of the University of California. All rights reserved. 322018Sedward# 448334Sbostic# %sccs.include.redist.sh% 522018Sedward# 6*62453Sbostic# @(#)windowrc 8.1 (Berkeley) 06/06/93 748334Sbostic# 848334Sbostic 916106Sedward# Configuration file example for window manager 1016106Sedward# To be installed in ~/.windowrc 1114804Sedward# 1222018Sedward# Create two unequal sized windows of full screen width, 1322018Sedward# and set up some useful aliases. 1422018Sedward# 1514804Sedward 1622018Sedward# 1722018Sedward# Optional settings 1822018Sedward# 1922018Sedward# terse on # set terse mode 2022018Sedward# escape "^A" # set escape character 2122018Sedward# nline 100 # set default buffer size 2214843Sedward # initially, this is 48 2314804Sedward 2422018Sedward# 2522018Sedward# Make two windows 2616106Sedward# The bottom one is MIN(24, total lines * 3 / 4) lines 2716106Sedward# The top one is the rest of the screen. 2822018Sedward# 2922018Sedwardthree_fourth = $nrow - ((_ = $nrow * 3 / 4) > 24 ? 24 : $_) 3022018Sedwardunset _ 3122018Sedwardwindow row = 0, nrow = $three_fourth - 1, label = "Top" 3222018Sedwardwindow row = $three_fourth, label = "Local" 3316106Sedward 3422018Sedward# 3522018Sedward# Useful aliases 3622018Sedward# 3722018Sedward# 3822018Sedward# Standard window 3922018Sedward# 4022018Sedwardalias std "window r = $three_fourth, l = $?1 ? $1 : ''" 4122018Sedward# 4222018Sedward# Sysline, add your own options 4322018Sedward# 4422018Sedwardalias sysline "_ = select();" \ 4522018Sedward "foreground window(r = 0, nr = 1, nc = $ncol + 1, nl = 0," \ 4622018Sedward "l = sysline, pty = no, frame = no, sh = sysline \\-w), 1;" \ 4722018Sedward "select $_; unset _" 4822018Sedward# 4922018Sedward# Rlogin 5022018Sedward# 5122018Sedwardalias rlogin "window r = $three_fourth, l = $1, pty = no, mapnl = no," \ 5222018Sedward "sh = sh \\-c 'echo $TERMCAP | rsh ' + $1 + ' \\'cat > .TERMCAP\\' ;" \ 5322018Sedward "exec rlogin ' + $1" 5422018Sedwardalias rl rlogin \$1 5522018Sedward# 5622018Sedward# Two equal windows 5722018Sedward# 5822018Sedwardalias two "window r = 1, nr = $nrow / 2 - 1, l = top;" \ 5922018Sedward "window r = $nrow / 2 + 1, l = bottom" 60