From: Ian Jackson Date: Fri, 10 Jun 2016 17:02:51 +0000 (+0100) Subject: Remove ~ files (!) X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=ian-dotfiles.git;a=commitdiff_plain;h=8a04301b3155a82c91248d0289cb481c4d3af0d2;ds=sidebyside Remove ~ files (!) --- diff --git a/dot/configs/Xresources-colours=colour~ b/dot/configs/Xresources-colours=colour~ deleted file mode 100644 index 8723af1..0000000 --- a/dot/configs/Xresources-colours=colour~ +++ /dev/null @@ -1,90 +0,0 @@ -!# 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 diff --git a/dot/configs/Xresources-colours=mono~ b/dot/configs/Xresources-colours=mono~ deleted file mode 100644 index 8504740..0000000 --- a/dot/configs/Xresources-colours=mono~ +++ /dev/null @@ -1,56 +0,0 @@ -!# 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/dot/configs/Xresources-font=fixed~ b/dot/configs/Xresources-font=fixed~ deleted file mode 100644 index d927123..0000000 --- a/dot/configs/Xresources-font=fixed~ +++ /dev/null @@ -1,10 +0,0 @@ -!# 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 diff --git a/dot/configs/Xresources~ b/dot/configs/Xresources~ deleted file mode 100644 index 2d41c4f..0000000 --- a/dot/configs/Xresources~ +++ /dev/null @@ -1,115 +0,0 @@ -*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 diff --git a/dot/configs/list.~1.1.~ b/dot/configs/list.~1.1.~ deleted file mode 100644 index 2fabd6a..0000000 --- a/dot/configs/list.~1.1.~ +++ /dev/null @@ -1,29 +0,0 @@ -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/dot/configs/setenvir.~1.13.~ b/dot/configs/setenvir.~1.13.~ deleted file mode 100644 index 3e7b49d..0000000 --- a/dot/configs/setenvir.~1.13.~ +++ /dev/null @@ -1,52 +0,0 @@ -#!/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 diff --git a/dot/configs/setenvir~ b/dot/configs/setenvir~ deleted file mode 100644 index 85e6c92..0000000 --- a/dot/configs/setenvir~ +++ /dev/null @@ -1,58 +0,0 @@ -#!/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 diff --git a/dot/configs/unpriv-xauth~ b/dot/configs/unpriv-xauth~ deleted file mode 100755 index 149b9e3..0000000 --- a/dot/configs/unpriv-xauth~ +++ /dev/null @@ -1,13 +0,0 @@ -#!/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 ".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 <>.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/dot/configs/xclients~ b/dot/configs/xclients~ deleted file mode 100755 index 18efcf5..0000000 --- a/dot/configs/xclients~ +++ /dev/null @@ -1,40 +0,0 @@ -#!/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 : diff --git a/dot/configs/xmodmap-kb=liberator~ b/dot/configs/xmodmap-kb=liberator~ deleted file mode 100644 index edd4969..0000000 --- a/dot/configs/xmodmap-kb=liberator~ +++ /dev/null @@ -1,20 +0,0 @@ -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 diff --git a/dot/configs/xtools~ b/dot/configs/xtools~ deleted file mode 100755 index b7f41fa..0000000 --- a/dot/configs/xtools~ +++ /dev/null @@ -1,11 +0,0 @@ -#!/bin/bash - -eval `.configs/configure` - -echo -n + -# xlbiff & -echo -n + -#unclutter -noevents & -echo -n + -echo xtools -xset q |grep bell diff --git a/home/emacs/ian-x.el.~1.2.~ b/home/emacs/ian-x.el.~1.2.~ deleted file mode 100644 index 4055022..0000000 --- a/home/emacs/ian-x.el.~1.2.~ +++ /dev/null @@ -1,16 +0,0 @@ -; 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. diff --git a/home/emacs/ian-x.el~ b/home/emacs/ian-x.el~ deleted file mode 100644 index 84d9da5..0000000 --- a/home/emacs/ian-x.el~ +++ /dev/null @@ -1,19 +0,0 @@ -; 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. diff --git a/home/emacs/ian-x19.el.~1.1.~ b/home/emacs/ian-x19.el.~1.1.~ deleted file mode 100644 index 1c9d8e9..0000000 --- a/home/emacs/ian-x19.el.~1.1.~ +++ /dev/null @@ -1,87 +0,0 @@ -; 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/home/emacs/ian-x19.el~ b/home/emacs/ian-x19.el~ deleted file mode 100644 index dc49aa8..0000000 --- a/home/emacs/ian-x19.el~ +++ /dev/null @@ -1,87 +0,0 @@ -; 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) diff --git a/home/emacs/ian.el.~1.5.~ b/home/emacs/ian.el.~1.5.~ deleted file mode 100644 index 49838d0..0000000 --- a/home/emacs/ian.el.~1.5.~ +++ /dev/null @@ -1,373 +0,0 @@ -; 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 "" 'scroll-down)))) - (define-key isearch-mode-map "" 'isearch-repeat-forward) - (define-key isearch-mode-map "" '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 "" '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") -(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 diff --git a/home/emacs/ian.el~ b/home/emacs/ian.el~ deleted file mode 100644 index 76c6cb2..0000000 --- a/home/emacs/ian.el~ +++ /dev/null @@ -1,529 +0,0 @@ -; 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 "" 'scroll-down)))) - (define-key isearch-mode-map "" 'isearch-repeat-forward) - (define-key isearch-mode-map "" '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 "" 'isearch-forward) -; (global-set-key " " 'newline) - (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-tramp) - (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 "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 " " '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-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 "") - (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.