d02c81529a7e default tip

More
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Fri, 13 Feb 2026 12:24:49 -0500
parents ed5b606670fb
children (none)
branches/tags default tip
files .hgsubstate bin/b bin/code-to-pdf bin/sb bin/sbcl-vlime bin/sbcl-vlime-port bin/urldecode vim/custom-dictionary.utf-8.add vim/vimrc

Changes

--- a/.hgsubstate	Thu Jan 29 13:29:06 2026 -0500
+++ b/.hgsubstate	Fri Feb 13 12:24:49 2026 -0500
@@ -40,5 +40,5 @@
 b393ba65386d47664421e1f8b246a87a6e8b218c vim/bundle/ultisnips
 e9d7ff3eb4a369f0cb2069c8f77ae68796bca308 vim/bundle/vim-go
 9df79e15bf035d1cfb32c11fffed38dd7b6a0501 vim/bundle/vimtex
-eee93632fee3b680fe992008b723b0802bb94a60 vim/bundle/vlime
+bebf8f4c93b8965acdc35175a10561e2e13ecd6c vim/bundle/vlime
 6876fe38b33732cb124d415ffc4156f16da5e118 vim/bundle/windowswap
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/bin/b	Fri Feb 13 12:24:49 2026 -0500
@@ -0,0 +1,11 @@
+#!/usr/bin/env bash
+
+set -e
+
+# sbcl --eval '(ql:quickload '"'"'(:losh :str) :silent t)' --eval '(in-package :losh-user)' "$@"
+
+pushd ~/src/bench
+
+./bench.sh "$@"
+
+popd
--- a/bin/code-to-pdf	Thu Jan 29 13:29:06 2026 -0500
+++ b/bin/code-to-pdf	Fri Feb 13 12:24:49 2026 -0500
@@ -5,6 +5,8 @@
 TITLE="$1"
 shift
 
+echo "Converting stdin to PDF titled $TITLE"
+
 enscript -1 --media=Letter \
     --toc \
     --header '%H - $N | | page $% of $= in file $v' \
--- a/bin/sb	Thu Jan 29 13:29:06 2026 -0500
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,5 +0,0 @@
-#!/usr/bin/env bash
-
-set -e
-
-sbcl --eval '(ql:quickload '"'"'(:losh :str) :silent t)' --eval '(in-package :losh-user)' "$@"
--- a/bin/sbcl-vlime	Thu Jan 29 13:29:06 2026 -0500
+++ b/bin/sbcl-vlime	Fri Feb 13 12:24:49 2026 -0500
@@ -1,4 +1,5 @@
 #!/usr/bin/env bash
 
 set -e
+
 sbcl --eval "(load \"~/src/dotfiles/vim/bundle/vlime/lisp/start-vlime.lisp\")" "$@"
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/bin/sbcl-vlime-port	Fri Feb 13 12:24:49 2026 -0500
@@ -0,0 +1,10 @@
+#!/usr/bin/env bash
+
+set -eu
+
+port="$1"
+
+sbcl \
+    --eval "(defvar cl-user::*vlime-port* $port)" \
+    --eval '(load "~/src/dotfiles/vim/bundle/vlime/lisp/start-vlime.lisp")' \
+    "$@"
--- a/bin/urldecode	Thu Jan 29 13:29:06 2026 -0500
+++ b/bin/urldecode	Fri Feb 13 12:24:49 2026 -0500
@@ -1,7 +1,7 @@
-#!/usr/bin/env python
+#!/usr/bin/env python3
 
-import sys, urllib
+import sys, urllib.parse
 
 input = sys.stdin.read() if len(sys.argv) == 1 or sys.argv[1] == "-" else sys.argv[1]
 
-print urllib.unquote_plus(input)
+print(urllib.parse.unquote_plus(input))
--- a/vim/custom-dictionary.utf-8.add	Thu Jan 29 13:29:06 2026 -0500
+++ b/vim/custom-dictionary.utf-8.add	Fri Feb 13 12:24:49 2026 -0500
@@ -573,3 +573,4 @@
 GSI
 FAST5
 POD5
+nondeterministic
--- a/vim/vimrc	Thu Jan 29 13:29:06 2026 -0500
+++ b/vim/vimrc	Fri Feb 13 12:24:49 2026 -0500
@@ -375,6 +375,11 @@
 function! OpenLispReplSBCL() "{{{
     NeoRepl sbcl-vlime
 endfunction "}}}
+
+function! OpenLispReplSBCLPort(port) "{{{
+    execute 'NeoRepl' 'sbcl-vlime-port' a:port
+endfunction "}}}
+
 function! OpenLispReplSBCLRaw() "{{{
     NeoRepl sbcl-vlime-raw
 endfunction "}}}
@@ -547,6 +552,25 @@
     call NeoReplSendRaw("(ql:quickload :" . input("? ") . ")\n")
 endfunction " }}}
 
+function! SetUpLispBench(port) " {{{
+    call OpenLispReplSBCLPort(a:port)
+    sleep 500m
+    execute "normal! \<c-w>h"
+    call vlime#plugin#ConnectREPL('127.0.0.1', a:port)
+    sleep 200m
+    call QuickloadLispSystem()
+    call NeoReplSendRaw("(in-package :bench)\n")
+    sleep 500m
+    call vlime#plugin#CompileFile(expand("%:p"))
+    sleep 20m
+    execute "normal! \<c-w>k"
+    normal \W
+    sleep 20m
+    call NeoReplSendRaw("'ready\n")
+    sleep 20m
+    execute "normal! \<c-w>lG\<c-w>hG"
+endfunction " }}}
+
 " }}}
 " Folding {{{
 let g:lisp_fold_extra = [