c9adf65c83ff

More stuff
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Tue, 12 Apr 2016 16:34:30 +0000
parents 735d4fc86bc8
children 08bb1b2895de
branches/tags (none)
files bin/bootstrap.sh bin/lispindent vim/vimrc

Changes

--- a/bin/bootstrap.sh	Sun Apr 10 22:14:09 2016 +0000
+++ b/bin/bootstrap.sh	Tue Apr 12 16:34:30 2016 +0000
@@ -52,6 +52,7 @@
 ensure_link "lib/dotfiles/fish/functions"      ".config/fish/functions"
 ensure_link "lib/dotfiles/ipython"             ".ipython"
 ensure_link "lib/dotfiles/sbclrc"              ".sbclrc"
+ensure_link "lib/dotfiles/ccl-init.lisp"       ".ccl-init.lisp"
 
 echo remember to copy the notmuch-config
 echo completed
--- a/bin/lispindent	Sun Apr 10 22:14:09 2016 +0000
+++ b/bin/lispindent	Tue Apr 12 16:34:30 2016 +0000
@@ -97,7 +97,7 @@
     (if colon-pos
         (if (= colon-pos 0) t nil)
       (let ((s (safe-read-from-string s)))
-        (or (characterp s) (numberp s) (stringp s))))))
+        (or (eql t s) (characterp s) (numberp s) (stringp s))))))
 
 ;(trace lisp-indent-number literal-token-p read-from-string past-next-token)
 
--- a/vim/vimrc	Sun Apr 10 22:14:09 2016 +0000
+++ b/vim/vimrc	Tue Apr 12 16:34:30 2016 +0000
@@ -910,11 +910,11 @@
     hi def link replComment Comment
 endfunction "}}}
 function! OpenLispReplSBCL() "{{{
-    NeoRepl nrepl-sbcl
+    NeoRepl sbcl-nrepl
     call HighlightLispRepl()
 endfunction "}}}
 function! OpenLispReplCCL() "{{{
-    NeoRepl nrepl-ccl
+    NeoRepl ccl-nrepl
     call HighlightLispRepl()
 endfunction "}}}
 function! SetLispWords() "{{{
@@ -926,6 +926,8 @@
 
     let b:did_set_lisp_words = 1
 
+    setlocal lispwords+=block
+
     setlocal lispwords+=switch
     setlocal lispwords+=cswitch
     setlocal lispwords+=eswitch