;; edwin.ini file from Albert R. Meyer 2/18/05 ((ref-command set-default-font) "12") ((ref-command set-font) "14") ((ref-command set-frame-size) 79 35) ((ref-command set-frame-position) 130 03) ((ref-command set-foreground-color) "yellow") ((ref-command set-background-color) "black") (set-variable! enable-recursive-minibuffers #t) (set-variable! select-buffer-create #f) (set-variable! version-control #t) (set-variable! kept-old-versions 0) (set-variable! kept-new-versions 5) (set-variable! buffer-menu-kill-on-quit #t) ;;from Chris Hanson March, 2003 (if (file-exists? "~/edwin-abbrevs.txt") (quietly-read-abbrev-file "~/edwin-abbrevs.txt")) (set-variable! save-abbrevs #t) (if (file-exists? "~/edwin-macros.txt") (quietly-read-abbrev-file "~/edwin-macros.txt")) (add-event-receiver! (ref-variable text-mode-hook) (lambda (buffer) (turn-on-auto-fill buffer) (enable-buffer-minor-mode! buffer (ref-mode-object abbrev)))) (define-key 'fundamental #\c-m-% 'query-replace-regexp) (define-key 'fundamental '(#\c-c #\l) 'goto-line) (define-key 'fundamental #\c-. 'repeat-complex-command) (define-key 'scheme #\m-q 'comment-fill-paragraph) (define-key 'scheme #\c-m-j 'indent-lisp-body) ;;end from Hanson (define-key 'fundamental #\m-p 'compare-windows) (define-key 'scheme #\m-p 'compare-windows) (define-key 'fundamental #\m-s 'center-line) (define-key 'fundamental #\m-[ 'backward-paragraph) (define-key 'fundamental #\m-] 'forward-paragraph) (define-command write-kbd-macro "Save keyboard macro in file. Use \\[load-file] to load the file. With argument, also record the keys it is bound to." "P" (lambda (argument) (let ((name (prompt-for-string-table-name "Write keyboard macro" #f named-keyboard-macros 'DEFAULT-TYPE 'NO-DEFAULT 'REQUIRE-MATCH? #t))) (let ((pathname (prompt-for-pathname (string-append "Write keyboard macro " name " to file") #f)) (buffer (temporary-buffer "*write-keyboard-macro-temp*"))) (call-with-output-mark (buffer-point buffer) (lambda (port) (pp `(KEYBOARD-MACRO-DEFINE ',name ',(string-table-get named-keyboard-macros name)) port #t) (if argument (for-each (lambda (key) (pp `(DEFINE-KEY 'FUNDAMENTAL ',key ',name) port #t)) (comtab-key-bindings (mode-comtabs (ref-mode-object fundamental)) (name->command name)))))) (set-buffer-pathname! buffer pathname) (write-buffer buffer) (kill-buffer buffer)))))