From 814d95b58df2fffacdf3b87ac50ac03736d54d8b Mon Sep 17 00:00:00 2001 From: ian Date: Fri, 6 Jul 2001 19:40:34 +0000 Subject: [PATCH 1/1] Files found on jura. --- files/_.bash__history | 0 files/_.bashrc | 45 ++ files/_.configs_Xresources | 104 +++++ files/_.configs_Xresources-colours=colour | 88 ++++ files/_.configs_Xresources-colours=mono | 56 +++ files/_.configs_Xresources-font=fixed | 10 + files/_.configs_Xresources-font=larger | 14 + files/_.configs_Xresources-font=puffball | 12 + files/_.configs_Xresources-size=normal | 27 ++ files/_.configs_Xresources-size=small | 15 + files/_.configs_checkconfig | 91 ++++ files/_.configs_chiarks | 25 ++ files/_.configs_configure | 12 + files/_.configs_configure.old | 13 + files/_.configs_eliforp | 5 + files/_.configs_list | 29 ++ files/_.configs_manualsession | 5 + files/_.configs_rxprofile | 9 + files/_.configs_setenvir | 35 ++ files/_.configs_setenvir-SunOS4 | 8 + files/_.configs_setenvir-SunOS5 | 9 + files/_.configs_startemacs | 21 + files/_.configs_x11start | 72 ++++ files/_.configs_x11start-colours=colour | 3 + files/_.configs_x11start-colours=mono | 3 + files/_.configs_xbiffs | 19 + files/_.configs_xclients | 47 +++ files/_.configs_xmodmap-kb=archim | 32 ++ files/_.configs_xmodmap-kb=ds | 37 ++ files/_.configs_xmodmap-kb=ds3100 | 12 + files/_.configs_xmodmap-kb=dsxt | 0 files/_.configs_xmodmap-kb=hp | 7 + files/_.configs_xmodmap-kb=mint | 1 + files/_.configs_xmodmap-kb=none | 0 files/_.configs_xmodmap-kb=pc | 16 + files/_.configs_xmodmap-kb=pericom | 7 + files/_.configs_xmodmap-kb=sun4 | 19 + files/_.configs_xmodmap-kb=tektronix | 9 + files/_.configs_xprofile | 17 + files/_.configs_xtools | 9 + files/_.cvsrc | 2 + files/_.emacs | 6 + files/_.ircrc | 22 + files/_.lynxrc | 288 +++++++++++++ files/_.mailcap | 2 + files/_.profile | 23 ++ files/_.screenrc | 4 + files/_.trninit | 17 + files/_.trnmac | 10 + files/_.vtwmrc | 371 +++++++++++++++++ files/_.xsession | 27 ++ files/emacs_dired-alternate.el | 30 ++ files/emacs_find-alternate-18style.el | 43 ++ files/emacs_ian-aliases.el | 162 ++++++++ files/emacs_ian-x.el | 16 + files/emacs_ian-x19.el | 87 ++++ files/emacs_ian.el | 478 ++++++++++++++++++++++ files/emacs_ijackson.el | 10 + files/emacs_quicker-compile.el | 12 + files/emacs_x-fix-mouse.el | 41 ++ perms | 2 + 61 files changed, 2596 insertions(+) create mode 100644 files/_.bash__history create mode 100644 files/_.bashrc create mode 100644 files/_.configs_Xresources create mode 100644 files/_.configs_Xresources-colours=colour create mode 100644 files/_.configs_Xresources-colours=mono create mode 100644 files/_.configs_Xresources-font=fixed create mode 100644 files/_.configs_Xresources-font=larger create mode 100644 files/_.configs_Xresources-font=puffball create mode 100644 files/_.configs_Xresources-size=normal create mode 100644 files/_.configs_Xresources-size=small create mode 100755 files/_.configs_checkconfig create mode 100755 files/_.configs_chiarks create mode 100755 files/_.configs_configure create mode 100644 files/_.configs_configure.old create mode 100755 files/_.configs_eliforp create mode 100644 files/_.configs_list create mode 100755 files/_.configs_manualsession create mode 100755 files/_.configs_rxprofile create mode 100755 files/_.configs_setenvir create mode 100755 files/_.configs_setenvir-SunOS4 create mode 100755 files/_.configs_setenvir-SunOS5 create mode 100755 files/_.configs_startemacs create mode 100755 files/_.configs_x11start create mode 100644 files/_.configs_x11start-colours=colour create mode 100644 files/_.configs_x11start-colours=mono create mode 100755 files/_.configs_xbiffs create mode 100755 files/_.configs_xclients create mode 100755 files/_.configs_xmodmap-kb=archim create mode 100644 files/_.configs_xmodmap-kb=ds create mode 100644 files/_.configs_xmodmap-kb=ds3100 create mode 100644 files/_.configs_xmodmap-kb=dsxt create mode 100644 files/_.configs_xmodmap-kb=hp create mode 100644 files/_.configs_xmodmap-kb=mint create mode 100644 files/_.configs_xmodmap-kb=none create mode 100644 files/_.configs_xmodmap-kb=pc create mode 100644 files/_.configs_xmodmap-kb=pericom create mode 100755 files/_.configs_xmodmap-kb=sun4 create mode 100644 files/_.configs_xmodmap-kb=tektronix create mode 100755 files/_.configs_xprofile create mode 100755 files/_.configs_xtools create mode 100644 files/_.cvsrc create mode 100644 files/_.emacs create mode 100644 files/_.ircrc create mode 100644 files/_.lynxrc create mode 100644 files/_.mailcap create mode 100755 files/_.profile create mode 100644 files/_.screenrc create mode 100644 files/_.trninit create mode 100644 files/_.trnmac create mode 100644 files/_.vtwmrc create mode 100755 files/_.xsession create mode 100644 files/emacs_dired-alternate.el create mode 100644 files/emacs_find-alternate-18style.el create mode 100644 files/emacs_ian-aliases.el create mode 100644 files/emacs_ian-x.el create mode 100644 files/emacs_ian-x19.el create mode 100644 files/emacs_ian.el create mode 100644 files/emacs_ijackson.el create mode 100644 files/emacs_quicker-compile.el create mode 100644 files/emacs_x-fix-mouse.el create mode 100644 perms diff --git a/files/_.bash__history b/files/_.bash__history new file mode 100644 index 0000000..e69de29 diff --git a/files/_.bashrc b/files/_.bashrc new file mode 100644 index 0000000..e61c90a --- /dev/null +++ b/files/_.bashrc @@ -0,0 +1,45 @@ +# 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 diff --git a/files/_.configs_Xresources b/files/_.configs_Xresources new file mode 100644 index 0000000..b250b01 --- /dev/null +++ b/files/_.configs_Xresources @@ -0,0 +1,104 @@ +*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 diff --git a/files/_.configs_Xresources-colours=colour b/files/_.configs_Xresources-colours=colour new file mode 100644 index 0000000..56d4ff1 --- /dev/null +++ b/files/_.configs_Xresources-colours=colour @@ -0,0 +1,88 @@ +!# 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 diff --git a/files/_.configs_Xresources-colours=mono b/files/_.configs_Xresources-colours=mono new file mode 100644 index 0000000..8504740 --- /dev/null +++ b/files/_.configs_Xresources-colours=mono @@ -0,0 +1,56 @@ +!# 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 diff --git a/files/_.configs_Xresources-font=fixed b/files/_.configs_Xresources-font=fixed new file mode 100644 index 0000000..d5c9efc --- /dev/null +++ b/files/_.configs_Xresources-font=fixed @@ -0,0 +1,10 @@ +!# 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 diff --git a/files/_.configs_Xresources-font=larger b/files/_.configs_Xresources-font=larger new file mode 100644 index 0000000..7b04ba2 --- /dev/null +++ b/files/_.configs_Xresources-font=larger @@ -0,0 +1,14 @@ +!# 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-*-*-*-*-*-*-* diff --git a/files/_.configs_Xresources-font=puffball b/files/_.configs_Xresources-font=puffball new file mode 100644 index 0000000..cdc6848 --- /dev/null +++ b/files/_.configs_Xresources-font=puffball @@ -0,0 +1,12 @@ +!# 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 diff --git a/files/_.configs_Xresources-size=normal b/files/_.configs_Xresources-size=normal new file mode 100644 index 0000000..26ff366 --- /dev/null +++ b/files/_.configs_Xresources-size=normal @@ -0,0 +1,27 @@ +!# 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 diff --git a/files/_.configs_Xresources-size=small b/files/_.configs_Xresources-size=small new file mode 100644 index 0000000..f3a672a --- /dev/null +++ b/files/_.configs_Xresources-size=small @@ -0,0 +1,15 @@ +!# 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 diff --git a/files/_.configs_checkconfig b/files/_.configs_checkconfig new file mode 100755 index 0000000..77f6473 --- /dev/null +++ b/files/_.configs_checkconfig @@ -0,0 +1,91 @@ +#!/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() { + 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"; diff --git a/files/_.configs_chiarks b/files/_.configs_chiarks new file mode 100755 index 0000000..7bb331a --- /dev/null +++ b/files/_.configs_chiarks @@ -0,0 +1,25 @@ +#!/bin/sh + +eval `cd $HOME && .configs/configure` + +ssh -L 6667:chiark:6667 ijackson@chiark.greenend.org.uk \ + sleep 604800 &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 diff --git a/files/_.configs_configure b/files/_.configs_configure new file mode 100755 index 0000000..a454f04 --- /dev/null +++ b/files/_.configs_configure @@ -0,0 +1,12 @@ +#!/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 diff --git a/files/_.configs_configure.old b/files/_.configs_configure.old new file mode 100644 index 0000000..cb10d3b --- /dev/null +++ b/files/_.configs_configure.old @@ -0,0 +1,13 @@ +#!/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' diff --git a/files/_.configs_eliforp b/files/_.configs_eliforp new file mode 100755 index 0000000..eac2620 --- /dev/null +++ b/files/_.configs_eliforp @@ -0,0 +1,5 @@ +#!/bin/sh +# logout sequence + +cd +rm -f .history/$HOST~*~ diff --git a/files/_.configs_list b/files/_.configs_list new file mode 100644 index 0000000..2fabd6a --- /dev/null +++ b/files/_.configs_list @@ -0,0 +1,29 @@ +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 diff --git a/files/_.configs_manualsession b/files/_.configs_manualsession new file mode 100755 index 0000000..0dccc07 --- /dev/null +++ b/files/_.configs_manualsession @@ -0,0 +1,5 @@ +#!/bin/sh +emacs -f make-session& +xbiff& +unclutter -noevents& +xterm -geometry 80x41-0+130& diff --git a/files/_.configs_rxprofile b/files/_.configs_rxprofile new file mode 100755 index 0000000..416b472 --- /dev/null +++ b/files/_.configs_rxprofile @@ -0,0 +1,9 @@ +#!/bin/sh + +. .configs/setenvir + +stty cs8 2>/dev/null || : + +xloadt& +cat /etc/motd +exec $SHELL diff --git a/files/_.configs_setenvir b/files/_.configs_setenvir new file mode 100755 index 0000000..c46fa93 --- /dev/null +++ b/files/_.configs_setenvir @@ -0,0 +1,35 @@ +#!/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 diff --git a/files/_.configs_setenvir-SunOS4 b/files/_.configs_setenvir-SunOS4 new file mode 100755 index 0000000..735e20c --- /dev/null +++ b/files/_.configs_setenvir-SunOS4 @@ -0,0 +1,8 @@ +#!/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 diff --git a/files/_.configs_setenvir-SunOS5 b/files/_.configs_setenvir-SunOS5 new file mode 100755 index 0000000..72fe16e --- /dev/null +++ b/files/_.configs_setenvir-SunOS5 @@ -0,0 +1,9 @@ +#!/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 diff --git a/files/_.configs_startemacs b/files/_.configs_startemacs new file mode 100755 index 0000000..76eb6cb --- /dev/null +++ b/files/_.configs_startemacs @@ -0,0 +1,21 @@ +#!/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 '#' diff --git a/files/_.configs_x11start b/files/_.configs_x11start new file mode 100755 index 0000000..3e25903 --- /dev/null +++ b/files/_.configs_x11start @@ -0,0 +1,72 @@ +#!/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 <>.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 diff --git a/files/_.configs_xclients b/files/_.configs_xclients new file mode 100755 index 0000000..7409bc0 --- /dev/null +++ b/files/_.configs_xclients @@ -0,0 +1,47 @@ +#!/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 : diff --git a/files/_.configs_xmodmap-kb=archim b/files/_.configs_xmodmap-kb=archim new file mode 100755 index 0000000..56cde61 --- /dev/null +++ b/files/_.configs_xmodmap-kb=archim @@ -0,0 +1,32 @@ +#!/usr/bin/perl + +open(I,"xmodmap -pk |") || die "popen xmodmap -pk: $!\n"; + +while() { + 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 + ; diff --git a/files/_.configs_xmodmap-kb=ds b/files/_.configs_xmodmap-kb=ds new file mode 100644 index 0000000..ec6144b --- /dev/null +++ b/files/_.configs_xmodmap-kb=ds @@ -0,0 +1,37 @@ +! 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 diff --git a/files/_.configs_xmodmap-kb=ds3100 b/files/_.configs_xmodmap-kb=ds3100 new file mode 100644 index 0000000..9f352f0 --- /dev/null +++ b/files/_.configs_xmodmap-kb=ds3100 @@ -0,0 +1,12 @@ +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 diff --git a/files/_.configs_xmodmap-kb=dsxt b/files/_.configs_xmodmap-kb=dsxt new file mode 100644 index 0000000..e69de29 diff --git a/files/_.configs_xmodmap-kb=hp b/files/_.configs_xmodmap-kb=hp new file mode 100644 index 0000000..0d7cdcc --- /dev/null +++ b/files/_.configs_xmodmap-kb=hp @@ -0,0 +1,7 @@ +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 diff --git a/files/_.configs_xmodmap-kb=mint b/files/_.configs_xmodmap-kb=mint new file mode 100644 index 0000000..99dcb94 --- /dev/null +++ b/files/_.configs_xmodmap-kb=mint @@ -0,0 +1 @@ +keycode 102 = Delete diff --git a/files/_.configs_xmodmap-kb=none b/files/_.configs_xmodmap-kb=none new file mode 100644 index 0000000..e69de29 diff --git a/files/_.configs_xmodmap-kb=pc b/files/_.configs_xmodmap-kb=pc new file mode 100644 index 0000000..d6eae9f --- /dev/null +++ b/files/_.configs_xmodmap-kb=pc @@ -0,0 +1,16 @@ +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 diff --git a/files/_.configs_xmodmap-kb=pericom b/files/_.configs_xmodmap-kb=pericom new file mode 100644 index 0000000..799c030 --- /dev/null +++ b/files/_.configs_xmodmap-kb=pericom @@ -0,0 +1,7 @@ +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 diff --git a/files/_.configs_xmodmap-kb=sun4 b/files/_.configs_xmodmap-kb=sun4 new file mode 100755 index 0000000..47b5833 --- /dev/null +++ b/files/_.configs_xmodmap-kb=sun4 @@ -0,0 +1,19 @@ +#!/bin/sh +xmodmap - <' 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=, +# 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 + diff --git a/files/_.mailcap b/files/_.mailcap new file mode 100644 index 0000000..97da631 --- /dev/null +++ b/files/_.mailcap @@ -0,0 +1,2 @@ +application/pdf;gv %s +application/postscript;gv %s diff --git a/files/_.profile b/files/_.profile new file mode 100755 index 0000000..73a522b --- /dev/null +++ b/files/_.profile @@ -0,0 +1,23 @@ +# 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 diff --git a/files/_.screenrc b/files/_.screenrc new file mode 100644 index 0000000..da8c394 --- /dev/null +++ b/files/_.screenrc @@ -0,0 +1,4 @@ +c1 off +escape ^]^] +defescape ^Z^A +nethack on diff --git a/files/_.trninit b/files/_.trninit new file mode 100644 index 0000000..d5d5937 --- /dev/null +++ b/files/_.trninit @@ -0,0 +1,17 @@ +-xsml +-XDD +-l +-m=u +-M +-S5 +-h ++hFrom ++hDate ++hSummary +-EEXSAVER="%e <%A" +-EUNSHAR="unshar -s" +-f +-a +-B +-EFAST_PNEWS=y +-T diff --git a/files/_.trnmac b/files/_.trnmac new file mode 100644 index 0000000..f7522ac --- /dev/null +++ b/files/_.trnmac @@ -0,0 +1,10 @@ +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 diff --git a/files/_.vtwmrc b/files/_.vtwmrc new file mode 100644 index 0000000..ad719fb --- /dev/null +++ b/files/_.vtwmrc @@ -0,0 +1,371 @@ +# +# 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 &" +} diff --git a/files/_.xsession b/files/_.xsession new file mode 100755 index 0000000..d54d437 --- /dev/null +++ b/files/_.xsession @@ -0,0 +1,27 @@ +#!/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 diff --git a/files/emacs_dired-alternate.el b/files/emacs_dired-alternate.el new file mode 100644 index 0000000..8c6c258 --- /dev/null +++ b/files/emacs_dired-alternate.el @@ -0,0 +1,30 @@ +; 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))) diff --git a/files/emacs_find-alternate-18style.el b/files/emacs_find-alternate-18style.el new file mode 100644 index 0000000..beaa39d --- /dev/null +++ b/files/emacs_find-alternate-18style.el @@ -0,0 +1,43 @@ +(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) diff --git a/files/emacs_ian-aliases.el b/files/emacs_ian-aliases.el new file mode 100644 index 0000000..a61b6f6 --- /dev/null +++ b/files/emacs_ian-aliases.el @@ -0,0 +1,162 @@ +;; Ian Jackson's mail nicknames file. -*- fundamental -*- +;; (don't edit as elisp) +(setq mail-aliases '( +;; Cambridge + ("adamm". "Adam Mosley ") + ("alanb". "Alan Bain ") + ("alanw". "Alan Woolway ") + ("aldabras". "Aldabra Stoddart ") + ("alicej". "Alice Jenkins ") + ("andersc". "Anders Chrigstrom ") + ("andrewm". "Andrew Mobbs ") + ("andyh". "Andy Hopper ") + ("austind-urgent". "Austin Donnelly ") + ("austind". "Austin Donnelly ") + ("austind-debian". "Austin Donnelly ") + ("austind-stable". "Austin Donnelly ") + ("austind-home" . "Austin Donnelly ") + ("bdale". "Bdale Garbee ") + ("bdaleg". "Bdale Garbee ") + ("brucep". "Bruce Perens ") + ("carls". "Carl V Streeter ") + ("clarei". "Clare Izard ") + ("clivej". "Clive Jones ") + ("colinb". "Colin Bell ") + ("cucs". "C.U. Computer Society ") + ("cusfs". "C.U. Science Fiction Society ") + ("dannyt". "Daniel Luhde-Thompson ") + ("dans". "Dan Sheppard ") + ("daveh". "Dave Holland <93djh2@eng.cam.ac.uk>") + ("davew". "Dave Walker ") + ("davidd". "David Damerell ") + ("dianag". "Diana Galletly <93dag@eng.cam.ac.uk>") + ("duncanm". "Duncan MacGregor ") + ("garethm". "Gareth McCaughan ") + ("garethr". "Gareth Rees ") + ("geraintp". "Geraint Price ") + ("grayg". "Gray Girling ") + ("guym". "Guy Maor ") + ("helens". "Helen Steele ") + ; was via relay.surfnet.nl + ("huww". "Huw Walters ") + ("ianm". "Ian Murdock ") + ("imurdock". "Ian Murdock ") + ("inekej". "Ineke Jackson ") + ("jamesb". "James Briginshaw ") + ("johnl". "John Line ") + ("jonp". "Jon Peatfield ") + ("jonr". "Jon Rabone <93jkr@eng.cam.ac.uk>") + ("karle". "Karl Ewald ") + ("kat". "Kate Harris ") + ("lizk". "Liz Keogh ") + ("lnrb". "Eleanor Blair ") + ("marisal". "Marisa Lohr ") + ("markc". "Mark Carroll ") + ("markl". "Mark Lomas ") + ("markm". "Mark Mackey ") + ("markw". "Mark Wainwright ") + ("martinh". "Martin Hardcastle ") + ("martynj". "Martyn Johnson ") + ("neilt". "Neil Turton ") + ("nigelh". "Nigel Harris ") + ("nikhiln". "Nikhil Nair ") + ("owend". "Owen Dunn ") + ("owenl". "Owen Lyne ") + ("douglasr". "Douglas Reay ") + ("paulm". "Paul Menage ") + ("peted". "Pete Delpi ") + ("peterb". "Peter Benie ") +("phila". "Philip Abel ") + ("richardb". "Richard Black ") + ("richardk". "Richard Kettlewell ") + ("sfere". "Richard Kettlewell ") + ("simons". "Simon Shapiro ") + ("rogern". "Roger Needham ") + ("rossa". "Ross Anderson ") + ("siona". "Sion Arrowsmith ") + ("steved". "Steve Davis ") + ("stevee". "Steve Early ") + ("stevem". "Steve McIntyre ") + ("timc". "Tim Cutts ") + ("timm". "Tim Morley ") + ("timr". "Tim Roddis ") + ("tonyc". "Tony Cains ") + ("traceyc". "Tracey Cool ") + +;; Offsite misc + ("ankej". "Anke Jackson ") + ("nickj". "Nick Jackson ") + ("irw". "Ian Woollard ") + ("mathew". "mathew ") + +;; Linux + ("mattwelsh". "Matt Welsh ") + ("linustorvalds". "Linus Torvalds ") + ("linus". "Linus Torvalds ") + ("larswirzenius". "Lars Wirzenius ") + ("danielquinlan". "Daniel Quinlan ") + ("ianmurdock". "Ian Murdock ") + ("rikfaith". "Rick Faith ") + ("ericyoungdale". "Eric Youngdale ") + ("eriktroan". "Erik Troan ") + +;; Mailing lists + ("linux-fsstnd". "Linux Filesystem Standard list ") + ("fhs-discuss". "Linux Filesystem Standard list ") + ("linux-core". "Small FSSTND list ") + ("linux-security". "Linux Security list ") + ("debian-alpha". "Debian Alpha port list ") + ("debian-sparc". "Debian Sparc port list ") + ("debian-user". "Debian users list ") + ("debian-bugs". "Debian bugs submission address ") + ("debian-bugs-quiet". "Debian bugs quiet submissions ") + ("debian-bugs-maintonly". "Debian bugs maintainer-only ") + ("debian-bugs-request". "Debian bugs mailserver ") + ("debian-bugs-control". "Debian bugs control server ") + ("debian-dpkg". "Debian dpkg list ") + ("debian-devel". "Debian developers list ") + ("debian-changes". "Debian package announcements ") + ("debian-private". "Debian private list ") + ("debian-team". "Debian core team list ") + ("linuxdoc-sgml". "Linuxdoc-SGML mailing list ") + ("faq-maintainers". "FAQ maintainers list ") + ("doom-editing". "DOOM editing mailing list ") + +;; Myself + ("myself". "Ian Jackson ") + ("chiark". "Ian Jackson ") + ("thor". "Ian Jackson ") + ("cam-orl". "Ian Jackson ") + + )) + +;; Address translations for PGP +(setq autopgp-outgoing-address-translation-alist '( + ("ian". "Ian Jackson ") + ("Ian Jackson ". "Ian Jackson ") + ("Owen Dunn ". "Owen S. Dunn ") + ("Stephen Early ". "Stephen Early ") + ("Pete.Chown@dale.dircon.co.uk". "Pete Chown ") + ("(Pete Chown) pc@dale.demon.co.uk". "Pete Chown ") + ("Richard Brooksby ". + "Richard Brooksby ") + ("Ron Pritchett ". + "Ron Pritchett ") + ("szahn%masterix@goesser.sie.siemens.co.at". + "Steffen Zahn ") + ("Phil Karn ". "Phil Karn ") + ("Alan Bain ". "Alan F. R. Bain ") + ("Andrew Burt ". + "Andrew Burt ") + ("Grant.Denkinson@nottingham.ac.uk". + "Grant W. Denkinson ") + ("Ian Murdock ". + "Ian Murdock ") + ("Ian A. Murdock "."Ian Murdock ") + ("Tim Morley ". "Tim Morley ") + ("Eva R. Myers ". "Eva Rebecca Myers ") + ("Patrick.Weemeeuw@kulnet.kuleuven.ac.be". + "Patrick J.G.C. Weemeeuw ") + ("Allen Wheelwright ". + "Allen Wheelwright ") +)) diff --git a/files/emacs_ian-x.el b/files/emacs_ian-x.el new file mode 100644 index 0000000..6505f1b --- /dev/null +++ b/files/emacs_ian-x.el @@ -0,0 +1,16 @@ +; 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. diff --git a/files/emacs_ian-x19.el b/files/emacs_ian-x19.el new file mode 100644 index 0000000..1c9d8e9 --- /dev/null +++ b/files/emacs_ian-x19.el @@ -0,0 +1,87 @@ +; 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) diff --git a/files/emacs_ian.el b/files/emacs_ian.el new file mode 100644 index 0000000..6d83df0 --- /dev/null +++ b/files/emacs_ian.el @@ -0,0 +1,478 @@ +; 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 "" 'scroll-down)))) + (define-key isearch-mode-map "" 'isearch-repeat-forward) + (define-key isearch-mode-map "" '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 "" 'isearch-forward) + (global-set-key " " 'newline-and-indent) + (global-set-key "" 'set-mark-command) + (global-set-key "" 'quoted-insert) + ; + ; Set keybindings on esc-map + (global-set-key "#" 'query-replace-regexp) + (global-set-key "+" 'toggle-truncate-lines) + (global-set-key "g" 'goto-line) + (global-set-key "s" 'isearch-forward-regexp) + (global-set-key "" 'eval-expression) + ; + ; Set keybindings on ^X-map. + (global-set-key "m" 'vm-mail) + (global-set-key "" 'save-buffer) + (global-set-key "" 'toggle-read-only) + (global-set-key "#" 'recover-file) + (global-set-key "\12" 'bury-buffer) + (global-set-key " " 'quicker-compile) + (global-set-key "" 'exchange-point-and-mark) + (global-set-key "" 'load-ange-ftp) + (global-set-key "4" 'scroll-other-window) + (global-set-key "4m" 'vm-mail-other-window) + (global-set-key "9" 'vm-visit-folder) + (global-set-key "8" 'rmail-input) + (global-set-key "p" 'cite-region) + (global-set-key "F" '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 "[5~" 'scroll-down) + (global-set-key "[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 " " '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 "")) +; +(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 "" 'mail-precedence-as-key) + (local-set-key "p" '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 "") + (global-set-key "y" '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 + '((" " sgml-insert-new-para "new paragraph markup" "\n

\n") + ("" sgml-insert-tt-emph "tt emph markup" " " "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. diff --git a/files/emacs_ijackson.el b/files/emacs_ijackson.el new file mode 100644 index 0000000..9188975 --- /dev/null +++ b/files/emacs_ijackson.el @@ -0,0 +1,10 @@ +(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") diff --git a/files/emacs_quicker-compile.el b/files/emacs_quicker-compile.el new file mode 100644 index 0000000..1163ac1 --- /dev/null +++ b/files/emacs_quicker-compile.el @@ -0,0 +1,12 @@ +; 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)) diff --git a/files/emacs_x-fix-mouse.el b/files/emacs_x-fix-mouse.el new file mode 100644 index 0000000..e676bfe --- /dev/null +++ b/files/emacs_x-fix-mouse.el @@ -0,0 +1,41 @@ +;;; 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 diff --git a/perms b/perms new file mode 100644 index 0000000..208c85b --- /dev/null +++ b/perms @@ -0,0 +1,2 @@ +.bash_history 0000 +.configs/cache/ 2770 -- 2.30.2