--- a/bin/ccl-rlwrap Fri Jul 15 13:17:16 2016 +0000
+++ b/bin/ccl-rlwrap Sun Jul 17 22:00:42 2016 +0000
@@ -2,3 +2,5 @@
set -e
rlwrap ros -L ccl-bin run -l ~/.ccl-init.lisp "$@"
+# /usr/local/bin/ccl "$@"
+
--- a/ccl-init.lisp Fri Jul 15 13:17:16 2016 +0000
+++ b/ccl-init.lisp Sun Jul 17 22:00:42 2016 +0000
@@ -10,8 +10,8 @@
;;; The following lines added by ql:add-to-init-file:
-; #-quicklisp
-; (let ((quicklisp-init (merge-pathnames ".quicklisp/setup.lisp" (user-homedir-pathname))))
-; (when (probe-file quicklisp-init)
-; (load quicklisp-init)))
+#-quicklisp
+(let ((quicklisp-init (merge-pathnames ".quicklisp/setup.lisp" (user-homedir-pathname))))
+ (when (probe-file quicklisp-init)
+ (load quicklisp-init)))
--- a/lispwords Fri Jul 15 13:17:16 2016 +0000
+++ b/lispwords Sun Jul 17 22:00:42 2016 +0000
@@ -14,7 +14,6 @@
; my own weird things
(1 make-array)
-(1 once-only)
; fiveam
(1 test)
@@ -24,12 +23,14 @@
; defstar
(2 defun*)
+(1 labels* flet*)
(1 *let)
; alexandria / utils
(1 switch eswitch cswitch)
(1 while until)
(1 with-gensyms)
+(1 once-only)
; arrows
(1 -> ->> -<> -<>>)
@@ -43,3 +44,6 @@
; policy-cond
(1 policy-if)
+
+; charms
+(1 with-curses)
--- a/roswell/lispindent.ros Fri Jul 15 13:17:16 2016 +0000
+++ b/roswell/lispindent.ros Sun Jul 17 22:00:42 2016 +0000
@@ -1,7 +1,7 @@
#!/bin/sh
#|-*- mode:lisp -*-|#
#|
-exec ros -Q -- $0 "$@"
+exec ros +Q -- $0 "$@"
|#
#|
@@ -31,7 +31,7 @@
(defvar *lisp-keywords* '())
-(defvar *labels-keywords* '(labels flet macrolet))
+(defvar *labels-keywords* '(labels flet macrolet labels* flet*))
(defvar *lambda-list-keywords* '(defun defmethod defmacro define-compiler-macro defun*))
(defvar *case-keywords* '(cond case))
--- a/vim/custom-dictionary.utf-8.add Fri Jul 15 13:17:16 2016 +0000
+++ b/vim/custom-dictionary.utf-8.add Sun Jul 17 22:00:42 2016 +0000
@@ -196,3 +196,5 @@
GDC
neovim
janky
+CLOS
+ncurses
--- a/vim/vimrc Fri Jul 15 13:17:16 2016 +0000
+++ b/vim/vimrc Sun Jul 17 22:00:42 2016 +0000
@@ -887,30 +887,42 @@
setlocal lispwords+=block
- setlocal lispwords+=switch
- setlocal lispwords+=cswitch
- setlocal lispwords+=eswitch
setlocal lispwords+=when-let
setlocal lispwords+=test
setlocal lispwords+=.let*
+ setlocal lispwords+=define-compiler-macro
" optima
setlocal lispwords+=optima:match
setlocal lispwords+=match
-
- " defstar
- setlocal lispwords+=defun*
- setlocal lispwords+=defmethod*
- setlocal lispwords+=defgeneric*
- setlocal lispwords+=defvar*
- setlocal lispwords+=defparameter*
- setlocal lispwords+=flet*
- setlocal lispwords+=labels*
- setlocal lispwords+=lambda*
- setlocal lispwords+=*let
+ setlocal lispwords+=ematch
+
+ " 1am
+ setlocal lispwords+=test
+
+ " sketch
+ setlocal lispwords+=with-pen
+ setlocal lispwords+=with-font
+
+ " charms
+ setlocal lispwords+=with-curses
+
+ " bones
+ setlocal lispwords+=rule
+
+ " cl-arrows
+ setlocal lispwords+=->
+ setlocal lispwords+=->>
+ setlocal lispwords+=-<>
+ setlocal lispwords+=-<>>
" alexandria
setlocal lispwords+=define-constant
+ setlocal lispwords+=switch
+ setlocal lispwords+=cswitch
+ setlocal lispwords+=eswitch
+ setlocal lispwords+=with-gensyms
+ setlocal lispwords+=once-only
endfunction "}}}
function! SendLispForm() "{{{
@@ -2903,6 +2915,7 @@
tnoremap <Esc> <C-\><C-n>
tnoremap <leader><esc> <esc>
nnoremap <bs> <c-w>h
+ let g:terminal_scrollback_buffer_size = 5000
endif
" }}}