--- /dev/null
+# Ian Jackson's shell rc
+
+hostname_completion_file=~/.hosts
+
+export PWD
+
+# My own functions
+ls() { /bin/ls -FC "$@" ; }
+ll() { /bin/ls -FClag "$@" ; }
+setprompt() { PS1=`autotitle`; export PS1; }
+rs() { eval `/usr/openwin/bin/resize` ; setprompt ; }
+cd() { builtin cd "$@"; setprompt; }
+pu() { builtin pushd "$@"; setprompt; }
+po() { builtin popd "$@"; setprompt; }
+
+# newgrp() {
+# NEWGRPSHELL="${LOGINSHELL:-}"; export NEWGRPSHELL
+# exec /bin/newgrp $*
+# }
+
+setenv () {
+ varname=`echo $1 | tr '[a-z]' '[A-Z]'`
+ eval "$varname=\"$2\"" ; export $varname ;
+}
+
+# if [ "${NEWGRPSHELL:-}" ]
+# then
+# unset NEWGRPSHELL
+# LOGINSHELL=true
+# fi
+
+# Set up history and prompt
+if [ "$PS1" ]
+then
+ HISTFILE=$HOME/.history/$HOST~$$~
+ AUTOTITLE_STDOUT="${LOGINSHELL:+-}%?u%U%!%?g(%G)%!%?u@%!%h:%d1~.> "
+ AUTOTITLE_WINDOW="%h - %d~. %Y.[U..[M..[D./..%X.L]..M]..R]./.. %U%?G(%G)%!"
+ AUTOTITLE_ICON="%h: %d3~. %Y.[U..[M..[D./..%X.L]..M]..R]./.."
+ export AUTOTITLE_STDOUT AUTOTITLE_WINDOW AUTOTITLE_ICON
+ setprompt
+fi
+
+# Set up the terminal:
+# stty new intr '^c' erase '^?' kill '^x' susp '^z' dsusp '^y' eof '^d' \
+# hupcl ixon ixoff -tostop quit '^\' 2>/dev/null
--- /dev/null
+*cut: none | left
+*paste: none | middle
+*enter: none | right
+
+epoch.nonlocal.minibuf: false
+
+xv*geometry: +10+10
+
+povray*geometry: +40+10
+povray*background: black
+povray*foreground: black
+
+xbiff*title: xb iwj
+xbiff*geometry: -0-0
+xbiff*foreground: red3
+xbiff*background: white
+xbiff*fullPixmap: bitmap/mail.bitmap
+xbiff*fullPixmapMask: bitmap/mail.mask
+xbiff*emptyPixmap: bitmap/nomail.bitmap
+xbiff*emptyPixmapMask: bitmap/nomail.mask
+xbiff*shapeWindow: true
+
+xbiffc*title: xb chiark
+xbiffc*geometry: -52-0
+xbiffc*foreground: black
+xbiffc*background: white
+xbiffc*fullPixmap: bitmap/mail.bitmap
+xbiffc*fullPixmapMask: bitmap/mail.mask
+xbiffc*emptyPixmap: bitmap/nomail.bitmap
+xbiffc*emptyPixmapMask: bitmap/nomail.mask
+xbiffc*shapeWindow: true
+xbiffc*volume: -100
+
+xbiffs*title: xb sysadmin
+xbiffs*geometry: -104-0
+xbiffs*foreground: #203000
+xbiffs*background: #f0fff0
+xbiffs*fullPixmap: bitmap/mail.bitmap
+xbiffs*fullPixmapMask: bitmap/mail.mask
+xbiffs*emptyPixmap: bitmap/nomail.bitmap
+xbiffs*emptyPixmapMask: bitmap/nomail.mask
+xbiffs*shapeWindow: true
+xbiffs*volume: -100
+
+xbiffp*title: xb ian
+xbiffp*geometry: -156-0
+xbiffp*foreground: #400050
+xbiffp*background: #ffe0ff
+xbiffp*fullPixmap: bitmap/mail.bitmap
+xbiffp*fullPixmapMask: bitmap/mail.mask
+xbiffp*emptyPixmap: bitmap/nomail.bitmap
+xbiffp*emptyPixmapMask: bitmap/nomail.mask
+xbiffp*shapeWindow: true
+xbiffp*volume: -100
+
+xclock*update: 1
+xclock*analog: true
+
+xlock.mode: qix
+
+xman*verticalList: true
+xman*topBox: false
+
+xterm*multiScroll: True
+xterm*saveLines: 512
+xterm*scrollBar: TRUE
+xterm*scrollKey: TRUE
+xterm*scrollTtyOutput: false
+xterm*visualBell: False
+xterm*reverseWrap: TRUE
+
+xlbiff*resetSaver: TRUE
+
+mwm*XCalc*clientDecoration: -minimize -maximize
+mwm*XClock*clientDecoration: -minimize
+mwm*XLoad*clientDecoration: -minimize
+mwm*iconPlacement: top left
+mwm*interactivePlacement: false
+mwm*keyboardFocusPolicy: pointer
+mwm*resizeBorderWidth: 10
+
+Mosaic*confirmExit: false
+Mosaic*editCommand: emacs
+Mosaic*editCommandUseXterm: false
+Mosaic*trackFullURLs: true
+Mosaic*urlExpired: 100000000
+Mosaic*homeDocument: http://www.cl.cam.ac.uk/users/iwj10/
+Mosaic*bodyColors: false
+Mosaic*bodyImages: false
+
+Xarchie.archieHost: archie.doc.ic.ac.uk
+!# archie.doc.ic.ac.uk
+Xarchie.ftpDir: /home/quince/iwj/out
+Xarchie.expert: TRUE
+Xarchie.searchType: regexp
+! Xgopher resources
+
+Emacs.internalBorder: 1
+Emacs.verticalScrollBars: off
+Emacs.menuBar: off
+
+emacs.font: fixed
+Emacs.font: fixed
+emacs19.font: fixed
--- /dev/null
+!# Ian Jackson's X Resources file
+!# Colour specifications for colour displays
+
+!# *foreground: white
+!# *background: black
+!# *borderColor: brown
+!# *cursorColor: white
+!# *topShadowColor: red
+!# *bottomShadowColor: firebrick
+
+nfast-manager*foreground: grey90
+nfast-manager*background: grey22
+nfast-manager*HighlightBackground: grey22
+nfast-manager*activeForeground: white
+nfast-manager*activeBackground: grey35
+nfast-manager*DisabledForeground: black
+nfast-manager*DisabledBackground: grey22
+
+nfast-wish8*foreground: grey90
+nfast-wish8*background: grey22
+nfast-wish8*HighlightBackground: grey22
+nfast-wish8*activeForeground: white
+nfast-wish8*activeBackground: grey35
+nfast-wish8*DisabledForeground: black
+nfast-wish8*DisabledBackground: grey22
+
+emacs.background: Black
+emacs.foreground: White
+emacs.pointerColor: Cyan
+emacs18.background: Black
+emacs18.foreground: White
+emacs18.pointerColor: Cyan
+emacs19.background: Black
+emacs19.foreground: White
+emacs19.pointerColor: Cyan
+
+xcalc.FKeyFore: White
+xcalc.FKeyBack: LightGray
+
+xclock*highlight: white
+xclock*foreground: white
+xclock*background: black
+xclock*hands: light blue
+
+xload*highlight: white
+xload*foreground: light blue
+xload*background: black
+
+xterm*background: black
+xterm*cursorColor: white
+xterm*pointerColor: red
+xterm*pointerColorBackground: white
+xterm*foreground: white
+xterm*borderColor: brown
+
+xlbiff*foreground: white
+xlbiff*background: red4
+
+mwm*activeBackground: light steel blue
+mwm*activeBottomShadowColor: dark slate blue
+mwm*activeForeground: cyan
+mwm*activeTopShadowColor: medium blue
+mwm*background: brown
+mwm*backgroundTile: background
+mwm*bottomShadowColor: black
+mwm*bottomShadowTile: background
+mwm*foreground: cyan
+mwm*foregroundTile: background
+mwm*iconImageBackground: dark grey
+mwm*iconImageForeground: White
+mwm*makeActiveColors: all
+mwm*makeColors: shadow
+mwm*makeIconColors: shadow
+mwm*menu*background: black
+mwm*menu*foreground: goldenrod
+mwm*topShadowColor: dark blue
+mwm*topShadowTile: background
+
+xeyes*foreground: black
+
+bitmap*customization:
+bitmap*grid: TRUE
+bitmap*frame: blue
+
+Emacs.region.attributeForeground: white
+Emacs.highlight.attributeBackground: blue4
+Emacs.region.attributeBackground: #005000
+Emacs.secondary-selection.attributeBackground: red4
--- /dev/null
+!# Ian Jackson's X Resources file
+!# Colour specifications for monochrome displays
+
+X-ray*WindowForeground: black
+X-ray*WindowBackground: white
+X-ray.ForegroundColor: black
+X-ray.BackgroundColor: white
+X-ray.CursorForeground: black
+X-ray.CursorBackground: white
+
+*foreground: black
+*background: white
+*borderColor: brown
+*cursorColor: white
+*topShadowColor: red
+*bottomShadowColor: firebrick
+
+xdvi*cursorColor: black
+
+emacs*background: black
+emacs*foreground: white
+emacs*PaneBackground: black
+emacs*PaneForeground: white
+emacs.pointerColor: Cyan
+
+emacs18*background: black
+emacs18*foreground: white
+emacs18*PaneBackground: black
+emacs18*PaneForeground: white
+emacs18.pointerColor: Cyan
+
+xcalc.FKeyFore: White
+xcalc.FKeyBack: LightGray
+
+xclock*highlight: white
+xclock*foreground: white
+xclock*background: black
+xclock*hands: light blue
+
+xload*background: black
+xload*highlight: white
+xload*foreground: light blue
+
+xterm*background: white
+xterm*cursorColor: black
+xterm*pointerColor: white
+xterm*pointerColorBackground: black
+xterm*foreground: black
+
+xlbiff*foreground: black
+xlbiff*background: white
+
+xab*foreground: white
+xab*background: black
+other-xab*foreground: white
+other-xab*background: black
--- /dev/null
+!# Ian Jackson's X resources file
+!# Font specifications for small fonts (fixed by default)
+
+emacs.font: fixed
+
+xlock.font: fr-25
+
+xlbiff*font: -*-courier-bold-r-*-*-14-*-*-*-*-*-*-*
+
+mwm*font: r14
--- /dev/null
+!# Ian Jackson's X Resources file
+!# Font specifications for larger fonts
+
+*font: -*-fixed-bold-r-normal-*-15-*-*-*-*-*-*-*
+
+emacs.font: -*-fixed-bold-r-normal-*-15-*-*-*-*-*-*-*
+
+xlock.font: -*-charter-bold-r-*-*-24-*-*-*-*-*-iso8859-*
+
+xterm*font: -*-fixed-bold-r-normal-*-15-*-*-*-*-*-*-*
+
+xab*NewList.font: -*-courier-bold-r-*-*-17-*-*-*-*-*-iso8859-*
+
+xlbiff*font: -*-courier-bold-r-*-*-14-*-*-*-*-*-*-*
--- /dev/null
+!# Ian Jackson's X resources file
+!# Font specifications for small fonts (fixed by default)
+
+*font: fixed
+
+emacs.font: fixed
+
+xlock.font: fr-25
+
+xlbiff*font: -*-courier-bold-r-*-*-14-*-*-*-*-*-*-*
+
+mwm*font: r14
--- /dev/null
+!# Ian Jackson's X Resources file
+!# Geometry specifications for normal-sized screen
+
+emacs.geometry: 80x48-0+0
+emacs18.geometry: 80x48-0+0
+emacs19.geometry: 80x48-0+0
+epoch*geometry: 80x48-0+0
+
+xcalc.Geometry: 130x230+710+0
+
+xclock*geometry: 120x120+163+0
+
+xdvi*geometry: 865x714+98-0
+
+xload*geometry: 120x120+295+0
+
+xeyes*geometry: 150x100+179+280
+
+Ups.Geometry: 650x875+382+0
+
+Xarchie.toplevel.geometry: 1042x322+52+52
+Xarchie.hostList.geometry: 300x300+0+0
+
+xlbiff*geometry: -0-0
+xlbiff*bottom: TRUE
+
+other-xab*geometry: +-14--95
--- /dev/null
+!# Ian Jackson's X Resources file
+!# Geometry specifications for small-sized screen
+
+emacs.geometry: 80x31-0+0
+emacs18.geometry: 80x31-0+0
+
+xcalc.Geometry: 130x230+710+0
+
+xload*geometry: 120x120+295+0
+
+xclock*geometry: 120x120+163+0
+
+xeyes*geometry: 150x100+150+250
+
+xlbiff*geometry: -0+0
--- /dev/null
+#!/usr/bin/perl
+# New configuration script
+
+$ENV{'PATH'}.= ':/usr/openwin/bin';
+
+$_= $ENV{'DISPLAY'};
+$_= $ENV{'HOST'}.':0' if m/^:/ || m/^unix:/;
+s/:.*$//;
+s/\.[^0-9].*$//;
+
+$pfx= shift @ARGV;
+@ARGV && warn "arguments beyond the first ignored\n";
+
+if ($_) {
+ $c{'display'}= $_;
+ $_= `xauth -i extract /dev/null $c{'display'}:0 2>&1`;
+ $c{'xauth'}= length($_) ? 'false' : 'true';
+ $_= `xdpyinfo`;
+ $c{'keycodes'}="$1-$2" if m/range:\s+minimum (\d+), maximum (\d+)\s/;
+ if (m/default screen number:\s+(\d+)\s/) {
+ $defscreen= $1;
+ $_=$' if m/\nscreen \#$defscreen:/;
+ $_="$`\n" if m/\n\S/;
+ }
+ ($c{'pixels_x'}, $c{'pixels_y'}) = ($1,$2)
+ if m/dimensions:\s+(\d+)x(\d+) pixels/;
+ ($c{'mm_x'}, $c{'mm_y'}) = ($1,$2)
+ if m/dimensions:.*\D(\d+)x(\d+) millimeters/;
+ ($c{'dpi_x'}, $c{'dpi_y'}) = ($1,$2)
+ if m/resolution:\s+(\d+)x(\d+) dots per inch/;
+ $c{'depth'} = $1 if m/depth of root window:\s+(\d+) planes/;
+ if (m/default visual id:\s+(\w+)\s/) {
+ $defvisual= $1;
+ $_=$' if m/\n visual:\s+visual id:\s+$defvisual\s/;
+ $_="$`\n" if m/\n visual:/;
+ }
+ $c{'visual'} = $1 if m/class:\s+(\w+)\s/;
+ $c{'depth'} = $1 if m/depth:\s+(\d+) planes/;
+}
+
+$c{'host'}= $ENV{'HOST'};
+#$c{'arch'}= $ENV{'ARCH'};
+$_= `uname -sr`; s/\s(\d+)\.\S*/$1/;
+$c{'arch'}= $_;
+
+chdir($ENV{'HOME'});
+chdir('.configs');
+
+open(L, "list") || die "$0: list: $!\n";
+
+while(<L>) {
+ s/\s*$//;
+ next if m/^#/ || m/^$/;
+ $ol= $l= $_;
+ $true=0;
+ while ($l =~ s/\s*(\S+)// && $1 ne ':') {
+ next if $true;
+ $_= $1;
+ if (m/^default$/) {
+ $true= 1;
+ } elsif (m/[<>]=?/) {
+ $lhs= $`;
+ $rhs= $';
+ $op= $&;
+ next unless defined($c{$lhs});
+ $true= eval '$c{$lhs} '.$op.' $rhs';
+ } elsif (m/=/) {
+ $lhs= $`;
+ $rhs= $';
+ next unless defined($c{$lhs});
+ $true= $c{$lhs} eq $rhs;
+ } else {
+ warn "condition `$_' in line $. not understood\n";
+ }
+ }
+ next unless $true;
+ while ($l =~ s/\s*(\S+)//) {
+ unless ($1 =~ m/=/) {
+ warn "consequence `$1' in line $. not understood\n";
+ next;
+ }
+ $c{$`}= $';
+ }
+}
+
+close(L);
+
+while (($k,$v) = each %c) {
+ print " $pfx$k=$v";
+}
+print "\n";
--- /dev/null
+#!/bin/sh
+
+eval `cd $HOME && .configs/configure`
+
+ssh -L 6667:chiark:6667 ijackson@chiark.greenend.org.uk \
+ sleep 604800 </dev/null &
+
+case "$1" in
+-q) exit 0;;
+'') ;;
+*) echo >&2 'usage: .../chiarks [-q]'; exit 1;;
+esac
+
+for x in 3 2 1
+do
+ sz=80x55
+ y=$[35*$x+100+$pixels_y]
+ xb=$[(($pixels_x-503)*(3-$x))/2]
+ xterm-CT "chiark ssh #$x" -geometry $sz+$xb+$y \
+ -e ssh chiark.greenend.org.uk -l ijackson &
+ echo -n :
+ xterm-CT "chiark ssh ian #$x" -geometry $sz+$[$pixels_x+$xb]+$y \
+ -e ssh chiark.greenend.org.uk -l ian &
+ echo -n :
+done
--- /dev/null
+#!/bin/sh
+
+set -e
+cd $HOME/.configs
+HOST=`hostname`
+export HOST
+cache=cache/$HOST%$DISPLAY
+newcache=cache/.$$@$HOST
+trap 'rm -f $newcache; exit 0' 0
+if cat $cache 2>/dev/null; then exit 0; fi
+./checkconfig | tee $newcache
+mv $newcache $cache
--- /dev/null
+#!/bin/sh
+# Configuration script
+
+display=`echo $DISPLAY | sed -e 's/:.*$//' -e 's/\.[^0-9].*$//'`
+[ "x$display" = x ] && display=$HOST
+
+echo `
+
+grep '^host='"$display"' ' $HOME/.configs/list
+[ "x$HOST" = "x$display" ] && grep '^arch='"$ARCH"' ' $HOME/.configs/list
+grep '^default ' $HOME/.configs/list | sed -e 's/^default //'
+
+` | sed -e 's/^/ /' -e 's/ \([a-z][^ =]*\)=/ '$1'\1=/g'
--- /dev/null
+#!/bin/sh
+# logout sequence
+
+cd
+rm -f .history/$HOST~*~
--- /dev/null
+default : kb=none colours=mono font=fixed maccel=2 mthresh=1 size=normal
+default : lxtermopts=-rv printer=wind brokenserver=false brokenbadges=true
+default : echo=echo bvolume=100 bpitch=500 bduration=150
+
+keycodes=8-108 : kb=pericom
+keycodes=8-114 : kb=pc
+keycodes=8-134 : kb=pc
+keycodes=8-157 : kb=pc
+keycodes=8-119 : kb=archim bvolume=70 bpitch=900 bduration=70
+keycodes=8-132 : kb=sun4
+keycodes=8-144 : kb=dsxt
+keycodes=8-254 : kb=tektronix
+keycodes=10-135 : kb=hp
+keycodes=86-251 : kb=ds
+
+depth>3 : colours=colour
+pixels_x<1024 : size=small
+dpi_x>104 : font=larger
+pixels_x>1024 : maccel=4 mthresh=5
+
+display=lettuce : font=fixed
+display=flamingo : font=fixed
+
+display=mint : maccel=15 kb=mint printer=gas
+display=parsley : maccel=15 kb=mint printer=gas
+display=ufford : kb=ds3100
+display=grover : maccel=10
+
+display=puffball : font=puffball brokenserver=true
--- /dev/null
+#!/bin/sh
+emacs -f make-session&
+xbiff&
+unclutter -noevents&
+xterm -geometry 80x41-0+130&
--- /dev/null
+#!/bin/sh
+
+. .configs/setenvir
+
+stty cs8 2>/dev/null || :
+
+xloadt&
+cat /etc/motd
+exec $SHELL
--- /dev/null
+#!/bin/sh
+# Set up the environment:
+
+PATH=$HOME/personal/linux-i386/bin:$HOME/public/linux-i386/bin
+PATH=$PATH:$HOME/personal/linux-i386/crypto/scripts
+PATH=$PATH:/usr/local/bin:/bin:/usr/bin:/usr/local/sbin:/sbin:/usr/sbin
+PATH=$PATH:/opt/bin:/usr/bin/X11
+
+export PATH
+
+CDPATH=:..:$HOME:$HOME/things
+CVSROOT=:ext:iwj@cvs:/ncipher/local-CVS
+EDITOR=emacs
+ESHELL=/usr/bin/bash
+HISTORY=256
+HOST=`hostname`
+LANG=C
+LESS="-eMfQj10"
+# NNTPAUTH="md5cookie1way ian"
+PAGER=less
+# PERLLIB=$HOME/personal/linux/lib/perl5
+PS1="$ "
+TRNINIT=$HOME/.trninit
+WWW_HOME=http://www.chiark.greenend.org.uk/~ijackson/
+export CDPATH CVSROOT EDITOR ESHELL HISTORY HOST LANG LESS
+export PAGER PERLLIB PS1 TRNINIT WWW_HOME
+# NNTPAUTH
+
+NC_SITES=cam:bos
+export NC_SITES
+
+unset MAILPATH
+unset ignoreeof
+
+umask 002
--- /dev/null
+#!/bin/sh
+
+PATH=$HOME/personal/SunOS4/bin:$HOME/public/SunOS4/bin
+PATH=$PATH:/usr/local/bin:/applic/X11R5/bin:/usr/lang:/usr/ucb:/usr/bin
+PATH=$PATH:/etc:/usr/etc:/usr/local/etc
+
+MANPATH=$HOME/personal/SunOS4/man:$HOME/public/SunOS4/man
+MANPATH=$MANPATH:/usr/local/man:/applic/X11R5/man:/usr/lang/man:/usr/man
--- /dev/null
+#!/bin/sh
+
+PATH=$HOME/personal/SunOS5/bin:$HOME/public/SunOS5/bin
+PATH=$PATH:/opt/local/bin:/opt/gnu/bin:/opt/X11R5/bin:/opt/SUNWspro/bin
+PATH=$PATH:/usr/ccs/bin:/usr/bin:/usr/ucb:/sbin:/usr/sbin
+
+MANPATH=$HOME/personal/SunOS5/man:$HOME/public/SunOS5/man
+MANPATH=$MANPATH:/opt/local/man:/opt/gnu/man:/opt/X11R5/man
+MANPATH=$MANPATH:/opt/SUNWspro/man:/usr/man
--- /dev/null
+#!/bin/bash
+
+echo -n '#'
+
+cd
+eval `cd $HOME && .configs/configure`
+
+emacs -f make-session -geometry 80x60+$[$pixels_x*3-486]+0 &
+
+# if [ "x$chost" = x ]
+# then
+# emacs -f make-session &
+# else
+# (cat .configs/setenvir;
+# echo DISPLAY=$display:0 export DISPLAY
+# echo echo -n ,
+# echo emacs -f make-session &
+# echo echo -n ,) | rsh $chost sh &
+# fi
+
+echo -n '#'
--- /dev/null
+#!/bin/bash
+
+eval `.configs/configure`
+
+>".counters/v.$DISPLAY"
+
+# if [ $xauth = true ]
+# then
+# nice -15 sh -c '
+# xhost | perl -ne "s//xhost\t-/; print unless m/ /;" | sh 2>&1 \
+# | perl -pe "s/^\S+ being removed from access control list\s+\$/-/";
+# xhost -
+# ' &
+# fi
+
+echo -n 'starting clients '
+
+echo -n .
+
+sh .configs/x11start-colours=$colours
+
+echo -n .
+
+# if [ "x$chost" = x ]
+# then
+# .configs/xclients &
+# $echo -n .
+# if [ "x$HOST" != xleek ]
+# then
+# xrsh leek /usr/bin/X11/xload -geometry 120x120+34+0 &
+# fi
+# else
+# $brokenserver && xhost +$chost +quince
+# cat .configs/setenvir - .configs/xclients <<END | rsh $chost sh &
+# DISPLAY=$display:0 export DISPLAY
+# END
+# /usr/bin/X11/xload -geometry 120x120+34+0 &
+# $echo -n .
+# fi
+
+.configs/xclients &
+# /usr/bin/X11/xload -geometry 120x120+34+0 &
+
+.configs/startemacs
+# if [ "x$HOST" != xquince ]
+# then
+# xrsh quince /usr/bin/X11/xload -geometry 120x120+432+0 &
+# fi
+
+xsetroot -cursor bitmap/circle bitmap/circle-inv -bg black -fg white
+xset b $bvolume $bpitch $bduration
+xset m $maccel $mthresh c off b 60
+
+echo -n .
+
+# xterm -T "local" -sb -iconic -geometry 80x25-0-0 &
+
+# if [ "x$thost" = x ]
+# then
+# .configs/xtools &
+# else
+# cat .configs/setenvir - .configs/xtools <<END | rsh $thost sh &
+# DISPLAY=$display:0 export DISPLAY
+# END
+# $echo -n .
+# fi
+
+.configs/xtools &
+
+echo -n .
+
+exec xclock
--- /dev/null
+#!/bin/sh
+
+xsetroot -fg dimgrey -bg darkslategrey -bitmap bitmap/root
--- /dev/null
+#!/bin/sh
+
+xsetroot -grey
--- /dev/null
+#!/bin/bash
+
+echo -n @
+
+d="$DISPLAY"
+if [ "x$d" = "x:0.0" ]; then d="$HOSTNAME$DISPLAY"; fi
+
+rsh dover <<END sh
+echo -n @
+. ./.configs/setenvir
+DISPLAY="$d"
+export DISPLAY
+exec 2>>.remoteshell-errors
+xbiff &
+MAILHOST=login.chiark.greenend.org.uk xbiff1339 -name xbiffc -user ijackson &
+MAILHOST=login.chiark.greenend.org.uk xbiff1339 -name xbiffp -user ian &
+MAILHOST=login.chiark.greenend.org.uk xbiff1339 -name xbiffs -user sysadmin &
+echo -n @
+END
--- /dev/null
+#!/bin/bash
+
+eval `cd $HOME && .configs/configure`
+
+#xconsole -geometry -0-0 &
+#
+#echo -n :
+
+exec vtwm &
+
+echo -n :
+
+xloadt &
+
+echo -n :
+
+xterm -n 'xterm d' -T xterm -geometry 80x25+0-10 &
+
+.configs/chiarks
+
+(
+ cat .Xauthority .Xauthority | rsh scarp cat \>.Xauthority
+ remoteshell -rrsh scarp -geometry 80x25+0+258
+ echo -n '~'
+ remoteshell -rrsh -s/opt/bin/bash scarp \
+ emacs -geometry 90x60+$[$pixels_x*4-546]+$pixels_y
+ echo -n '~'
+) &
+
+remoteshell -rrsh keynes -geometry 80x25+172+159 &
+
+echo -n :
+#
+#xbiff &
+
+# xab -iconic &
+# perl -e '$xab="xab"; exec $xab "other-xab"' &
+
+echo -n :
+
+remoteshell -rrsh dover -geometry 80x25-0-71
+
+.configs/xbiffs
+
+(while sleep 3500; do xrefresh -geometry 200x100-0-0; done) &
+
+echo -n :
--- /dev/null
+#!/usr/bin/perl
+
+open(I,"xmodmap -pk |") || die "popen xmodmap -pk: $!\n";
+
+while(<I>) {
+ m/^\s+(\d+)\s+\w+\s+\((\w+)\)\s+\w+\s+\((\w+)\)\s+\w+\s+\(/
+ || next;
+ if ($3 eq 'NoSymbol') {
+ print "keycode $1 = $2\n";
+ } else {
+ print "keycode $1 = $2 $3\n";
+ }
+}
+
+print <<'END'
+keycode 38 = Delete
+keycode 37 = Delete
+keycode 64 = Up
+keycode 80 = Left
+keycode 82 = Right
+keycode 99 = Down
+keycode 40 = F27
+keycode 41 = F29
+keycode 61 = F33
+keycode 62 = F35
+keycode 63 = F27
+keycode 65 = F29
+keycode 81 = F31
+keycode 98 = F33
+keycode 100 = F35
+END
+ ;
--- /dev/null
+! keycode 172 = Multi_key
+! keycode 124 = Escape
+! keycode 140 = Prior
+! keycode 201 = Escape
+! keycode 232 = comma less
+! keycode 237 = period greater
+
+
+! keycode 175 = Caps_Lock
+! keycode 176 = Control_L
+
+! keysym Control_L = Caps_Lock
+! keysym Caps_Lock = Control_L
+! remove Lock = Caps_Lock
+! remove Control = Control_L
+! add Lock = Caps_Lock
+! add Control = Control_L
+! add Mod1 = Multi_key Alt_L
+
+! remove Lock = Caps_Lock
+! remove Control = Control_L
+! keysym Control_L = Caps_Lock
+! keysym Caps_Lock = Control_L
+! add Lock = Caps_Lock
+! add Control = Control_L
+
+
+
+
+
+keycode 176 = Control_L
+clear Lock
+clear Control
+add Control = Control_L
+
+keycode 175 = Caps_Lock
+add Lock = Caps_Lock
--- /dev/null
+remove Lock = Caps_Lock
+remove Control = Control_L
+keysym Control_L = Caps_Lock
+keysym Caps_Lock = Control_L
+add Lock = Caps_Lock
+add Control = Control_L
+
+keycode 124 = Escape
+
+keycode 140 = Prior
+
+keycode 201 = Escape
--- /dev/null
+remove Lock = Caps_Lock
+keycode 101 = Delete
+keycode 55 = Control_L
+keycode 87 = Caps_Lock
+keycode 11 = Multi_Char
+add Control = Control_L
+add Lock = Caps_Lock
--- /dev/null
+keycode 102 = Delete
--- /dev/null
+keycode 11 = 2 quotedbl
+keycode 12 = 3 numbersign
+keycode 22 = BackSpace
+keycode 48 = apostrophe at
+keycode 51 = numbersign asciitilde
+keycode 94 = backslash bar
+keycode 103 = Prior
+keycode 99 = End
+keycode 113 = Multi_key
+
+remove Lock = Caps_Lock
+remove Control = Control_L
+keycode 37 = Caps_Lock
+keycode 66 = Control_L
+add Lock = Caps_Lock
+add Control = Control_L
--- /dev/null
+keycode 21 = Delete
+remove Lock = Caps_Lock
+remove Control = Control_L
+keysym Control_L = Caps_Lock
+keysym Caps_Lock = Control_L
+add Lock = Caps_Lock
+add Control = Control_L
--- /dev/null
+#!/bin/sh
+xmodmap - <<END
+keycode 49 = grave asciitilde
+keycode 95 = numbersign asciitilde
+keycode 50 = Delete
+
+remove Lock = Caps_Lock
+remove Control = Control_L
+keycode 83 = Caps_Lock
+keycode 126 = Control_L
+add Lock = Caps_Lock
+add Control = Control_L
+
+remove mod4 = Alt_L
+add mod1 = Alt_L
+END
+
+xset r 103
+xset r 130
--- /dev/null
+keycode 17 = Escape Escape
+keycode 73 = comma less
+keycode 81 = period greater
+remove Lock = Caps_Lock
+remove Control = Control_L
+keycode 25 = Caps_Lock
+keycode 28 = Control_L
+add Lock = Caps_Lock
+add Control = Control_L
--- /dev/null
+#!/bin/bash
+# Ian Jackson's .xprofile, mostly copied from.... .profile, from
+# (eng.cam.ac.uk) CUED default .profile for /bin/sh or /bin/ksh initialization,
+# then customised for Engineering dept system. This version copied
+# to cl then customised for cl, thence to cam-orl.co.uk, thence
+# to cus.cam.ac.uk.
+
+echo '\e[10;0H'
+#(hidebackups &)
+echo -n 'Hit return for windows... '
+read inputline
+if [ "x$inputline" = x ]
+then
+ exec .configs/x11start
+else
+ exec $SHELL
+fi
--- /dev/null
+#!/bin/bash
+
+eval `.configs/configure`
+
+echo -n +
+# xlbiff &
+echo -n +
+unclutter -noevents &
+echo -n +
--- /dev/null
+update -d
+diff -u
--- /dev/null
+; Ian Jackson's Emacs startup file - runs ~ian/emacs/ian.el
+;
+(setq load-path (append '("~iwj/emacs") load-path))
+(load-library "ian")
+(load-library "ijackson")
+(menu-bar-mode -1)
--- /dev/null
+/SET NOVICE OFF
+/SET MAIL 0
+
+/alias unzen {
+ ignore $0 none
+}
+/alias zen {
+ me exudes an air of Zen-like calm.
+ ignore $0 all
+ timer 300 unzen $0
+}
+/alias chans {
+ join #serious
+ join #topics
+ join #chiark
+}
+/alias blight-id {
+ msg blight identpass ijackson Wfd38Blo
+}
+/alias fastness-id
+ exec -msg Fastness -name fastness-id-proc irc-fastness-id
+}
--- /dev/null
+# Lynx User Defaults File
+#
+# This file contains options saved from the Lynx Options Screen (normally
+# with the '>' key). There is normally no need to edit this file manually,
+# since the defaults here can be controlled from the Options Screen, and the
+# next time options are saved from the Options Screen this file will be
+# completely rewritten. You have been warned...
+# If you are looking for the general configuration file - it is normally
+# called lynx.cfg, and it has different content and a different format.
+# It is not this file.
+
+# file_editor specifies the editor to be invoked when editing local files
+# or sending mail. If no editor is specified, then file editing is disabled
+# unless it is activated from the command line, and the built-in line editor
+# will be used for sending mail.
+file_editor=
+
+show_color=never
+
+# bookmark_file specifies the name and location of the default bookmark
+# file into which the user can paste links for easy access at a later
+# date.
+bookmark_file=lynx_bookmarks.html
+
+# If sub_bookmarks is not turned "off", and multiple bookmarks have
+# been defined (see below), then all bookmark operations will first
+# prompt the user to select an active sub-bookmark file. If the default
+# Lynx bookmark_file is defined (see above), it will be used as the
+# default selection. When this option is set to "advanced", and the
+# user mode is advanced, the 'v'iew bookmark command will invoke a
+# statusline prompt instead of the menu seen in novice and intermediate
+# user modes. When this option is set to "standard", the menu will be
+# presented regardless of user mode.
+sub_bookmarks=off
+
+# The following allow you to define sub-bookmark files and descriptions.
+# The format is multi_bookmark<capital_letter>=<filename>,<description>
+# Up to 26 bookmark files (for the English capital letters) are allowed.
+# We start with "multi_bookmarkB" since 'A' is the default (see above).
+multi_bookmarkB=
+multi_bookmarkC=
+multi_bookmarkD=
+multi_bookmarkE=
+multi_bookmarkF=
+multi_bookmarkG=
+multi_bookmarkH=
+multi_bookmarkI=
+multi_bookmarkJ=
+multi_bookmarkK=
+multi_bookmarkL=
+multi_bookmarkM=
+multi_bookmarkN=
+multi_bookmarkO=
+multi_bookmarkP=
+multi_bookmarkQ=
+multi_bookmarkR=
+multi_bookmarkS=
+multi_bookmarkT=
+multi_bookmarkU=
+multi_bookmarkV=
+multi_bookmarkW=
+multi_bookmarkX=
+multi_bookmarkY=
+multi_bookmarkZ=
+
+# The file_sorting_method specifies which value to sort on when viewing
+# file lists such as FTP directories. The options are:
+# BY_FILENAME -- sorts on the name of the file
+# BY_TYPE -- sorts on the type of the file
+# BY_SIZE -- sorts on the size of the file
+# BY_DATE -- sorts on the date of the file
+file_sorting_method=BY_FILENAME
+
+# personal_mail_address specifies your personal mail address. The
+# address will be sent during HTTP file transfers for authorization and
+# logging purposes, and for mailed comments.
+# If you do not want this information given out, set the NO_FROM_HEADER
+# to TRUE in lynx.cfg, or use the -nofrom command line switch. You also
+# could leave this field blank, but then you won't have it included in
+# your mailed comments.
+personal_mail_address=
+
+# If case_sensitive_searching is "on" then when the user invokes a search
+# using the 's' or '/' keys, the search performed will be case sensitive
+# instead of case INsensitive. The default is usually "off".
+case_sensitive_searching=off
+
+# The character_set definition controls the representation of 8 bit
+# characters for your terminal. If 8 bit characters do not show up
+# correctly on your screen you may try changing to a different 8 bit
+# set or using the 7 bit character approximations.
+# Current valid characters sets are:
+# ISO Latin 1
+# DosLatin1 (cp850)
+# WinLatin1 (cp1252)
+# DosLatinUS (cp437)
+# DEC Multinational
+# Macintosh (8 bit)
+# NeXT character set
+# Chinese
+# Japanese (EUC)
+# Japanese (SJIS)
+# Korean
+# Taipei (Big5)
+# Vietnamese (VISCII)
+# 7 bit approximations
+# Transparent
+# ISO Latin 2
+# DosLatin2 (cp852)
+# WinLatin2 (cp1250)
+# ISO Latin 3
+# ISO Latin 4
+# DosBaltRim (cp775)
+# WinBaltRim (cp1257)
+# ISO 8859-5 Cyrillic
+# DosCyrillic (cp866)
+# WinCyrillic (cp1251)
+# KOI8-R Cyrillic
+# ISO 8859-6 Arabic
+# DosArabic (cp864)
+# WinArabic (cp1256)
+# ISO 8859-7 Greek
+# DosGreek (cp737)
+# DosGreek2 (cp869)
+# WinGreek (cp1253)
+# ISO 8859-8 Hebrew
+# DosHebrew (cp862)
+# WinHebrew (cp1255)
+# ISO 8859-9 (Latin 5)
+# ISO 8859-10
+# UNICODE UTF-8
+# RFC 1345 w/o Intro
+# RFC 1345 Mnemonic
+character_set=ISO Latin 1
+
+# preferred_language specifies the language in MIME notation (e.g., en,
+# fr, may be a comma-separated list in decreasing preference)
+# which Lynx will indicate you prefer in requests to http servers.
+# If a file in that language is available, the server will send it.
+# Otherwise, the server will send the file in it's default language.
+preferred_language=en
+
+# preferred_charset specifies the character set in MIME notation (e.g.,
+# ISO-8859-2, ISO-8859-5) which Lynx will indicate you prefer in requests
+# to http servers using an Accept-Charset header. The value should NOT
+# include ISO-8859-1 or US-ASCII, since those values are always assumed
+# by default. May be a comma-separated list.
+# If a file in that character set is available, the server will send it.
+# If no Accept-Charset header is present, the default is that any
+# character set is acceptable. If an Accept-Charset header is present,
+# and if the server cannot send a response which is acceptable
+# according to the Accept-Charset header, then the server SHOULD send
+# an error response, though the sending of an unacceptable response
+# is also allowed.
+preferred_charset=
+
+# show_color specifies how to set the color mode at startup. A value of
+# "never" will force color mode off (treat the terminal as monochrome)
+# at startup even if the terminal appears to be color capable. A value of
+# "always" will force color mode on even if the terminal appears to be
+# monochrome, if this is supported by the library used to build lynx.
+# A value of "default" will yield the behavior of assuming
+# a monochrome terminal unless color capability is inferred at startup
+# based on the terminal type, or the -color command line switch is used, or
+# the COLORTERM environment variable is set. The default behavior always is
+# used in anonymous accounts or if the "option_save" restriction is set.
+# The effect of the saved value can be overridden via
+# the -color and -nocolor command line switches.
+# The mode set at startup can be changed via the "show color" option in
+# the 'o'ptions menu. If the option settings are saved, the "on" and
+# "off" "show color" settings will be treated as "default".
+show_color=default
+
+# If vi_keys is set to "on", then the normal VI movement keys:
+# j = down k = up
+# h = left l = right
+# will be enabled. These keys are only lower case.
+# Capital 'H', 'J' and 'K will still activate help, jump shortcuts,
+# and the keymap display, respectively.
+vi_keys=off
+
+# If emacs_keys is to "on" then the normal EMACS movement keys:
+# ^N = down ^P = up
+# ^B = left ^F = right
+# will be enabled.
+emacs_keys=off
+
+# show_dotfiles specifies that the directory listing should include
+# "hidden" (dot) files/directories. If set "on", this will be
+# honored only if enabled via userdefs.h and/or lynx.cfg, and not
+# restricted via a command line switch. If display of hidden files
+# is disabled, creation of such files via Lynx also is disabled.
+show_dotfiles=off
+
+# select_popups specifies whether the OPTIONs in a SELECT block which
+# lacks a MULTIPLE attribute are presented as a vertical list of radio
+# buttons or via a popup menu. Note that if the MULTIPLE attribute is
+# present in the SELECT start tag, Lynx always will create a vertical list
+# of checkboxes for the OPTIONs. A value of "on" will set popup menus
+# as the default while a value of "off" will set use of radio boxes.
+# The default can be overridden via the -popup command line toggle.
+select_popups=on
+
+# show_cursor specifies whether to 'hide' the cursor to the right (and
+# bottom, if possible) of the screen, or to place it to the left of the
+# current link in documents, or current option in select popup windows.
+# Positioning the cursor to the left of the current link or option is
+# helpful for speech or braille interfaces, and when the terminal is
+# one which does not distingish the current link based on highlighting
+# or color. A value of "on" will set positioning to the left as the
+# default while a value of "off" will set 'hiding' of the cursor.
+# The default can be overridden via the -show_cursor command line toggle.
+show_cursor=off
+
+# If keypad_mode is set to "NUMBERS_AS_ARROWS", then the numbers on
+# your keypad when the numlock is on will act as arrow keys:
+# 8 = Up Arrow
+# 4 = Left Arrow 6 = Right Arrow
+# 2 = Down Arrow
+# and the corresponding keyboard numbers will act as arrow keys,
+# regardless of whether numlock is on.
+# If keypad_mode is set to "LINKS_ARE_NUMBERED", then numbers will
+# appear next to each link and numbers are used to select links.
+# If keypad_mode is set to "LINKS_AND_FORM_FIELDS_ARE_NUMBERED", then
+# numbers will appear next to each link and visible form input field.
+# Numbers are used to select links, or to move the "current link" to a
+# form input field or button. In addition, options in popup menus are
+# indexed so that the user may type an option number to select an option in
+# a popup menu, even if the option isn't visible on the screen. Reference
+# lists and output from the list command also enumerate form inputs.
+# NOTE: Some fixed format documents may look disfigured when
+# "LINKS_ARE_NUMBERED" or "LINKS_AND_FORM_FIELDS_ARE_NUMBERED" are
+# enabled.
+keypad_mode=LINKS_AND_FORM_FIELDS_ARE_NUMBERED
+
+# linedit_mode specifies the key binding used for inputting strings in
+# prompts and forms. If lineedit_mode is set to "Default Binding" then
+# the following control characters are used for moving and deleting:
+#
+# Prev Next Enter = Accept input
+# Move char: <- -> ^G = Cancel input
+# Move word: ^P ^N ^U = Erase line
+# Delete char: ^H ^R ^A = Beginning of line
+# Delete word: ^B ^F ^E = End of line
+#
+# Current lineedit modes are:
+# Default Binding
+lineedit_mode=Default Binding
+
+# dir_list_styles specifies the directory list style under DIRED_SUPPORT
+# (if implemented). The default is "MIXED_STYLE", which sorts both
+# files and directories together. "FILES_FIRST" lists files first and
+# "DIRECTORIES_FIRST" lists directories first.
+dir_list_style=MIXED_STYLE
+
+# user_mode specifies the users level of knowledge with Lynx. The
+# default is "NOVICE" which displays two extra lines of help at the
+# bottom of the screen to aid the user in learning the basic Lynx
+# commands. Set user_mode to "INTERMEDIATE" to turn off the extra info.
+# Use "ADVANCED" to see the URL of the currently selected link at the
+# bottom of the screen.
+user_mode=ADVANCED
+
+# If run_all_execution_links is set "on" then all local exection links
+# will be executed when they are selected.
+#
+# WARNING - This is potentially VERY dangerous. Since you may view
+# information that is written by unknown and untrusted sources
+# there exists the possibility that Trojan horse links could be
+# written. Trojan horse links could be written to erase files
+# or compromise security. This should only be set to "on" if
+# you are viewing trusted source information.
+run_all_execution_links=off
+
+# If run_execution_links_on_local_files is set "on" then all local
+# execution links that are found in LOCAL files will be executed when they
+# are selected. This is different from run_all_execution_links in that
+# only files that reside on the local system will have execution link
+# permissions.
+#
+# WARNING - This is potentially dangerous. Since you may view
+# information that is written by unknown and untrusted sources
+# there exists the possibility that Trojan horse links could be
+# written. Trojan horse links could be written to erase files
+# or compromise security. This should only be set to "on" if
+# you are viewing trusted source information.
+run_execution_links_on_local_files=off
+
--- /dev/null
+application/pdf;gv %s
+application/postscript;gv %s
--- /dev/null
+# Ian Jackson's .profile, mostly copied from.... (eng.cam.ac.uk)
+# CUED default .profile for /bin/sh or /bin/ksh initialization,
+# then customised for Engineering dept system. This version copied
+# to cl then customised for cl, thence to cam-orl.co.uk, thence
+# to chiark, thence to ncipher
+
+. .configs/setenvir
+
+echo --------------------------------------------------
+uptime
+
+if [ "x$TERM" = "xnetwork" ]
+then
+ defterm=vt100
+ echo -n "Terminal type (default=$defterm) ... "
+ read TERM
+ [ "x$TERM" = x ] && TERM=$defterm
+ export TERM
+fi
+
+[ "x`tty`" = x/dev/console ] || stty cs8 2>/dev/null || true
+
+exec $SHELL
--- /dev/null
+c1 off
+escape ^]^]
+defescape ^Z^A
+nethack on
--- /dev/null
+-xsml
+-XDD
+-l
+-m=u
+-M
+-S5
+-h
++hFrom
++hDate
++hSummary
+-EEXSAVER="%e <%A"
+-EUNSHAR="unshar -s"
+-f
+-a
+-B
+-EFAST_PNEWS=y
+-T
--- /dev/null
+u %(%m=[aefnp]?U:u)
+U %(%m=[aefnp]?U+:U)
+^U %(%m=t?+u:u)
+= %(%m=[aep]?_a:=)
++ %(%m=[aep]?_T:+)
+^P %(%m=[aep]?_P:^P)
+^N %(%m=[aep]?_N:^N)
+f %(%m=[ap]?fy^j:f)
+^A %(%m=t?\:|newsbinsave -s^j\:-^j@J:)
+^W |findurl-runbrowser\n
--- /dev/null
+#
+# Ian's twm configuration file.
+#
+
+# RandomPlacement
+DecorateTransients
+TitleFont "-adobe-helvetica-bold-r-normal--*-120-*-*-*-*-*-*"
+ResizeFont "-adobe-helvetica-bold-r-normal--*-120-*-*-*-*-*-*"
+MenuFont "-adobe-helvetica-bold-r-normal--*-120-*-*-*-*-*-*"
+IconFont "-adobe-helvetica-bold-r-normal--*-100-*-*-*-*-*-*"
+IconManagerFont "-adobe-helvetica-bold-r-normal--*-100-*-*-*"
+IconifyByUnmapping
+NoCaseSensitive
+IconManagerGeometry "119x286+0+0"
+NoDefaults
+DontMoveOff
+OpaqueMove
+Zoom
+NoRaiseOnMove
+NoRaiseOnResize
+SortIconManager
+NoTitle { "TWM Icon Manager" "VTWM Desktop" "xclock" "xload" }
+DontSqueezeTitle { "emacs" "emacs18" "epoch" "Emacs" }
+SqueezeTitle
+RestartPreviousState
+WarpCursor
+Function "select" { f.iconify f.deiconify }
+WindowFunction f.function "select"
+WindowRing { "emacs" "emacs18" "XTerm" }
+OldFashionedTwmWindowsMenu
+
+VirtualDesktop "6432x3608-208-0" 48
+#VirtualDesktop "6400x3600-208-0" 48
+# +32,+8
+
+#VirtualDesktop "5136x3076-208-0" 48
+#VirtualDesktop "5120x3072-237-0" 48
+# +16,+4
+
+#VirtualDesktop "4x3-208-0" 48
+
+NotVirtualGeometries
+PanDistanceX 100
+PanDistanceY 100
+
+FixManagedVirtualGeometries
+FixTransientVirtualGeometries
+SnapRealScreen
+
+DontShowInDisplay {
+ "VTWM Desktop"
+ "xb ian"
+ "xb sysadmin"
+ "xb chiark"
+ "xb iwj"
+ "xclock"
+ "xload"
+ "XLoad"
+}
+
+NailedDown {
+ "VTWM Desktop"
+ "xb ian"
+ "xb sysadmin"
+ "xb chiark"
+ "xb iwj"
+ "xclock"
+ "xwrits"
+ "xload"
+ "XLoad"
+}
+
+Cursors
+{
+ Frame "crosshair"
+ Title "crosshair"
+ Icon "crosshair"
+ IconMgr "crosshair"
+ Move "fleur"
+ Resize "fleur"
+ Menu "sb_left_arrow"
+ Button "hand2"
+ Wait "watch"
+ Select "dot"
+ Destroy "pirate"
+}
+
+Color
+{
+ BorderColor "yellow"
+ DefaultBackground "black"
+ DefaultForeground "white"
+ TitleBackground "midnight blue"
+ TitleForeground "light steel blue"
+ MenuBackground "midnight blue"
+ MenuForeground "light steel blue"
+ MenuTitleBackground "midnight blue"
+ MenuTitleForeground "light steel blue"
+ IconBackground "midnight blue"
+ IconForeground "light steel blue"
+ IconBorderColor "red"
+ IconManagerBackground "orange1"
+ IconManagerForeground "black"
+ BorderTileForeground "red"
+ BorderTileBackground "red"
+
+ VirtualBackground "midnight blue"
+ DesktopDisplayBackground "black"
+ DesktopDisplayBorder "light steel blue"
+ RealScreenBackground "white"
+}
+
+Monochrome
+{
+ BorderColor "black"
+ DefaultBackground "black"
+ DefaultForeground "white"
+ TitleBackground "white"
+ TitleForeground "black"
+ MenuBackground "black"
+ MenuForeground "white"
+ MenuTitleBackground "black"
+ MenuTitleForeground "white"
+ IconBackground "black"
+ IconForeground "white"
+ IconBorderColor "white"
+ IconManagerBackground "white"
+ IconManagerForeground "black"
+ BorderTileForeground "black"
+ BorderTileBackground "white"
+}
+
+# Define some useful functions for motion-based actions.
+MoveDelta 3
+Function "forcemove-or-lower" { f.forcemove f.deltastop f.lower }
+Function "move-or-raise" { f.move f.deltastop f.raise }
+
+# Root window buttons
+Button1 = : root : f.menu "hosts"
+Button2 = : root : f.menu "TwmWindows"
+Button3 = : root : f.menu "programs"
+Button1 = m : root : f.unfocus
+
+Button1 = : desktop : f.movescreen
+Button2 = : desktop : f.movescreen
+#Button3 = : desktop : f.iconify
+
+# Per window buttons
+Button1 = : icon|iconmgr|frame|title : f.function "move-or-raise"
+Button2 = : icon|iconmgr|frame|title : f.function "forcemove-or-lower"
+Button3 = : icon|iconmgr|frame|title : f.menu "windowmenu"
+Button1 = shift : icon|iconmgr|frame|title : f.iconify
+Button2 = shift : icon|iconmgr|frame|title : f.resize
+Button3 = shift : icon|iconmgr|frame|title : f.zoom
+Button1 = m : icon|iconmgr|frame|title : f.focus
+Button3 = m : icon|iconmgr|frame|title : f.saveyourself
+Button1 = control : icon|iconmgr|frame|title : f.forcemove
+Button3 = control : icon|iconmgr|frame|title : f.delete
+Button3 = control|shift : icon|iconmgr|frame|title : f.destroy
+Button1 = control|shift|m : window|frame|title : f.destroy
+Button2 = control|shift|m : window|frame|title : f.forcemove
+Button3 = control|shift|m : window|frame|title : f.menu "windowmenu"
+
+"Up" = m : all : f.panup "100"
+"Down" = m : all : f.pandown "100"
+"Left" = m : all : f.panleft "100"
+"Right" = m : all : f.panright "100"
+
+Function "drag-with-up" {
+ f.nail
+ f.panup "100"
+ f.raise
+ f.nail
+}
+
+Function "drag-with-down" {
+ f.nail
+ f.pandown "100"
+ f.raise
+ f.nail
+}
+
+Function "drag-with-left" {
+ f.nail
+ f.panleft "100"
+ f.raise
+ f.nail
+}
+
+Function "drag-with-right" {
+ f.nail
+ f.panright "100"
+ f.raise
+ f.nail
+}
+
+"Up" = m|shift : window|frame|title : f.function "drag-with-up"
+"Down" = m|shift : window|frame|title : f.function "drag-with-down"
+"Left" = m|shift : window|frame|title : f.function "drag-with-left"
+"Right" = m|shift : window|frame|title : f.function "drag-with-right"
+
+# Accelerators out of icon manager
+"F1" = : icon|window|frame|title : f.iconify
+"F2" = : icon|window|frame|title : f.raise
+"F3" = : icon|window|frame|title : f.lower
+"F1" = : iconmgr : f.hideiconmgr
+"F2" = : iconmgr : f.hideiconmgr
+"F7" = : all : f.warpring "prev"
+"F8" = : all : f.warpring "next"
+"Menu" = : icon|window|frame|title : f.showiconmgr
+
+# Accelerators in icon manager
+"F7" = : iconmgr : f.previconmgr
+"F8" = : iconmgr : f.nexticonmgr
+"Menu" = : iconmgr : f.function "select"
+
+# Accelerators everywhere for new clients
+"F4" = : all : !"xtrlock &"
+"F6" = : all : !"xterm &"
+
+menu "windowmenu"
+{
+ "Window Menu" f.title
+ "Close" f.delete
+ "Destroy" f.destroy
+ "" f.nop
+ "Icon" f.iconify
+ "Nail" f.nail
+ "Zoom" f.zoom
+ "Resize" f.resize
+ "Identify" f.identify
+ "Forced move" f.forcemove
+ "" f.nop
+ "Mouse help" f.menu "windowmice"
+}
+
+menu "windowmice"
+{
+ "Modifiers Leftbutton Middle Right" f.nop
+ "" f.nop
+ " Move/Raise Move/Lower Menu" f.nop
+ " Shift: Iconify Resize Zoom" f.nop
+ " Meta: Focus/Unfocus Checkpoint" f.nop
+ " Control: Forced Move Delete" f.nop
+ "Control+Shift: Destroy" f.nop
+}
+
+menu "special"
+{
+ "Management" f.title
+ "Refresh" f.refresh
+ "Restart" f.restart
+ "" f.nop
+ "Kill twm" f.quit
+ "" f.nop
+ "Show icon list" f.showiconmgr
+ "Hide icon list" f.hideiconmgr
+}
+
+menu "programs"
+{
+ "Programs" f.title
+ "Emacs restart" !".configs/startemacs"
+ "Emacs left" !"emacs -geometry 79x40+0+35 &"
+ "" f.nop
+ "IRC chiark" !"xterm -geometry 80x80+240+95 -e irc Diziet localhost &"
+ "" f.nop
+ "Trn" !"xterm -geometry 80x45+240+95 -e trn &"
+ "Archie" !"xarchie &"
+ "Calc" !"xcalc &"
+# "Xab large" !"xab &"
+# "Xab small" !"perl -e '$xab=\"xab\"; exec $xab \"other-xab\"' &"
+ "" f.nop
+ "Management" f.menu "special"
+ "Hosts" f.menu "hosts"
+ "Games" f.menu "games"
+ "Demos" f.menu "demos"
+}
+
+
+Menu "hosts"
+{
+ "Hosts" f.title
+ "Dounreay" !"remoteshell dounreay &"
+ "Dover" !"remoteshell -rrsh dover &"
+ "Titanic" !"xterm-CT 'titanic rlogin' -e rlogin titanic &"
+ "Belgrano" !"xterm-CT 'belgrano ssh' -e ssh belgrano &"
+ "" f.nop
+ "Jura" !"remoteshell jura &"
+ "Islay" !"remoteshell -rrsh islay &"
+ "Keynes" !"remoteshell -rrsh keynes &"
+ "Scarp" !"remoteshell -rrsh scarp &"
+ "Fowey" !"remoteshell -rrsh fowey &"
+ "Ludlow" !"remoteshell -rrsh ludlow &"
+ "Greenock" !"remoteshell -rrsh greenock &"
+ "" f.nop
+ "Relativity" !"xterm-CT 'Relativity' -e ssh -p24 r-ian@relativity.dynamic.greenend.org.uk &"
+ "" f.nop
+ "Lewes" !"xterm-CT 'lewes rlogin' -e rlogin lewes &"
+ "Scunthorpe" !"xterm-CT 'scunthorpe rlogin' -e rlogin scunthorpe &"
+ "Saintpaul" !"xterm-CT 'saintpaul rlogin' -e rlogin saintpaul &"
+ "Slough" !"xterm-CT 'slough rlogin' -e rlogin slough &"
+ "Guildford" !"xterm-CT 'guildford rlogin' -e rlogin guildford &"
+ "York" !"xterm-CT 'york rlogin' -e rlogin york &"
+# "Greenock" !"xterm-CT 'greenock rlogin' -e rlogin greenock &"
+ "" f.nop
+ "Ursa" !"xterm-CT 'ursa rlogin' -e rlogin ursa.cus.cam.ac.uk -l iwj10 &"
+ "Taurus" !"xterm-CT 'taurus ssh' -e ssh taurus.cus.cam.ac.uk -l iwj10 &"
+ "Taurus rlogin" !"xterm-CT 'taurus rlogin' -e rlogin taurus.cus.cam.ac.uk -l iwj10 &"
+ "Bootes" !"xterm-CT 'bootes rlogin' -e rlogin bootes.cus.cam.ac.uk -l iwj10 &"
+ "Thor" !"xterm-CT 'thor rlogin' -e rlogin hammer.thor.cam.ac.uk -l iwj10 &"
+ "" f.nop
+ "Leek" !"xterm-CT 'leek rlogin' -e rlogin leek.cam-orl.co.uk -l iwj&"
+ "Lobster" !"xterm-CT 'lobster rlogin' -e rlogin lobster.cam-orl.co.uk -l iwj&"
+ "" f.nop
+ "Shep" !"xterm-CT 'shep ssh' -e ssh shep.cl.cam.ac.uk -l iwj10 &"
+ "Ouse" !"xterm-CT 'ouse ssh' -e ssh ouse.cl.cam.ac.uk -l iwj10 &"
+ "" f.nop
+ "Chiark" !"xterm-CT 'chiark ssh' -e ssh chiark.greenend.org.uk -l ijackson &"
+ "Chiark ian" !"xterm-CT 'chiark ssh ian' -e ssh chiark.greenend.org.uk -l ian &"
+ "Chiark II" !"xterm-CT 'chiark ssh II' -e ssh chiark.greenend.org.uk -t -l ijackson personal/linux/bin/II &"
+ "Iguana" !"xterm-CT 'iguana ssh' -e ssh iguana.ucam.org -l ijackson &"
+ "Utter" !"xterm-CT 'utter ssh' -e ssh utter.chaos.org.uk -l ijackson &"
+ "" f.nop
+ "Club" !"xterm-CT 'club rlogin' -e rlogin club.damtp.cam.ac.uk -l iwj10 &"
+ "Greed" !"xterm-CT 'greed rlogin' -e rlogin greed.damtp.cam.ac.uk -l iwj10 &"
+ "Enghp" !"xterm -geometry 80x50 -T 'enghp' -e rlogin enghp.chu.cam.ac.uk -l iwj10 &"
+ "Impren" !"xterm-CT 'impren rlogin' -e rlogin impren.al.cl.cam.ac.uk -l ijackson &"
+ "" f.nop
+ "Novare -v" !"xterm-CT 'novare -v' -e ssh -v debian.novare.net -l iwj &"
+ "Novare" !"xterm-CT 'novare' -e ssh debian.novare.net -l iwj &"
+ "Debian" !"xterm-CT 'debian' -e rlogin ftp.debian.org -l iwj &"
+ "Debra" !"xterm-CT 'debra' -e rlogin debra.debian.org -l iwj &"
+ "GNU" !"xterm-CT 'gnu' -e rlogin mescaline.gnu.org -l ijackson &"
+ "GNU dist" !"xterm-CT 'gnudist' -e rlogin gnudist.gnu.org -l ijackson &"
+ "Master" !"xterm-CT 'master' -e ssh master.debian.org -l iwj &"
+ "Va" !"xterm-CT 'va' -e ssh va.debian.org -l iwj &"
+ "Nyx" !"xterm-CT 'nyx - rlogin' -e rlogin nyx.cs.du.edu -l ijackson &"
+ "Sunsite" !"xterm-CT 'sunsite' -e rlogin sunsite.unc.edu -l iwj &"
+ "White" !"xterm-CT 'white' -geometry 80x25 -e sh -c \
+ 'rlogin white.dogwood.com; line >/dev/null' &"
+}
+
+Menu "demos"
+{
+ "Demos - probably broken" f.title
+ "Ico" !"ico &"
+ "Maze" !"maze &"
+ "Muncher" !"muncher &"
+ "Plaid" !"plaid &"
+ "Worm" !"worm &"
+ "Colors" !"xcolors &"
+ "Eyes" !"xeyes &"
+ "Life" !"xlife &"
+ "XLogo" !"xlogo &"
+}
+
+Menu "games"
+{
+ "Games - probably broken" f.title
+ "Chomp" !"xchomp &"
+ "Cbzone" !"cbzone &"
+ "MazeWar" !"xterm -e mazewar &"
+ "Mille" !"xmille &"
+ "Reversi" !"reversi &"
+ "Roids" !"roids &"
+ "Robots" !"xrobots &"
+ "Shanghai" !"xmj &"
+ "Solitaire" !"xsol &"
+ "Spider" !"spider &"
+}
--- /dev/null
+#!/bin/bash
+
+exec >>.configs/xsession-errors 2>&1
+echo xsession running
+
+. .configs/setenvir
+
+eval `.configs/configure`
+
+set
+
+if [ -x .configs/xmodmap-kb=$kb ]
+then
+ .configs/xmodmap-kb=$kb | xmodmap -
+else
+ xmodmap .configs/xmodmap-kb=$kb
+fi
+
+xrdb -merge .configs/Xresources
+xrdb -merge .configs/Xresources-colours=$colours
+xrdb -merge .configs/Xresources-font=$font
+xrdb -merge .configs/Xresources-size=$size
+
+${lxtermpath}xterm -C $lxtermopts -T "login" -e .configs/xprofile
+echo xterm done logging out again
+rm .configs/xsession-errors
+.configs/eliforp
--- /dev/null
+; dired-alternate.el
+; (C)1991 Ian Jackson
+; This file is placed under the protection of the GNU General Public Licence.
+;
+; Patch to make "F" in dired-mode replace the current (dired) buffer with
+; a buffer visiting the file the cursor is on.
+;
+; Also new dired-run-file function.
+
+(defun dired-find-alternate-file ()
+ "Like dired-find-file and find-alternate-file put together"
+ (interactive)
+ (find-alternate-file (dired-get-filename)))
+
+(defun dired-run-file ()
+ "Runs the file pointed to in dired - output if any is put in the *Shell Command Output* buffer"
+ (interactive)
+ (let ((file (dired-get-filename))
+ (shelco (get-buffer-create "*Shell Command Output*"))
+ (oldbuf (current-buffer)))
+ (message "Running %s..." file)
+ (set-buffer shelco)
+ (erase-buffer)
+ (set-buffer-modified-p nil)
+ (call-process file nil shelco nil)
+ (if (buffer-modified-p)
+ (display-buffer shelco))
+ (message "Running %s...done" file)
+ (set-buffer oldbuf)
+ (revert-buffer)))
--- /dev/null
+(defun find-alternate-file (filename)
+ "Find file FILENAME, select its buffer, kill previous buffer.
+If the current buffer now contains an empty file that you just visited
+\(presumably by mistake), use this command to visit the file you really want.
+
+This function has been modified by Ian Jackson so as to revert to the
+old (Emacs 18) behaviour of not requiring you to cut out the current
+buffer's filename."
+ (interactive
+ (let ((file buffer-file-name)
+ (file-dir nil))
+ (and file
+ (setq file-dir (file-name-directory file)))
+ (list (read-file-name
+ "Find alternate file: " file-dir nil nil nil))))
+ (and (buffer-modified-p)
+ ;; (not buffer-read-only)
+ (not (yes-or-no-p (format "Buffer %s is modified; kill anyway? "
+ (buffer-name))))
+ (error "Aborted"))
+ (let ((obuf (current-buffer))
+ (ofile buffer-file-name)
+ (onum buffer-file-number)
+ (otrue buffer-file-truename)
+ (oname (buffer-name)))
+ (rename-buffer " **lose**")
+ (setq buffer-file-name nil)
+ (setq buffer-file-number nil)
+ (setq buffer-file-truename nil)
+ (unwind-protect
+ (progn
+ (unlock-buffer)
+ (find-file filename))
+ (cond ((eq obuf (current-buffer))
+ (setq buffer-file-name ofile)
+ (setq buffer-file-number onum)
+ (setq buffer-file-truename otrue)
+ (lock-buffer)
+ (rename-buffer oname))))
+ (or (eq (current-buffer) obuf)
+ (kill-buffer obuf))))
+
+(provide 'find-alternate-18style)
--- /dev/null
+;; Ian Jackson's mail nicknames file. -*- fundamental -*-
+;; (don't edit as elisp)
+(setq mail-aliases '(
+;; Cambridge
+ ("adamm". "Adam Mosley <ajm1006@cus.cam.ac.uk>")
+ ("alanb". "Alan Bain <afrb2@hermes.cam.ac.uk>")
+ ("alanw". "Alan Woolway <arw19@cus.cam.ac.uk>")
+ ("aldabras". "Aldabra Stoddart <pas14@cus.cam.ac.uk>")
+ ("alicej". "Alice Jenkins <AJ111@phx.cam.ac.uk>")
+ ("andersc". "Anders Chrigstrom <ac@netg.se>")
+ ("andrewm". "Andrew Mobbs <ajm46@hermes.cam.ac.uk>")
+ ("andyh". "Andy Hopper <ah@cam-orl.co.uk>")
+ ("austind-urgent". "Austin Donnelly <and1000@cl.cam.ac.uk>")
+ ("austind". "Austin Donnelly <and1000@hermes.cam.ac.uk>")
+ ("austind-debian". "Austin Donnelly <and1000@debian.org>")
+ ("austind-stable". "Austin Donnelly <and1000@nyx.cs.du.edu>")
+ ("austind-home" . "Austin Donnelly <austin@greenend.org.uk>")
+ ("bdale". "Bdale Garbee <bdale@gag.com>")
+ ("bdaleg". "Bdale Garbee <bdale@gag.com>")
+ ("brucep". "Bruce Perens <bruce@pixar.com>")
+ ("carls". "Carl V Streeter <streeter@cae.wisc.edu>")
+ ("clarei". "Clare Izard <clare@angelos.demon.co.uk>")
+ ("clivej". "Clive Jones <clive@nsict.org>")
+ ("colinb". "Colin Bell <crb11@cam.ac.uk>")
+ ("cucs". "C.U. Computer Society <soc-cucs-request@lists.cam.ac.uk>")
+ ("cusfs". "C.U. Science Fiction Society <CUSFS@phx.cam.ac.uk>")
+ ("dannyt". "Daniel Luhde-Thompson <dannylt@chiark.greenend.org.uk>")
+ ("dans". "Dan Sheppard <dps1001@cl.cam.ac.uk>")
+ ("daveh". "Dave Holland <93djh2@eng.cam.ac.uk>")
+ ("davew". "Dave Walker <dwalker@art.acorn.co.uk>")
+ ("davidd". "David Damerell <damerell@chiark.greenend.org.uk>")
+ ("dianag". "Diana Galletly <93dag@eng.cam.ac.uk>")
+ ("duncanm". "Duncan MacGregor <dmm20@hermes.cam.ac.uk>")
+ ("garethm". "Gareth McCaughan <gjm11@pmms.cam.ac.uk>")
+ ("garethr". "Gareth Rees <gdr11@cl.cam.ac.uk>")
+ ("geraintp". "Geraint Price <gp200@cl.cam.ac.uk>")
+ ("grayg". "Gray Girling <cgg@cam-orl.co.uk>")
+ ("guym". "Guy Maor <maor@ece.utexas.edu>")
+ ("helens". "Helen Steele <h.steele@elsevier.co.uk>")
+ ; was via relay.surfnet.nl
+ ("huww". "Huw Walters <hwalters@madge.com>")
+ ("ianm". "Ian Murdock <imurdock@debian.org>")
+ ("imurdock". "Ian Murdock <imurdock@debian.org>")
+ ("inekej". "Ineke Jackson <I.JACKSON@tasc.ac.uk>")
+ ("jamesb". "James Briginshaw <jab24@damtp.cam.ac.uk>")
+ ("johnl". "John Line <jml4@cus.cam.ac.uk>")
+ ("jonp". "Jon Peatfield <J.S.Peatfield@damtp.cam.ac.uk>")
+ ("jonr". "Jon Rabone <93jkr@eng.cam.ac.uk>")
+ ("karle". "Karl Ewald <ewald@informatik.tu-muenchen.de>")
+ ("kat". "Kate Harris <n.harris@ic.ac.uk>")
+ ("lizk". "Liz Keogh <ee4emk@bath.ac.uk>")
+ ("lnrb". "Eleanor Blair <hert0145@sable.ox.ac.uk>")
+ ("marisal". "Marisa Lohr <ml10003@cus.cam.ac.uk>")
+ ("markc". "Mark Carroll <mark@chaos.taylored.com>")
+ ("markl". "Mark Lomas <tmal@cl.cam.ac.uk>")
+ ("markm". "Mark Mackey <mdm1004@cus.cam.ac.uk>")
+ ("markw". "Mark Wainwright <mark@expert.demon.co.uk>")
+ ("martinh". "Martin Hardcastle <M.Hardcastle@bristol.ac.uk>")
+ ("martynj". "Martyn Johnson <maj@cl.cam.ac.uk>")
+ ("neilt". "Neil Turton <ndt1001@cus.cam.ac.uk>")
+ ("nigelh". "Nigel Harris <njh27@hermes.cam.ac.uk>")
+ ("nikhiln". "Nikhil Nair <nn201@cus.cam.ac.uk>")
+ ("owend". "Owen Dunn <owend@chiark.greenend.org.uk>")
+ ("owenl". "Owen Lyne <odl@maths.bath.ac.uk>")
+ ("douglasr". "Douglas Reay <pallando@gold.net>")
+ ("paulm". "Paul Menage <pbm1001@hermes.cam.ac.uk>")
+ ("peted". "Pete Delpi <p.delpy@mail.cryst.bbk.ac.uk>")
+ ("peterb". "Peter Benie <peterb@chiark.greenend.org.uk>")
+("phila". "Philip Abel </G=Philip/S=Abel/PRMD=KPMG/ADMD=MARK400/C=GB/@mhs-relay.ac.uk>")
+ ("richardb". "Richard Black <rjb17@cl.cam.ac.uk>")
+ ("richardk". "Richard Kettlewell <richard@elmail.co.uk>")
+ ("sfere". "Richard Kettlewell <richard@sfere.elmail.co.uk>")
+ ("simons". "Simon Shapiro <shimon@i-connect.net>")
+ ("rogern". "Roger Needham <rmn@cl.cam.ac.uk>")
+ ("rossa". "Ross Anderson <rja14@cl.cam.ac.uk>")
+ ("siona". "Sion Arrowsmith <sa@bast.demon.co.uk>")
+ ("steved". "Steve Davis <scd12@hermes.cam.ac.uk>")
+ ("stevee". "Steve Early <stevee@chiark.greenend.org.uk>")
+ ("stevem". "Steve McIntyre <stevem@chiark.greenend.org.uk>")
+ ("timc". "Tim Cutts <tjrc1@cus.cam.ac.uk>")
+ ("timm". "Tim Morley <tim@cityscape.co.uk>")
+ ("timr". "Tim Roddis <troddis@applied-risc-tech.co.uk>")
+ ("tonyc". "Tony Cains <atsab@csv.warwick.ac.uk>")
+ ("traceyc". "Tracey Cool <tc108@cus.cam.ac.uk>")
+
+;; Offsite misc
+ ("ankej". "Anke Jackson <Anke.Jackson@newcastle.ac.uk>")
+ ("nickj". "Nick Jackson <nj@hemmel.demon.co.uk>")
+ ("irw". "Ian Woollard <irw@stl.stc.co.uk>")
+ ("mathew". "mathew <mathew@mantis.co.uk>")
+
+;; Linux
+ ("mattwelsh". "Matt Welsh <mdw@sunsite.unc.edu>")
+ ("linustorvalds". "Linus Torvalds <torvalds@cs.helsinki.fi>")
+ ("linus". "Linus Torvalds <torvalds@cs.helsinki.fi>")
+ ("larswirzenius". "Lars Wirzenius <wirzeniu@cc.helsinki.fi>")
+ ("danielquinlan". "Daniel Quinlan <quinlan@spectrum.cs.bucknell.edu>")
+ ("ianmurdock". "Ian Murdock <imurdock@debian.org>")
+ ("rikfaith". "Rick Faith <faith@cs.unc.edu>")
+ ("ericyoungdale". "Eric Youngdale <ericy@cais.com>")
+ ("eriktroan". "Erik Troan <ewt@sunsite.unc.edu>")
+
+;; Mailing lists
+ ("linux-fsstnd". "Linux Filesystem Standard list <linux-fsstnd@ucsd.edu>")
+ ("fhs-discuss". "Linux Filesystem Standard list <fhs-discuss@ucsd.edu>")
+ ("linux-core". "Small FSSTND list <fsstnd@bucknell.edu>")
+ ("linux-security". "Linux Security list <linux-security@tarsier.cv.nrao.edu>")
+ ("debian-alpha". "Debian Alpha port list <debian-alpha@pixar.com>")
+ ("debian-sparc". "Debian Sparc port list <debian-sparc@pixar.com>")
+ ("debian-user". "Debian users list <debian-user@lists.debian.org>")
+ ("debian-bugs". "Debian bugs submission address <submit@bugs.debian.org>")
+ ("debian-bugs-quiet". "Debian bugs quiet submissions <quiet@bugs.debian.org>")
+ ("debian-bugs-maintonly". "Debian bugs maintainer-only <maintonly@bugs.debian.org>")
+ ("debian-bugs-request". "Debian bugs mailserver <request@bugs.debian.org>")
+ ("debian-bugs-control". "Debian bugs control server <control@bugs.debian.org>")
+ ("debian-dpkg". "Debian dpkg list <debian-dpkg@lists.debian.org>")
+ ("debian-devel". "Debian developers list <debian-devel@lists.debian.org>")
+ ("debian-changes". "Debian package announcements <debian-changes@lists.debian.org>")
+ ("debian-private". "Debian private list <debian-private@lists.debian.org>")
+ ("debian-team". "Debian core team list <debian-team@lists.debian.org>")
+ ("linuxdoc-sgml". "Linuxdoc-SGML mailing list <linuxdoc-sgml@via.ecp.fr>")
+ ("faq-maintainers". "FAQ maintainers list <faq-maintainers@mit.edu>")
+ ("doom-editing". "DOOM editing mailing list <doom-editing@nvg.unit.no>")
+
+;; Myself
+ ("myself". "Ian Jackson <iwj@cam-orl.co.uk>")
+ ("chiark". "Ian Jackson <iwj10@cus.cam.ac.uk>")
+ ("thor". "Ian Jackson <iwj10@thor.cam.ac.uk>")
+ ("cam-orl". "Ian Jackson <iwj@cam-orl.co.uk>")
+
+ ))
+
+;; Address translations for PGP
+(setq autopgp-outgoing-address-translation-alist '(
+ ("ian". "Ian Jackson <ijackson@nyx.cs.du.edu>")
+ ("Ian Jackson <ian@chiark>". "Ian Jackson <ijackson@nyx.cs.du.edu>")
+ ("Owen Dunn <O.S.Dunn@cai.cam.ac.uk>". "Owen S. Dunn <O.S.Dunn@cai.cam.ac.uk>")
+ ("Stephen Early <sde1000@cam.ac.uk>". "Stephen Early <sde1000@hermes.cam.ac.uk>")
+ ("Pete.Chown@dale.dircon.co.uk". "Pete Chown <pc@dale.demon.co.uk>")
+ ("(Pete Chown) pc@dale.demon.co.uk". "Pete Chown <pc@dale.demon.co.uk>")
+ ("Richard Brooksby <richard@harlequin.co.uk>".
+ "Richard Brooksby <richard@harlqn.co.uk>")
+ ("Ron Pritchett <pritchet@scsn.net>".
+ "Ron Pritchett <pritchet@usceast.cs.scarolina.edu>")
+ ("szahn%masterix@goesser.sie.siemens.co.at".
+ "Steffen Zahn <szahn@ets5.uebemc.siemens.de>")
+ ("Phil Karn <karn@unix.ka9q.ampr.org>". "Phil Karn <karn@qualcomm.com>")
+ ("Alan Bain <afrb2@hermes.cam.ac.uk>". "Alan F. R. Bain <afrb2@cam.ac.uk>")
+ ("Andrew Burt <aburt@nyx.cs.du.edu>".
+ "Andrew Burt <aburt@cs.du.edu>")
+ ("Grant.Denkinson@nottingham.ac.uk".
+ "Grant W. Denkinson <G.W.Denkinson@geog.nott.ac.uk>")
+ ("Ian Murdock <imurdock@gnu.ai.mit.edu>".
+ "Ian Murdock <imurdock@debian.org>")
+ ("Ian A. Murdock <imurdock@debian.org>"."Ian Murdock <imurdock@debian.org>")
+ ("Tim Morley <tim@island.demon.co.uk>". "Tim Morley <tim@derwent.co.uk>")
+ ("Eva R. Myers <erm1001@phy.cam.ac.uk>". "Eva Rebecca Myers <erm1001@cam.ac.uk>")
+ ("Patrick.Weemeeuw@kulnet.kuleuven.ac.be".
+ "Patrick J.G.C. Weemeeuw <patrick.weemeeuw@kulnet.kuleuven.ac.be>")
+ ("Allen Wheelwright <apw24@hermes.cam.ac.uk>".
+ "Allen Wheelwright <apw24@cam.ac.uk>")
+))
--- /dev/null
+; Ian's X initialisations.
+
+(if (string-match "^19\." emacs-version)
+ (require 'ian-x19)
+
+ (require 'x-fix-mouse)
+ (define-key mouse-map x-button-left-up 'x-cut-text-if-moved)
+ (define-key mouse-map x-button-middle 'x-cut-text)
+ (define-key mouse-map x-button-c-middle 'x-cut-and-wipe-text)
+ (define-key mouse-map x-button-right 'x-paste-text))
+
+; (x-set-cursor-color "white")
+; (x-set-foreground-color "white")
+; (x-set-background-color "black")
+
+; End of this file.
--- /dev/null
+; Ian's X, Emacs-19 initialisations
+
+;(setq frame-title-format
+; '(multiple-frames "%b" ("" invocation-name " : "
+; user-real-login-name "@" system-name)))
+
+;(setq default-frame-alist
+; (append '((internal-border-width . 1)) default-frame-alist))
+;(scroll-bar-mode nil)
+;(modify-frame-parameters (selected-frame) '((internal-border-width . 1)))
+;(let ((bd (cdr (assoc 'border-width (frame-parameters)))))
+; (set-frame-position (selected-frame)
+; (- 1024 ; was (string-to-number (ians-configure "pixels_x"))
+; (+ (frame-pixel-width) bd))
+; bd))
+
+(setq mouse-yank-at-point t)
+(setq x-pointer-shape x-pointer-left-ptr)
+(set-mouse-color (cdr (assoc 'mouse-color (frame-parameters))))
+
+(global-set-key [mode-line mouse-1]
+ '(lambda (event) (interactive "e\n")
+ (let ((old-window (selected-window)))
+ (unwind-protect
+ (progn (select-window (posn-window (event-end event)))
+ (scroll-up))
+ (select-window old-window)))))
+
+(global-set-key [mode-line C-mouse-3] 'mouse-delete-window)
+
+(global-set-key [mode-line mouse-3]
+ '(lambda (event) (interactive "e\n")
+ (let ((old-window (selected-window)))
+ (unwind-protect
+ (progn (select-window (posn-window (event-end event)))
+ (scroll-down))
+ (select-window old-window)))))
+
+(global-set-key [mode-line down-mouse-2] 'mouse-buffer-menu)
+
+(global-unset-key [C-down-mouse-1])
+(global-set-key [C-mouse-1] 'save-buffer)
+(global-unset-key [C-down-mouse-2])
+(global-set-key [C-mouse-2] 'mouse-kill)
+
+(fset 'run-programs-menu '(keymap
+ "Programs"
+ ([compile] . ("Quicker Compile" . quicker-compile))
+ ([vm] . ("VM" . vm))))
+
+(global-unset-key [down-C-mouse-3])
+(global-set-key [down-C-mouse-3] 'run-programs-menu)
+
+(global-set-key [mouse-2] 'mouse-yank-at-click)
+(global-set-key [mouse-3] 'mouse-save-then-kill)
+
+(setq interprogram-paste-function
+ '(lambda () (x-get-cut-buffer 0)))
+
+; (append '((vertical-scroll-bars . nil) (horizontal-scroll-bars . nil)
+; (menu-bar-lines . 0))
+; default-frame-alist))
+
+;(if (assoc 'user-position default-frame-alist) t
+; (setq default-frame-alist
+; (append '((top . 0) (left . -1))
+; default-frame-alist))
+; (set-frame-position (selected-frame) -1 0))
+
+;(if (equal (ians-configure "colours") "mono")
+; (progn
+; (setq default-frame-alist
+; (append '((foreground-color . "black") (background-color . "white")
+; (mouse-color . "white") (cursor-color . "black"))
+; default-frame-alist))
+; (set-face-foreground 'modeline "white")
+; (set-face-background 'modeline "black")
+; (modify-frame-parameters (selected-frame) '((cursor-color . "black")))
+; ))
+;(if (equal (ians-configure "colours") "mono")
+; (setq inverse-video t))
+;
+; (append '((foreground-color . "black") (background-color . "white")
+; (mouse-color . "white") (cursor-color . "black"))
+; default-frame-alist)))
+
+(provide 'ian-x19)
--- /dev/null
+; This is my real emacs start-up file (for chiark).
+;
+(make-variable-buffer-local 'indent-line-function)
+; Un-disable narrow and eval-expression
+(put 'narrow-to-region 'disabled nil)
+(put 'eval-expression 'disabled nil)
+;
+; Make sure we don't disturb links or change ownership, use numbers
+(setq backup-by-copying-when-mismatch t)
+(setq backup-by-copying-when-linked t)
+;(setq version-control t
+; kept-new-versions 4
+; kept-old-versions 4
+; trim-versions-without-asking t)
+;
+; Various one-liners
+(setq require-final-newline "ask")
+(if (string= window-system 'x) (load-library "ian-x"))
+(load-library "ian-aliases")
+; (load-library "auto-pgp")
+; (load-library "debian-changelog-mode")
+; (if (string= (getenv "TERM") "bbcb32") (setq term-file-prefix nil))
+; (setq explicit-shell-file-name "/usr/local/bin/tcsh")
+(setq inhibit-local-variables t)
+(setq enable-local-variables 'ask-me)
+(setq enable-recursive-minibuffers t)
+(setq compile-command "make")
+(setq diff-switches "-u")
+(display-time)
+;
+(set-variable 'search-repeat-char 28)
+(if (string-match "^19\." emacs-version)
+ (progn
+ (setq file-name-handler-alist ; Disable nasty auto-loading of ange-ftp
+ (delq (rassq 'ange-ftp-completion-hook-function file-name-handler-alist)
+ file-name-handler-alist))
+ (require 'find-alternate-18style)
+ (defun unset-down-mouse-23 ()
+ (local-set-key [mouse-2] 'mouse-yank-at-click)
+ (local-unset-key [down-mouse-2])
+ (local-unset-key [down-mouse-3])
+ (local-unset-key [C-down-mouse-3]))
+ (add-hook 'vm-mode-hook 'unset-down-mouse-23)
+ (add-hook 'vm-mail-mode-hook 'unset-down-mouse-23)
+ (add-hook 'text-mode-hook 'unset-down-mouse-23)
+ (add-hook 'Info-mode-hook
+ (function (lambda ()
+ (local-set-key " " 'scroll-up)
+ (local-set-key "\7f" 'scroll-down))))
+ (define-key isearch-mode-map "\1c" 'isearch-repeat-forward)
+ (define-key isearch-mode-map "\1d" 'isearch-quote-char)))
+(setq Info-directory-list '("/jura:/usr/info" "/dover:/usr/info"))
+;
+(menu-bar-mode -1)
+(defun terminal-keybindings ()
+ "This function should be called by the term-setup-hook mechanism"
+ (interactive)
+ ; Set my own keybindings
+ ;
+ ; Set keybindings generally (including I-search on C-\)
+; (global-set-key " " 'self-insert-command)
+ (global-set-key "\1c" 'isearch-forward)
+ (global-set-key "\r" 'newline-and-indent)
+ (global-set-key "\ f" 'set-mark-command)
+ (global-set-key "\1d" 'quoted-insert)
+ ;
+ ; Set keybindings on esc-map
+ (global-set-key "\e#" 'query-replace-regexp)
+ (global-set-key "\e+" 'toggle-truncate-lines)
+ (global-set-key "\eg" 'goto-line)
+ (global-set-key "\es" 'isearch-forward-regexp)
+ (global-set-key "\e\e" 'eval-expression)
+ ;
+ ; Set keybindings on ^X-map.
+ (global-set-key "\18m" 'vm-mail)
+ (global-set-key "\18\1c" 'save-buffer)
+ (global-set-key "\18\1d" 'toggle-read-only)
+ (global-set-key "\18#" 'recover-file)
+ (global-set-key "\18\12" 'bury-buffer)
+ (global-set-key "\18\v" 'quicker-compile)
+ (global-set-key "\18\18" 'exchange-point-and-mark)
+ (global-set-key "\18\1a" 'load-ange-ftp)
+ (global-set-key "\184\16" 'scroll-other-window)
+ (global-set-key "\184m" 'vm-mail-other-window)
+ (global-set-key "\189" 'vm-visit-folder)
+ (global-set-key "\188" 'rmail-input)
+ (global-set-key "\18p" 'cite-region)
+ (global-set-key "\18F" 'mail-formletter)
+ ;
+ ; Set keybindings for Sun numeric pad.
+ (setq esc-bracket-map (make-keymap))
+ (define-key esc-bracket-map "D" 'backward-char)
+ (define-key esc-bracket-map "C" 'forward-char)
+ (define-key esc-bracket-map "A" 'previous-line)
+ (define-key esc-bracket-map "B" 'next-line)
+ (define-key esc-map "[" esc-bracket-map)
+ (global-set-key "\e[214z" 'beginning-of-buffer)
+ (global-set-key "\e[220z" 'end-of-buffer)
+ (global-set-key "\e[216z" 'scroll-down)
+ (global-set-key "\e[222z" 'scroll-up)
+ (global-set-key "\e[192z" 'save-buffer)
+ (global-set-key "\e[194z" 'save-some-buffers)
+ (global-set-key "\e[195z" 'undo)
+ (global-set-key "\e[193z" 'call-last-kbd-macro)
+ (global-set-key "\e[196z" 'switch-to-buffer-other-window)
+ (global-set-key "\e[197z" 'copy-region-as-kill)
+ (global-set-key "\e[198z" 'find-file)
+ (global-set-key "\e[199z" 'yank)
+ (global-set-key "\e[198z" 'find-alternate-file)
+ (global-set-key "\e[200z" 'find-file)
+ (global-set-key "\e[201z" 'kill-region)
+ (global-set-key "\e[-1z" 'info)
+ ;
+ ; Set keybindings for Chiarks' x11emacs
+ (global-set-key "\e[5~" 'scroll-down)
+ (global-set-key "\e[6~" 'scroll-up)
+ ;
+ ; Set keybindings for knackered vt100-like terminal emulators.
+ (global-set-key "\eOt" 'scroll-down)
+ (global-set-key "\eOu" 'scroll-up)
+ (global-set-key "\eOD" 'backward-char)
+ (global-set-key "\eOC" 'forward-char)
+ (global-set-key "\eOA" 'previous-line)
+ (global-set-key "\eOB" 'next-line))
+(setq term-setup-hook 'terminal-keybindings) ; remap keys in due course
+;
+; Autoload definitions
+(autoload 'tar-mode "tar-mode")
+(autoload 'uncompress-while-visiting "uncompress")
+; (autoload 'c++-mode "c++-mode" "Mode for editing C and C++ programs" t)
+(autoload 'hide-ifdef-mode "hideif" "For editing code with #ifdefs" t)
+;(setq-default indent-tabs-mode nil)
+(autoload 'dired-find-alternate-file "dired-alternate" "Find alternately" t)
+(autoload 'dired-run-file "dired-alternate" "Run this file" t)
+(autoload 'perl-mode "perl-mode" "Mode for Perl code" t)
+; (autoload 'rmail "rmail-fixed" "Patched mail reader" t)
+(autoload 'quicker-compile "quicker-compile" "Patched Compile mode" t)
+
+(autoload 'vm "vm" "Start VM on your primary inbox." t)
+(autoload 'vm-visit-folder "vm" "Start VM on an arbitrary folder." t)
+(autoload 'vm-visit-virtual-folder "vm" "Visit a VM virtual folder." t)
+(autoload 'vm-mode "vm" "Run VM major mode on a buffer" t)
+(autoload 'vm-mail "vm" "Send a mail message using VM." t)
+(autoload 'vm-submit-bug-report "vm" "Send a bug report about VM." t)
+;
+; (autoload 'info "info-fixed" "Patched info browser" t)
+(setq shell-mode-hook
+ '(lambda ()
+ (make-variable-buffer-local 'scroll-step)
+ (setq scroll-step 1)))
+; (setq inferior-lisp-program "kcl")
+(setq dired-mode-hook
+ '(lambda ()
+ (define-key dired-mode-map "F" 'dired-find-alternate-file)
+ (define-key dired-mode-map "X" 'dired-run-file)))
+;
+; Prevent loading of default init file and do some of the things it did
+; (setq inhibit-default-init t)
+;
+; Additional alist handling function
+;(defun alist-remove-elem (s s-list)
+; "Delete the element of the alist S-LIST whose car is S"
+; (if s-list (if (equal s (car (car s-list)))
+; (cdr s-list)
+; (cons (car s-list) (alist-remove-elem s (cdr s-list))))
+; (nil)))
+;
+; Load C++ mode and edit Perl in perl mode
+(setq auto-mode-alist
+ (append '(("\\.[ch]$" . c-mode)
+ ("\\.[CH]$" . c++-mode)
+ ("\\.cc$" . c++-mode)
+ ("\\.hh$" . c++-mode)
+; ("\\.tar$" . tar-mode)
+ ("\\.pl$" . perl-mode)
+ ("\\.ci$" . tex-mode)
+ ("\\.Z$" . uncompress-while-visiting))
+ auto-mode-alist))
+(setq interpreter-mode-alist
+ (append '(("sh" . fundamental-mode)
+ ("bash" . fundamental-mode))
+ interpreter-mode-alist))
+;
+; Use auto-fill when editing text
+(add-hook 'text-mode-hook '(lambda () (auto-fill-mode 1)))
+(add-hook 'text-mode-hook '(lambda () (local-set-key " " 'self-insert-command)))
+;
+; Set up newline to auto-indent & other stuff for perl, c++ and c modes.
+(setq perl-mode-hook '(lambda ()
+ (local-set-key ";" 'self-insert-command)))
+(setq c++-mode-hook '(lambda ()
+ (hide-ifdef-mode 1)
+ (local-set-key ":" 'electric-c++-terminator)))
+; c++-electric-colon
+(setq c-mode-hook '(lambda ()
+ (hide-ifdef-mode 1)
+ (c-set-offset 'substatement-open 0 nil)
+ (local-set-key "\r" 'newline-and-indent)))
+(setq c-hanging-comment-ender-p nil)
+;
+(defun vm-mail-other-window ()
+ "Like `vm-mail' command, but display buffer in another window."
+ (interactive)
+ (switch-to-buffer-other-window (current-buffer))
+ (vm-mail))
+;
+; mail precedences
+(setq mail-precedence-key-alist
+ '((?0 . "special-delivery")
+ (?1 . "air-mail")
+ (?2 . "first-class")
+ (?3 . "second-class")
+ (?5 . "third-class")
+ (?\ . nil)
+ (?6 . "bulk")
+ (?9 . "junk")))
+;
+(defun mail-precedence-as-key ()
+ "Set precedence by looking up last command char in mail-precedence-key-alist"
+ (interactive)
+ (message "%s" (concat "Precedence ["
+ (mapconcat '(lambda (c) (char-to-string (car c)))
+ mail-precedence-key-alist "")
+ "] ?"))
+ (let* ((key (read-char))
+ (prec (assoc key mail-precedence-key-alist)))
+ (if prec (mail-precedence (cdr prec))
+ (error "mail-precedence-as-key `%s' not found" key))))
+;
+(defun mail-precedence-as-key-send-and-exit (arg)
+ "Set precedence by looking up last command char in mail-precedence-key-alist,
+then call send-and-exit."
+ (interactive "P")
+ (mail-precedence-as-key)
+ (execute-kbd-macro "\ 3\ 3"))
+;
+(defun mail-precedence (prec)
+ (save-excursion
+ (mail-position-on-field "Precedence")
+ (let ((p (point)))
+ (beginning-of-line)
+ (delete-region (point) p)
+ (if prec
+ (insert "Precedence: " prec)
+ (delete-char 1)))))
+;
+(defun mail-mode-setup-keys ()
+ (local-set-key "\ 3\10" 'mail-precedence-as-key)
+ (local-set-key "\ 3p" 'mail-precedence-as-key-send-and-exit))
+(add-hook 'mail-mode-hook 'mail-mode-setup-keys)
+(add-hook 'vm-mail-mode-hook 'mail-mode-setup-keys)
+;
+(defun vm-mail-other-window ()
+ "Like `vm-mail' command, but display buffer in another window."
+ (interactive)
+ (switch-to-buffer-other-window (current-buffer))
+ (vm-mail))
+;
+(defun mail-formletter ()
+ "Run VM-mail with ,Formletter"
+ (interactive)
+ (vm-mail)
+ (rename-buffer (generate-new-buffer-name "form letter") t)
+ (delete-region (point-min) (point-max))
+ (insert-file (concat vm-folder-directory ",Formletter")))
+;
+; This function bound to C-x C-z
+(defun load-ange-ftp ()
+ "Load ange-ftp using require, if it isn't loaded already"
+ (interactive)
+ (message "Loading ange-ftp...")
+ (require 'ange-ftp) ; -extended
+ (message "Loading ange-ftp...done"))
+;
+; This function bound to M-+
+(defun toggle-truncate-lines ()
+ "Toggle truncation or folding of long lines"
+ (interactive)
+ (set-variable 'truncate-lines (not truncate-lines))
+ (redraw-display))
+;
+; RMAIL stuff
+;(setq rmail-file-name "~/mail/RMAIL"
+; mail-archive-file-name "~/mail/Outbound"
+; rmail-primary-inbox-list '("~/mbox" "~/mail/Outbound" "~/mail/Record"
+; "~/mail/Import" "/var/spool/mail/ian")
+; rmail-delete-after-output t
+; rmail-last-rmail-file ""
+; rmail-ignored-headers (concat
+; "^Content-Identifier:\\|^X400-[^O][A-Za-z-]+:\\|"
+; rmail-ignored-headers))
+;
+(defun make-regexps-ignore-non-address (list)
+ (apply 'append (mapcar
+ '(lambda (item)
+ (let ((item (mapconcat
+ '(lambda (ch)
+ (let ((s (char-to-string ch)))
+ (if (string-match "[][.*+?^$\\]" s)
+ (concat "\\" s)
+ s)))
+ item "")))
+ (list
+ (concat "<" item ">")
+ (concat "^" item " *\\((.*)\\)?$"))))
+ list)))
+;
+; BBDB
+(setq bbdb-north-american-phone-numbers-p nil
+ bbdb/mail-auto-create-p t
+ bbdb-auto-revert-p t
+ bbdb-notice-auto-save-file-p t
+ bbdb-message-caching-enabled t)
+;
+; VM stuff
+(load-file "~/private/private.el")
+(setq vm-included-text-attribution-format "%F writes (\"%s\"):\n"
+ vm-reply-subject-prefix "Re: "
+ vm-folder-directory "~/mail/"
+ vm-delete-after-saving t
+ vm-delete-empty-folders t
+ vm-mutable-windows nil
+ vm-auto-get-new-mail nil
+ vm-auto-next-message nil
+ vm-jump-to-new-messages nil
+ vm-jump-to-unread-messages nil
+ vm-preview-lines nil
+ vm-included-text-prefix "> "
+ vm-confirm-quit 1
+ vm-auto-center-summary t
+ vm-confirm-new-folders t
+ vm-circular-folders nil
+ vm-visit-when-saving 0
+ vm-move-after-deleting t
+ vm-keep-sent-messages t
+ vm-follow-summary-cursor t
+ vm-frame-per-composition nil
+ vm-frame-per-edit nil
+ vm-frame-per-summary nil
+ vm-frame-per-folder nil
+ vm-tale-is-an-idiot t
+ vm-primary-inbox (concat vm-folder-directory "INBOX")
+ vm-sysadmin-inbox (concat vm-folder-directory "SINBOX")
+ vm-uninteresting-senders "ian"
+ vm-reply-ignored-addresses
+ (make-regexps-ignore-non-address
+ '("ian@chiark.chu.cam.ac.uk" "ian" "iwj10@cus.cam.ac.uk"
+ "ian@chiark.greenend.org.uk"
+ "ijackson@nyx.cs.du.edu" "ijackson@gnu.ai.mit.edu"))
+; vm-spool-files
+; (list
+; (list vm-primary-inbox "~/mbox" "~/mail/INBOX.CRASH")
+; (list vm-primary-inbox "~/mail/Outbound" "~/mail/INBOX.CRASH")
+; (list vm-primary-inbox "~/mail/Record" "~/mail/INBOX.CRASH")
+; (list vm-primary-inbox "~/mail/Import" "~/mail/INBOX.CRASH")
+; (list vm-primary-inbox "/var/spool/mail/ian" "~/mail/INBOX.CRASH")
+; (list vm-primary-inbox "~/News/r" "~/mail/INBOX.CRASH")
+; (list vm-sysadmin-inbox "~/mbox" "~/mail/SINBOX.CRASH")
+; (list vm-sysadmin-inbox "~/mail/SOutbound" "~/mail/SINBOX.CRASH")
+; (list vm-sysadmin-inbox "~/mail/Import" "~/mail/SINBOX.CRASH")
+; (list vm-sysadmin-inbox "/var/spool/mail/sysadmin" "~/mail/SINBOX.CRASH")
+; (list "/u/ijackson/mail/INBOX" "/u/ijackson/mbox" "/u/ijackson/mail/INBOX.CRASH")
+; (list "/u/ijackson/mail/INBOX" "/u/ijackson/mail/Outbound"
+; "/u/ijackson/mail/INBOX.CRASH")
+; (list "/u/ijackson/mail/INBOX" "/u/ijackson/mail/Record" "/u/ijackson/mail/INBOX.CRASH")
+; (list "/u/ijackson/mail/INBOX" "/u/ijackson/mail/Import" "/u/ijackson/mail/INBOX.CRASH")
+; (list "/u/ijackson/mail/INBOX"
+; (concat "localhost:110:pass:ijackson:" ijackson-pop-password)
+; "/u/ijackson/mail/INBOX.CRASH"))
+ vm-startup-with-summary nil
+ vm-summary-format "%3n %a %2d %3m %-19.19F %s\n"
+ mail-archive-file-name "~/mail/Outbound"
+ vm-mime-8bit-text-transfer-encoding '8bit)
+;
+(add-hook 'vm-mode-hook
+ '(lambda ()
+ (local-set-key "Q" 'vm-quit)
+ (local-set-key "q" "#Q")))
+(add-hook 'mail-mode-hook
+ '(lambda ()
+ (if (and (boundp 'folder-buffer)
+ folder-buffer
+ (string= (buffer-file-name folder-buffer)
+ (file-truename vm-sysadmin-inbox)))
+ (progn
+ (make-local-variable 'vm-mail-header-from)
+ (setq vm-mail-header-from
+ "sysadmin@chiark.greenend.org.uk (Ian Jackson)")
+ (make-local-variable 'mail-archive-file-name)
+ (setq mail-archive-file-name
+ "~/mail/SOutbound")))))
+;
+(defun vmi ()
+ (interactive)
+ (vm "/u/ijackson/mail/INBOX"))
+;
+(defun vms ()
+ (interactive)
+ (vm vm-sysadmin-inbox))
+;
+(defun make-session ()
+ "Makes this emacs hard to kill by requiring ^X^Cy to kill it
+instead of just ^X^C."
+ (interactive)
+ (global-unset-key "\18\ 3")
+ (global-set-key "\18\ 3y" 'save-buffers-kill-emacs))
+;
+; Fix problems with M-| setting window title of emacs' parent xterm
+(defun envdelete-term-termcap-windowid (list)
+ (let ((l list))
+ (mapcar '(lambda (x)
+ (if x (delq x l)))
+ (mapcar '(lambda (x)
+ (if (or (string-match "^TERM=" x)
+ (string-match "^TERMCAP=" x)
+ (string-match "^WINDOWID=" x))
+ x
+ nil))
+ l))
+ l))
+(setq process-environment
+ (envdelete-term-termcap-windowid process-environment))
+;
+(defun add-insertion-keys (table)
+ "Adds keybindings according to TABLE. Each element of
+TABLE should be a four-element list.
+
+BINDING should be the key to bind; FUNCTION will be the name of the
+function defined to do the insertion; DESCRIPTION will be inserted
+into \"Inserts ... .\", and used as the descriptive string for the
+generated function; STRING is the string which will actually be
+inserted into the buffer when the keystroke is pressed."
+ (while table
+ (let* ((head (car table))
+ (key (car head))
+ (func (nth 1 head))
+ (desc (nth 2 head))
+ (string (nth 3 head)))
+ (defalias func
+ (list
+ 'lambda ()
+ (concat "Inserts " desc ".")
+ '(interactive)
+ (list 'insert string)))
+ (funcall 'local-set-key key func))
+ (setq table (cdr table))))
+
+(defun ian-sgml-setup ()
+ (interactive)
+ (add-insertion-keys
+ '(("\ 3\r" sgml-insert-new-para "new paragraph markup" "\n<p>\n")
+ ("\ 3\14" sgml-insert-tt-emph "tt emph markup" "<tt/")
+ ("\ 3\10" sgml-insert-prgn-emph "prgn emph markup" "<prgn/")
+ ("\ 3\ 5" sgml-insert-em-emph "em emfh markup" "<em/")
+ ("\ 3\16" sgml-insert-var-empfh "var emph markup" "<var/"))))
+(setq sgml-local-catalogs '("/jura:/usr/lib/debiandoc-sgml/sgml/catalog"))
+
+(add-hook 'sgml-mode-hook 'ian-sgml-setup)
+;
+(defvar cite-string "> " "String to insert when citing")
+;
+(defun cite-region (start end)
+ "Quote each line in the region with an angle-bracket and space.
+
+The citation string is taken from cite-string."
+ (interactive "r")
+ (save-excursion
+ (save-restriction
+ (narrow-to-region start end)
+ (goto-char (point-min))
+ (insert cite-string)
+ (while
+ (and
+ (= (forward-line) 0)
+ (> (point-max) (point)))
+ (insert cite-string)))))
+;
+; End of this file.
--- /dev/null
+(setq vm-primary-inbox (concat vm-folder-directory "INBOX")
+ vm-uninteresting-senders "ian"
+ vm-spool-files '("~/mbox" "~/mail/Outbound" "~/mail/Record" "~/mail/Import"
+ "~/mail/inbox" "/var/spool/mail/ijackson" "~/News/r")
+ vm-reply-ignored-addresses
+ (make-regexps-ignore-non-address
+ '("ijackson@chiark.chu.cam.ac.uk" "ijackson"
+ "iwj10@thor.cam.ac.uk" "iwj10@hermes.cam.ac.uk" "iwj10@cl.cam.ac.uk"
+ "iwj10@cam.ac.uk" "Ian.Jackson@cl.cam.ac.uk"))
+ mail-archive-file-name "~/mail/Outbound")
--- /dev/null
+; Fixup of compile so it doesn't ask unless you want it to.
+
+(require 'compile)
+(provide 'quicker-compile)
+
+(defun quicker-compile (prompt-for-command)
+ "Runs compile. Will prompt for the compile command only if given
+a prefix argument."
+ (interactive "P")
+ (if prompt-for-command
+ (setq compile-command (read-string "Compile command: " compile-command)))
+ (compile compile-command))
--- /dev/null
+;;; x-fix-mouse.el
+;;;
+;;; make mouse-based paste ignore the mouse position and use the emacs point
+;;; instead. Make cut-text set the mark so the mouse can be used naturally
+;;; to select a region (e.g. to indent code).
+;;;
+;;; Jean-Francois Lamy 1989-09-21
+;;; lamy@ai.utoronto.ca
+
+(require 'x-mouse); These two lines
+(provide 'x-fix-mouse); added by 89iwj@eng.cam.ac.uk
+
+(defun x-cut-text (arg &optional kill)
+ "Copy text between point and mouse into window system cut buffer.
+Set mark to current mouse position. Save in Emacs kill ring also."
+ (if (coordinates-in-window-p arg (selected-window))
+ (progn
+ (x-mouse-set-mark arg)
+ (let ((beg (point)) (end (mark)))
+ (x-store-cut-buffer (buffer-substring beg end))
+ (copy-region-as-kill beg end)
+ (if kill (delete-region beg end))))
+ (message "Mouse not in selected window")))
+
+(defun x-paste-text (arg)
+ "Insert window system cut buffer contents at current point."
+ (insert (x-get-cut-buffer)))
+
+(defun x-cut-and-wipe-text (arg)
+ "Kill text between point and mark; also copy to window system cut buffer."
+ (x-cut-text arg t))
+
+(defun x-cut-text-if-moved (arg &optional kill)
+ (let ((opoint (point)))
+ (x-mouse-set-point arg)
+ (cond
+ ((not (equal (point) opoint))
+ (goto-char opoint)
+ (x-cut-text arg kill)))))
+
+;------- End of Forwarded Message
--- /dev/null
+.bash_history 0000
+.configs/cache/ 2770