Initial Scheme stuff

init.el

@@ -107,6 +107,11 @@
 (global-unset-key (kbd "C-c s"))
 (global-set-key (kbd "C-x T") 'neotree-toggle)
 (global-set-key (kbd "C-x O") 'org-mode)
+;(setq compilation-read-command nil)
+(global-set-key (kbd "M-c") 'compile)
+(global-set-key (kbd "<f2>") 'run-scheme)
+(global-set-key (kbd "<f3>") 'run-lisp)
+
 ;;;; Just hit y or n to answer yes or no prompts! Shiny!
 (defalias 'yes-or-no-p 'y-or-n-p)
 
@@ -144,6 +149,9 @@
 ;(add-to-list 'package-archives
 ;  '("melpa-stable" . "http://melpa-stable.milkbox.net/packages/") t)
 
+(setq scheme-program-name "csi -:c")
+(setq comint-prompt-read-only t)
+
 (setq browse-url-browser-function 'browse-url-xdg-open)
 
 ;;;; Marmalade
@@ -172,6 +180,9 @@
 ;;;; company
 (require 'company)
 
+;;;; chicken.el
+(require 'chicken)
+
 ;;;; God Mode
 ;(require 'god-mode)
 
@@ -355,6 +366,13 @@
 ;;;; magit
 (require 'magit)
 (global-set-key (kbd "C-x m") 'magit-status)
+;;;; mic-paren
+(require 'mic-paren)
+(paren-activate)
+
+
+;;;; quack
+;(require 'quack)
 
 ;;;; recentf
 (require 'recentf)
@@ -368,6 +386,14 @@
 (require 'session)
 (add-hook 'after-init-hook 'session-initialize)
 
+;;;; SLIME
+(require 'slime)
+;(slime-setup '(slime-fancy slime-banner))
+(setq inferior-lisp-program "/usr/bin/sbcl")
+
+;;;; smartparens
+;; (require 'smartparens)
+;; (add-hook 'scheme-mode-hook 'smartparens-mode)
 
 ;;;; stumpwm-mode
 (require 'stumpwm-mode)