+++ /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
-xclock*hourColor: orange
-xclock*minuteColor: 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 X resources file
-!# Font specifications for small fonts (fixed by default)
-
-emacs.font: -misc-fixed-medium-r-semicondensed--0-0-75-75-c-0-iso8859-1
-
-xlock.font: fr-25
-
-xlbiff*font: -*-courier-bold-r-*-*-14-*-*-*-*-*-*-*
-
-mwm*font: r14
+++ /dev/null
-*cut: none | left
-*paste: none | middle
-*enter: none | right
-
-epoch.nonlocal.minibuf: false
-
-xv*geometry: +10+10
-
-wish*foreground: grey90
-wish*background: grey25
-wish*activeForeground: white
-wish*activeBackground: grey35
-wish*disabledForeground: black
-wish*disabledBackground: grey25
-
-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
-xterm*metaSendsEscape: 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: -misc-fixed-medium-r-semicondensed--0-0-75-75-c-0-iso8859-1
-!emacs.font: fixed
-!Emacs.font: fixed
-!emacs19.font: fixed
-
-xacpi-simple*geometry: 150x50-52-0
+++ /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
-# Set up the environment:
-
-PATH=$HOME/personal/linux-i386/bin:$HOME/personal/scripts/bin
-
-
-
-
-
-
-
-PATH=$PATH:/usr/local/bin:/bin:/usr/bin:/usr/local/sbin:/sbin:/usr/sbin
-
-
-
-
-
-PATH=$PATH:/usr/bin/X11
-
-export PATH
-
-CDPATH=:..:$HOME:$HOME/things
-CVS_RSH=ssh
-
-unset MAILPATH
-
-
-
-
-
-EDITOR=emacs
-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 CVS_RSH CVSROOT EDITOR ESHELL HISTORY HOST LANG LESS
-export PAGER PERLLIB PS1 TRNINIT WWW_HOME
-
-# NNTPAUTH
-
-
-
-unset ignoreeof
-
-umask 002
+++ /dev/null
-#!/bin/sh
-# Set up the environment:
-
-PATH=$HOME/personal/linux-i386/bin:$HOME/personal/scripts/bin
-
-
-CVS_RSH=ssh
-
-
-
-DEBEMAIL=ijackson@chiark.greenend.org.uk
-EMAIL=ijackson@chiark.greenend.org.uk
-export DEBEMAIL EMAIL
-
-
-
-PATH=$PATH:/usr/lib/ccache
-PATH=$PATH:/usr/local/bin:/bin:/usr/bin:/usr/local/sbin:/sbin:/usr/sbin
-PATH=$PATH:/usr/lib/git-core
-
-
-
-
-
-PATH=$PATH:/usr/bin/X11
-
-export PATH
-
-CDPATH=:..:$HOME:$HOME/things
-
-unset MAILPATH
-
-
-
-
-
-EDITOR=emacs
-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 CVS_RSH CVSROOT EDITOR ESHELL HISTORY HOST LANG LESS
-export PAGER PERLLIB PS1 TRNINIT WWW_HOME
-
-# NNTPAUTH
-
-
-
-unset ignoreeof
-
-umask 002
+++ /dev/null
-#!/bin/bash
-set -e
-cd $HOME
-tmp=.Xauthority.unprivtmp
-
-xauth nlist $DISPLAY | \
-with-lock-ex -w $tmp.fcntllock bash -xec "
- xauth -f $tmp nmerge -
- exec </dev/null
- xauth -f $tmp generate $DISPLAY . untrusted timeout 100000000
- xauth -f $tmp nlist $DISPLAY
-" | \
-HOME=/home/ijackson really -u ijackson xauth nmerge -
+++ /dev/null
-#!/bin/sh
-
-eval `.configs/configure`
-
-#PATH=/u/ian/tricks:$PATH
-
->".counters/v.$DISPLAY"
-
-echo -n 'starting clients '
-
-# xsetroot -fg '#883030' -bg '#204050' -bitmap bitmap/root
-# xsetroot -cursor bitmap/circle bitmap/circle-inv -fg white -bg black
-# xset b 75 300
-#if [ "x$1" != "xnotwm" ]; then
-# echo -n . ; twm &
-#fi
-#echo -n . ; xload &
-#echo -n . ; xterm -n 'xterm d' -T xterm -geometry 80x25+0-10 &
-#echo -n . ; emacs -f make-session &
-#echo -n . ; unclutter -noevents &
-#echo -n . ; xbiff -name xbiffs & xbiff & xbiff -name xbiff2 &
-#echo -n . ; stty -isig
-#echo -n . ; (while cat /dev/xconsole; do sleep 10; done) & sleep 1
-#really start-stop-daemon --stop --exec /usr/bin/X11/xconsole --user root --quie
-#
-#echo . ; exec xclock
-
-echo -n .
-
-sh .configs/x11start-colours=$colours
-
-echo -n .
-
-.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
-echo x11start
-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/bash
-
-echo -n @
-
-d="$DISPLAY"
-if [ "x$d" = "x:0.0" ]; then d="`hostname -f`$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 :
-
-(sleep 1; exec vtwm) &
-
-echo -n :
-
-xloadt &
-
-echo -n :
-
-xterm -n 'xterm d' -T xterm -geometry 80x25+0-10 &
-
-
-nm-applet &
-trayer --SetDockType true --widthtype request --edge top --align left --margin 30 &
-(sleep 1; exec xfce4-power-manager) &
-
-
-.configs/chiarks
-
-
-#
-#if test -d /proc/acpi/battery; then
-# xacpi-simple &
-#fi
-#
-
-
-
-.configs/xbiffs
-
-(while sleep 590; do xrefresh -geometry 200x100-0-0; done) &
-
-echo -n :
+++ /dev/null
-pointer = 1 3 2
-
-keycode 11 = 2 quotedbl
-keycode 12 = 3 numbersign
-keycode 22 = BackSpace
-keycode 48 = apostrophe at
-keycode 51 = numbersign asciitilde
-keycode 94 = backslash bar
-! keycode 234 = Prior
-! keycode 233= Next
-keycode 166 = Prior
-keycode 167 = Next
-! keycode 113 = Alt_R Meta_R
-
-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
-#!/bin/bash
-
-eval `.configs/configure`
-
-echo -n +
-# xlbiff &
-echo -n +
-#unclutter -noevents &
-echo -n +
-echo xtools
-xset q |grep bell
+++ /dev/null
-; Ian's X initialisations.
-
-(if (not (string-match "^18\." 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 initialisations.
-
-(if (not (string-match "^18\." 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")
-
-(if (boundp 'tool-bar-mode)
- (tool-bar-mode -1))
-
-; 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
-; Ian's X, Emacs-19 (and higher) 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)
-(standard-display-european t)
-;
-; 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)))
-;
-(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")
-(if (file-exists-p "~/private/private2.el")
- (load-file "~/private/private2.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 t
- vm-auto-get-new-mail nil
- vm-auto-next-message nil
- vm-jump-to-new-messages nil
- vm-jump-to-unread-messages nil
- vm-mime-digest-discard-header-regexp "only-drop-this-header"
- 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-sinbin-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-primary-inbox (concat vm-folder-directory "INBOX")
-
- vm-uninteresting-senders "ian"
- 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"
-
-
- vm-spool-files
- '((vm-primary-inbox "/var/spool/mail/ian"
- "~/mail/INBOX.CRASH")
- (vm-primary-inbox "~/News/r" "~/mail/INBOX.CRASH")
- (vm-primary-inbox "~/mbox" "~/mail/INBOX.CRASH")
- (vm-primary-inbox "~/mail/Outbound" "~/mail/INBOX.CRASH")
- (vm-primary-inbox "~/mail/Import" "~/mail/INBOX.CRASH")
- (vm-primary-inbox "~/mail/Record" "~/mail/INBOX.CRASH")
- (vm-sinbin-inbox "/var/spool/mail/ian" "~/mail/SINBOX.CRASH"))
- vm-startup-with-summary t
+++ /dev/null
-; This is my real emacs start-up file (for chiark).
-;
-
-(defalias 'perl-mode 'cperl-mode)
-(setq cperl-invalid-face nil
- cperl-indent-level 4)
-
-(make-variable-buffer-local 'indent-line-function)
-; Un-disable narrow and eval-expression
-(put 'narrow-to-region 'disabled nil)
-(put 'eval-expression 'disabled nil)
-(standard-display-european t)
-;
-(setq browse-url-netscape-program "mozilla")
-(setq common-lisp-hyperspec-root "/usr/share/doc/hyperspec/")
-;
-; 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 next-line-add-newlines t)
-(setq diff-switches "-u")
-(setq line-move-visual nil)
-(display-time)
-;
-(set-variable 'search-repeat-char 28)
-(set-fringe-mode (cons 0 nil))
-(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)))
-;
-(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)
- (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-tramp)
- (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 "sbcl")
-;(setq jit-lock-chunk-size 100
-; jit-lock-stealth-time 1.00)
-(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)
- ("\\.asm$" . fundamental-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 "," 'self-insert-command)
- (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 "," 'self-insert-command)
- (local-set-key ";" 'self-insert-command)
- (local-set-key "/" 'self-insert-command)
- (local-set-key "*" 'self-insert-command)
- (local-set-key "#" 'self-insert-command)
- (local-set-key "(" 'self-insert-command)
- (local-set-key ")" 'self-insert-command)
- (local-set-key "{" 'self-insert-command)
- (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-tramp ()
- "Load tramp using require, if it isn't loaded already"
- (interactive)
- (message "Loading tramp...")
- (require 'tramp) ; -extended
- (message "Loading tramp...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")
-(if (file-exists-p "~/private/private2.el")
- (load-file "~/private/private2.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 t
- vm-auto-get-new-mail nil
- vm-auto-next-message nil
- vm-jump-to-new-messages nil
- vm-jump-to-unread-messages nil
- vm-mime-digest-discard-header-regexp "only-drop-this-header"
- 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-sinbin-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-primary-inbox (concat vm-folder-directory "INBOX")
-
- vm-uninteresting-senders "ian"
- 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"
-
-
- vm-spool-files
- '((vm-primary-inbox "/var/spool/mail/ian"
- "~/mail/INBOX.CRASH")
- (vm-primary-inbox "~/News/r" "~/mail/INBOX.CRASH")
- (vm-primary-inbox "~/mbox" "~/mail/INBOX.CRASH")
- (vm-primary-inbox "~/mail/Outbound" "~/mail/INBOX.CRASH")
- (vm-primary-inbox "~/mail/Import" "~/mail/INBOX.CRASH")
- (vm-primary-inbox "~/mail/Record" "~/mail/INBOX.CRASH")
- (vm-sinbin-inbox "/var/spool/mail/ian" "~/mail/SINBOX.CRASH"))
- vm-startup-with-summary t
-
- user-mail-address "ijackson@chiark.greenend.org.uk"
-
-
-; 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-sinbin-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.