--- a/.hgsubstate Thu Aug 08 10:59:46 2013 -0400
+++ b/.hgsubstate Thu Aug 08 11:01:26 2013 -0400
@@ -3,7 +3,7 @@
4d95cb18a3b420154ef978c53de1d2e692f8343d mercurial/templates
64981213be2efd939e6e6e109e2b32c24e95fd95 vim/bundle/AnsiEsc.vim
f183a345a0c10caed7684d07dabae33e007c7590 vim/bundle/ack
-b8e07a24e77d3bad16a89bde409f97ccc307486a vim/bundle/badwolf
+db3707cbd8706f4bb054959ecc5cee82ac45687b vim/bundle/badwolf
8533fffd9fbb690dfc8e334f91a10c72e35a6dce vim/bundle/clam
949adf73ae1a82c48cd951677c055bd38a30af99 vim/bundle/clojure-static
dc349bb7d30f713d770fc1fa0fe209e6aab82dc8 vim/bundle/commentary
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/bin/lisp Thu Aug 08 11:01:26 2013 -0400
@@ -0,0 +1,5 @@
+#!/usr/bin/env bash
+
+set -e
+
+rlwrap sbcl --load ~/.quicklisp/setup.lisp "$@"
--- a/vim/vimrc Thu Aug 08 10:59:46 2013 -0400
+++ b/vim/vimrc Thu Aug 08 11:01:26 2013 -0400
@@ -65,7 +65,12 @@
set dictionary=/usr/share/dict/words
set spellfile=~/.vim/custom-dictionary.utf-8.add
set colorcolumn=+1
+
+" iTerm2 is currently slow as ball at rendering the nice unicode lines, so for
+" now I'll just use ascii pipes. They're ugly but at least I won't want to kill
+" myself when trying to move around a file.
set fillchars=diff:⣿,vert:│
+set fillchars=diff:⣿,vert:\|
" Don't try to highlight lines longer than 800 characters.
set synmaxcol=800
@@ -686,6 +691,36 @@
augroup END
" }}}
+" Common Lisp {{{
+
+augroup ft_commonlisp
+ au!
+
+ au FileType lisp RainbowParenthesesActivate
+ au syntax lisp RainbowParenthesesLoadRound
+ au syntax lisp RainbowParenthesesLoadSquare
+ au syntax lisp RainbowParenthesesLoadBraces
+
+ au FileType lisp silent! call TurnOnLispFolding()
+
+ au FileType lisp noremap <buffer> () :<c-u>call PareditWrap("(", ")")<cr>
+ au FileType lisp noremap <buffer> )( :<c-u>call PareditSplice()<cr>
+ au FileType lisp noremap <buffer> (( :<c-u>call PareditMoveLeft()<cr>
+ au FileType lisp noremap <buffer> )) :<c-u>call PareditMoveRight()<cr>
+ au FileType lisp noremap <buffer> (j :<c-u>call PareditJoin()<cr>
+ au FileType lisp noremap <buffer> (s :<c-u>call PareditSplit()<cr>
+ au FileType lisp noremap <buffer> )j :<c-u>call PareditJoin()<cr>
+ au FileType lisp noremap <buffer> )s :<c-u>call PareditSplit()<cr>
+ au FileType lisp noremap <buffer> [[ :<c-u>call PareditSmartJumpOpening(0)<cr>
+ au FileType lisp noremap <buffer> ]] :<c-u>call PareditSmartJumpClosing(0)<cr>
+ " ))
+
+ " Indent top-level form.
+ au FileType lisp nmap <buffer> <localleader>= mz99[(v%='z
+ " ])
+augroup END
+
+" }}}
" Confluence {{{
augroup ft_c