Welcome to the CHICKEN Scheme pasting service
no title added by anonymous on Mon Mar 4 00:40:57 2013
;; 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))