--- /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
--- /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 "$@"
+
--- 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 \
--- /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/
--- 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._]+>' \
--- 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 "$@"
--- 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)
--- 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
--- 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
--- 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)
--- 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
--- 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
\ }