# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1525551474 14400
# Node ID 385a012ed0035980848921a52ed157207f8dcf07
# Parent  249f8983c3d5a7edb19e643b73f435ba7264743b
Dump

diff -r 249f8983c3d5 -r 385a012ed003 bin/brows
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/bin/brows	Sat May 05 16:17:54 2018 -0400
@@ -0,0 +1,1 @@
+/Users/sjl/src/brows/bin/brows
\ No newline at end of file
diff -r 249f8983c3d5 -r 385a012ed003 bin/ccl-raw
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/bin/ccl-raw	Sat May 05 16:17:54 2018 -0400
@@ -0,0 +1,5 @@
+#!/usr/bin/env bash
+
+set -e
+/usr/local/bin/ccl64 "$@"
+
diff -r 249f8983c3d5 -r 385a012ed003 bin/code-to-pdf
--- a/bin/code-to-pdf	Tue Mar 13 22:01:00 2018 -0400
+++ b/bin/code-to-pdf	Sat May 05 16:17:54 2018 -0400
@@ -6,7 +6,7 @@
 enscript -1 --media=Letter \
     --toc \
     --header '%H - $N | | page $% of $= in file $v' \
-    --font "Menlo-Regular@8.5" \
+    --font "Menlo-Regular@8" \
     --header-font "Menlo-Bold@10" \
     --fancy-header=sjl \
     --title "$TITLE" \
@@ -15,10 +15,11 @@
     --highlight \
     --color \
     --mark-wrapped-lines=arrow \
+    --margins=20:40:30:30 \
     --landscape \
-    --margins=20:40:30:30 \
     -p - \
     --word-wrap $* \
     | pstopdf -i -o code.pdf
 
     # --margins=60:60:18:60 \
+    # --portrait \
diff -r 249f8983c3d5 -r 385a012ed003 bin/llp
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/bin/llp	Sat May 05 16:17:54 2018 -0400
@@ -0,0 +1,5 @@
+#!/usr/bin/env bash
+
+set -eio pipefail
+
+ln -s $(pwd) ~/.quicklisp/local-projects/
diff -r 249f8983c3d5 -r 385a012ed003 bin/rlwrap-lisp
--- a/bin/rlwrap-lisp	Tue Mar 13 22:01:00 2018 -0400
+++ b/bin/rlwrap-lisp	Sat May 05 16:17:54 2018 -0400
@@ -1,6 +1,6 @@
 #!/usr/bin/env bash
 
-rlwrap -m@ \
+rlwrap -m$ \
        --multi-line-ext .lisp \
        -a___ \
        --only-cook '^\[[a-zA-Z ]+\] [-a-zA-Z0-9._]+>' \
diff -r 249f8983c3d5 -r 385a012ed003 bin/sbcl-raw
--- a/bin/sbcl-raw	Tue Mar 13 22:01:00 2018 -0400
+++ b/bin/sbcl-raw	Sat May 05 16:17:54 2018 -0400
@@ -1,4 +1,8 @@
 #!/usr/bin/env bash
 
 set -e
-/usr/local/bin/sbcl --noinform "$@"
+
+rlwrap --quote-characters '' \
+       --histsize 1000 \
+       --history-filename "$HOME/.rlwrap-lisp-history" \
+       /usr/local/bin/sbcl --noinform "$@"
diff -r 249f8983c3d5 -r 385a012ed003 ccl-init.lisp
--- a/ccl-init.lisp	Tue Mar 13 22:01:00 2018 -0400
+++ b/ccl-init.lisp	Sat May 05 16:17:54 2018 -0400
@@ -1,5 +1,7 @@
 (setf *quit-on-eof* t)
