Welcome to the CHICKEN Scheme pasting service

;; Package repos
(require 'package)
(add-to-list 'package-archives '("marmalade" . "http://marmalade-repo.org/packages/"))
(add-to-list 'package-archives '("melpa" . "http://melpa.milkbox.net/packages/"))
(package-initialize)


;; Slime
(add-to-list 'load-path "~/cvs/slime/")
(require 'slime)
(setq slime-net-coding-system 'utf-8-unix)
(slime-setup '(slime-fancy slime-banner))

;; auto-complete
(require 'auto-complete)
(require 'ac-slime)
(add-hook 'slime-mode-hook 'set-up-slime-ac)
(add-hook 'slime-repl-mode-hook 'set-up-slime-ac)
(eval-after-load "auto-complete"
  '(add-to-list 'ac-modes 'slime-repl-mode))

;; chicken-slime
(add-to-list 'load-path "/usr/lib/chicken/6/")
(autoload 'chicken-slime "chicken-slime" "SWANK backend for Chicken" t)
(setq slime-csi-path "/usr/bin/csi")

;; emacs
(setq
 ;; backups
 backup-by-copying t            
 backup-directory-alist
 '(("." . "~/.emacs.d/.saves"))
 delete-old-versions t
 kept-new-versions 6
 kept-old-versions 2
 version-control t

 ;; startup
 inhibit-startup-message t
 inhibit-splash-screen t
 initial-buffer-choice "~/git/"
 default-directory "~/git/")

;; remove toolbars
(menu-bar-mode -1)
(tool-bar-mode -1)

;; IDO FTW
(setq ido-enable-flex-matching t)
(setq ido-max-directory-size 100000)
(ido-mode t)
(ido-everywhere t)  

;; add scheme modes
(defun custom-scheme-mode-hook ()
  "Custom Scheme mode hook."
  (interactive)
  (paredit-mode t)
  (highlight-parentheses-mode)
  (slime-mode)
  (auto-complete-mode))
(add-hook 'scheme-mode-hook 'custom-scheme-mode-hook)
(add-to-list 'auto-mode-alist '("\\.sxml$" . scheme-mode))
(add-to-list 'auto-mode-alist '("\\.setup$" . scheme-mode))
(add-to-list 'auto-mode-alist '("\\.meta$" . scheme-mode))11
(add-to-list 'auto-mode-alist '("\\.release-info$" . scheme-mode))
(add-to-list 'auto-mode-alist '("\\.system$" . scheme-mode))