diff --git a/racketrc b/racketrc
new file mode 100644
index 0000000..f442db7
--- /dev/null
+++ b/racketrc
@@ -0,0 +1 @@
+(require xrepl)
diff --git a/vim/scripts/scmindent.rkt b/vim/scripts/scmindent.rkt
new file mode 100755
index 0000000..ccccd87
--- /dev/null
+++ b/vim/scripts/scmindent.rkt
@@ -0,0 +1,205 @@
+#! /usr/bin/env racket
+
+#lang racket
+
+;Dorai Sitaram
+;Oct 8, 1999
+;last change 2014-09-16
+
+;This script takes lines of Scheme or Lisp code from its
+;stdin and produces an indented version thereof on its
+;stdout.
+
+(define *lisp-keywords* '())
+
+(define (set-lisp-indent-number sym num-of-subforms-to-be-indented-wide)
+  (let* ((x (symbol->string sym))
+         (c (assf (lambda (a) (string-ci=? x a)) *lisp-keywords*)))
+    (unless c
+      (set! c (cons x (box 0)))
+      (set! *lisp-keywords* (cons c *lisp-keywords*)))
+    (set-box! (cdr c) num-of-subforms-to-be-indented-wide)))
+
+(for-each (lambda (s) (set-lisp-indent-number s 0))
+          '(block
+            handler-bind
+            loop))
+
+(for-each (lambda (s) (set-lisp-indent-number s 1))
+          '(case
+            defpackage dolist dotimes
+            ecase etypecase eval-when
+            flet
+            labels lambda let let* let-values
+            prog1
+            typecase
+            unless unwind-protect
+            when with-input-from-string with-open-file with-open-socket
+            with-open-stream with-output-to-string))
+
+(for-each (lambda (s) (set-lisp-indent-number s 2))
+          '(defun destructuring-bind do do*
+            if
+            multiple-value-bind
+            with-slots))
+
+(define (read-home-lispwords)
+  (let ((init-file (build-path (find-system-path 'home-dir) ".lispwords")))
+    (when (file-exists? init-file)
+      (call-with-input-file init-file
+        (lambda (i)
+          (let loop ()
+            (let ((w (read i)))
+              (unless (eof-object? w)
+                (let ((n (car w)))
+                  (for-each (lambda (x) (set-lisp-indent-number x n))
+                            (cdr w)))
+                (loop)))))))))
+
+(define (past-next-token s i n)
+  (let loop ((i i) (escape? #f))
+    (if (>= i n) i
+      (let ((c (string-ref s i)))
+        (cond (escape? (loop (+ i 1) #f))
+              ((char=? c #\\) (loop (+ i 1) #t))
+              ((char=? c #\#)
+               (let ((j (+ i 1)))
+                 (if (>= j n) i
+                   (let ((c (string-ref s j)))
+                     (cond ((char=? c #\\) (loop (+ j 1) #t))
+                           (else i))))))
+              ((memv c '(#\space #\tab #\( #\) #\[ #\] #\" #\' #\` #\, #\;))
+               i)
+              (else (loop (+ i 1) #f)))))))
+
+(define (lisp-indent-number s)
+  (let ((c (assf (lambda (a) (string-ci=? s a)) *lisp-keywords*)))
+    (cond (c (unbox (cdr c)))
+          ((and (>= (string-length s) 3)
+                (string-ci=? (substring s 0 3) "def")) 0)
+          (else -1))))
+
+(define (literal-token? s)
+  (let ((x (let ((i (open-input-string s)))
+             (begin0 (read i) (close-input-port i)))))
+    (or (char? x) (number? x) (string? x))))
+
+(define (calc-subindent s i n)
+  (let* ((j (past-next-token s i n))
+         (num-aligned-subforms 0)
+         (left-indent
+          (if (= j i) 1
+            (let ((w (substring s i j)))
+              (if (and (>= i 2)
+                       (memv (string-ref s (- i 2)) '(#\' #\`)))
+                  1
+                (let ((nas (lisp-indent-number w)))
+                  (cond ((>= nas 0) (set! num-aligned-subforms nas)
+                         2)
+                        ((literal-token? w) 1)
+                        ((= j n) 1)
+                        (else (+ (- j i) 2)))))))))
+    (values left-indent num-aligned-subforms (- j 1))))
+
+(define (num-leading-spaces s)
+  (let ((n (string-length s)))
+    (let loop ((i 0) (j 0))
+      (if (>= i n) 0
+        (case (string-ref s i)
+          ((#\space) (loop (+ i 1) (+ j 1)))
+          ((#\tab) (loop (+ i 1) (+ j 8)))
+          (else j))))))
+
+(define (string-trim-blanks s)
+  (let ((n (string-length s)))
+    (let ((j (let loop ((j 0))
+               (if (or (>= j n)
+                       (not (char-whitespace? (string-ref s j))))
+                 j
+                 (loop (+ j 1)))))
+          (k (let loop ((k (- n 1)))
+               (if (or (< k 0)
+                       (not (char-whitespace? (string-ref s k))))
+                 (+ k 1)
+                 (loop (- k 1))))))
+      (substring s j k))))
+
+(define-struct lparen
+  (spaces-before num-aligned-subforms (num-finished-subforms #:auto))
+  #:mutable #:auto-value 0)
+
+(define (indent-lines)
+  (let ((left-i 0) (paren-stack '()) (stringp #f))
+    (let line-loop ()
+      (let ((curr-line (read-line)))
+        (unless (eof-object? curr-line)
+          (let* ((leading-spaces (num-leading-spaces curr-line))
+                 (curr-left-i
+                  (cond (stringp leading-spaces)
+                        ((null? paren-stack)
+                         (when (= left-i 0) (set! left-i leading-spaces))
+                         left-i)
+                        (else (let* ((lp (car paren-stack))
+                                     (nas (lparen-num-aligned-subforms lp))
+                                     (nfs (lparen-num-finished-subforms lp))
+                                     (extra-w 0))
+                                (when (< nfs nas)
+                                  (set-lparen-num-finished-subforms! lp
+                                                                     (+ nfs 1))
+                                  (set! extra-w 2))
+                                (+ (lparen-spaces-before lp) extra-w))))))
+            (set! curr-line (string-trim-blanks curr-line))
+            (do ((i 0 (+ i 1)))
+                ((= i curr-left-i))
+              (write-char #\space))
+            (display curr-line) (newline)
+            ;
+            (let ((n (string-length curr-line))
+                  (escapep #f)
+                  (inter-word-space-p #f))
+              (let loop ((i 0))
+                (unless (>= i n)
+                  (let ((c (string-ref curr-line i)))
+                    (cond (escapep (set! escapep #f) (loop (+ i 1)))
+                          ((char=? c #\\) (set! escapep #t) (loop (+ i 1)))
+                          (stringp
+                           (when (char=? c #\") (set! stringp #f))
+                           (loop (+ i 1)))
+                          ((char=? c #\;) 'break-loop)
+                          ((char=? c #\") (set! stringp #t)
+                           (loop (+ i 1)))
+                          ((memv c '(#\space #\tab))
+                           (unless inter-word-space-p
+                             (set! inter-word-space-p #t)
+                             (cond ((and (pair? paren-stack)
+                                         (car paren-stack)) =>
+                                    (lambda (lp)
+                                      (let ((nfs (lparen-num-finished-subforms lp)))
+                                        (set-lparen-num-finished-subforms! lp (+ nfs 1)))))))
+                           (loop (+ i 1)))
+                          ((memv c '(#\( #\[))
+                           (set! inter-word-space-p #f)
+                           (let-values (((left-indent
+                                          num-aligned-subforms
+                                          j)
+                                         (calc-subindent curr-line (+ i 1) n)))
+                             (set! paren-stack
+                                   (cons (make-lparen (+ i curr-left-i left-indent)
+                                                      num-aligned-subforms)
+                                         paren-stack))
+                             (loop (+ j 1))))
+                          ((memv c '(#\) #\]))
+                           (set! inter-word-space-p #f)
+                           (cond (paren-stack
+                                  (set! paren-stack (cdr paren-stack)))
+                                 (else (set! left-i 0)))
+                           (loop (+ i 1)))
+                          (else (set! inter-word-space-p #f)
+                                (loop (+ i 1)))))))))
+          (line-loop))))))
+
+(read-home-lispwords)
+
+(indent-lines)
+
+;eof
diff --git a/vimrc b/vimrc
index 75bcb56..17274d3 100644
--- a/vimrc
+++ b/vimrc
@@ -135,7 +135,7 @@ map <leader>rn :sp ~/.personal-files/work/dive-networks/files/notes/refactoring-
 
 
 """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
-" CLOJURE AND CLOJURESCRIPT SYNTAX
+" Lisp
 """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
 " Rainbow parens ala rainbow_parentheses.vim
 au VimEnter * RainbowParenthesesToggle
@@ -143,6 +143,11 @@ au Syntax * RainbowParenthesesLoadRound
 au Syntax * RainbowParenthesesLoadSquare
 au Syntax * RainbowParenthesesLoadBraces
 
+"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
+" Schemes
+"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
+" properly indent schemes (scheme, racket, etc)
+autocmd bufread,bufnewfile *.lisp,*.scm,*.rkt setlocal equalprg=scmindent.rkt
 
 """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
 " COLORS
diff --git a/zshenv b/zshenv
index 16af886..8901e7b 100644
--- a/zshenv
+++ b/zshenv
@@ -5,7 +5,7 @@ export TERM=xterm-256color
 export EDITOR=vim
 
 # Grep tweaks
-export GREP_OPTIONS="-nRi --color --exclude-dir=.git  --exclude-dir=tmp --exclude-dir=log --exclude-dir=node_modules --exclude-dir=bower_components --exclude-dir=coverage --exclude-dir=.bundle --exclude=*.csv --exclude=*.pdf --exclude-dir=vendor --exclude-dir=rdoc --exclude-dir=target --exclude-dir=personal" # --exclude-dir=images --exclude-dir=coverage
+export GREP_OPTIONS="-nRi --color --exclude-dir=.git  --exclude-dir=tmp --exclude-dir=log --exclude-dir=node_modules --exclude-dir=bower_components --exclude-dir=coverage --exclude-dir=.bundle --exclude=*.csv --exclude=*.pdf --exclude-dir=vendor --exclude-dir=rdoc --exclude-dir=target --exclude-dir=personal --exclude-dir=resources/public/js/*.*" # --exclude-dir=images --exclude-dir=coverage
 
 export RBENV_PATH="$HOME/.rbenv"
 
@@ -25,7 +25,7 @@ export LEIN_FAST_TRAMPOLINE=y
 export ANDROID_HOME=/usr/local/opt/android-sdk
 
 #export PATH=/usr/local/sbin:/usr/local/bin:${PATH}
-path=($HOME/bin ${ANSIBLE_DIR}/bin ${RBENV_PATH}/bin $path)
+path=($HOME/bin ${ANSIBLE_DIR}/bin ${RBENV_PATH}/bin $HOME/.vim/scripts $path)
 
 # Start rbenv
 eval "$(rbenv init -)"