-(setq *load-preserves-optimization-settings* t)
+(setf *load-preserves-optimization-settings* t)
+
+(setf ccl:*default-file-character-encoding* :utf-8)
 
 (defun sjl-lisp-prompt-format (stream level)
   (if (zerop level)
diff -r 249f8983c3d5 -r 385a012ed003 fish/functions/mutt.fish
--- a/fish/functions/mutt.fish	Tue Mar 13 22:01:00 2018 -0400
+++ b/fish/functions/mutt.fish	Sat May 05 16:17:54 2018 -0400
@@ -1,4 +1,4 @@
-set -g -x MUTT_BIN (which mutt)
+set -g -x MUTT_BIN (which neomutt)
 
 function mutt
     bash --login -c "cd ~/Desktop; $MUTT_BIN \$@" custom_mutt $argv
diff -r 249f8983c3d5 -r 385a012ed003 gitignore
--- a/gitignore	Tue Mar 13 22:01:00 2018 -0400
+++ b/gitignore	Sat May 05 16:17:54 2018 -0400
@@ -10,3 +10,4 @@
 .DS_Store
 .cache-main
 .cache-tests
+*.fasl
diff -r 249f8983c3d5 -r 385a012ed003 lispwords
--- a/lispwords	Tue Mar 13 22:01:00 2018 -0400
+++ b/lispwords	Sat May 05 16:17:54 2018 -0400
@@ -107,7 +107,7 @@
 (1 test-op)
 
 ; ppcre
-(2 register-groups-bind)
+(2 register-groups-bind do-register-groups)
 
 ; lparallel
 (1 pdotimes)
diff -r 249f8983c3d5 -r 385a012ed003 mutt/muttrc
--- a/mutt/muttrc	Tue Mar 13 22:01:00 2018 -0400
+++ b/mutt/muttrc	Sat May 05 16:17:54 2018 -0400
@@ -210,7 +210,8 @@
 bind pager R  group-reply
 bind pager N  search-opposite
 
-macro pager \Cu "|urlview<enter>" "call urlview to open links"
+# macro pager \Cu "|urlview<enter>" "call brows to open links"
+macro pager \Cu "|brows<enter>" "call brows to open links"
 macro pager s "<pipe-message>cat > ~/Desktop/"  "save message as"
 
 # Quickly change mailboxes
diff -r 249f8983c3d5 -r 385a012ed003 vim/vimrc
--- a/vim/vimrc	Tue Mar 13 22:01:00 2018 -0400
+++ b/vim/vimrc	Sat May 05 16:17:54 2018 -0400
@@ -435,10 +435,6 @@
 " HTML tag closing
 inoremap <C-_> <space><bs><esc>:call InsertCloseTag()<cr>a
 
-" Source
-vnoremap <leader>S y:@"<CR>
-nnoremap <leader>S ^vg_y:execute @@<cr>:echo 'Sourced line.'<cr>
-
 " Marks and Quotes
 noremap ' `
 noremap æ '
@@ -827,7 +823,7 @@
 augroup ft_arduino
     au!
 
-    au FileType arduino setlocal noexpandtab shiftwidth=8 tabstop=8 softtabstop=8
+    au FileType arduino setlocal noexpandtab shiftwidth=8 tabstop=8 softtabstop=8 foldmethod=syntax
     au FileType arduino inoremap <buffer> ☃ <esc>A;<cr>
     au FileType arduino inoremap <buffer> ☂ <esc>mzA;<esc>`z
 augroup END
@@ -1231,7 +1227,7 @@
     au Filetype less,css setlocal omnifunc=csscomplete#CompleteCSS
     au Filetype less,css setlocal iskeyword+=-
 
-    " Use <leader>S to sort properties.  Turns this:
+    " Use <localleader>S to sort properties.  Turns this:
     "
     "     p {
     "         width: 200px;
@@ -2020,6 +2016,9 @@
     au FileType help setlocal textwidth=78
     au BufWinEnter *.txt if &ft == 'help' | wincmd L | endif
 
+    au FileType vim vnoremap <localleader>S y:@"<CR>
+    au FileType vim nnoremap <localleader>S ^vg_y:execute @@<cr>:echo 'Sourced line.'<cr>
+
     au FileType vim inoremap <c-n> <c-x><c-n>
 augroup END
 
@@ -2241,6 +2240,11 @@
 nnoremap gP g-
 
 " }}}
+" NeoRepl {{{
+
+nnoremap <leader>S 0v$:call NeoReplSendSelection()<cr>
+
+" }}}
 " NERD Tree {{{
 
 noremap  <F2> :NERDTreeToggle<cr>
@@ -2297,6 +2301,7 @@
     " Please just stop
     nunmap <buffer> <leader>W
     nunmap <buffer> <leader>O
+    nunmap <buffer> <leader>S
 
     " Oh my god will you fuck off already
     " nnoremap <buffer> dp :diffput<cr>
@@ -2682,6 +2687,7 @@
 
 let g:vlime_compiler_policy = {
             \ "DEBUG": 2,
+            \ "SAFETY": 3,
             \ "SPEED": 1
             \ }