((ref-command set-default-font) "12")
((ref-command set-font) "14")

((ref-command set-frame-size) 80 36)
((ref-command set-frame-position) 135 -5)

((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 Hanson

(if (file-exists? "~/.abbrev_defs")
    (quietly-read-abbrev-file "~/.abbrev_defs"))
(set-variable! save-abbrevs #t)

(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