hg.stevelosh.com > dotfiles

--- a/lispwords	Thu Jun 30 11:42:00 2016 +0000
+++ b/lispwords	Thu Jun 30 13:06:28 2016 +0000
@@ -8,6 +8,7 @@
 (1 symbol-macrolet)
 (1 print-unreadable-object)
 (1 pprint-logical-block)
+(2 defmacro)

 ; my own weird things
 (1 make-array)
--- a/roswell/lispindent.ros	Thu Jun 30 11:42:00 2016 +0000
+++ b/roswell/lispindent.ros	Thu Jun 30 13:06:28 2016 +0000
@@ -32,7 +32,7 @@

 (defvar *lisp-keywords* '())
 (defvar *labels-keywords* '(labels flet macrolet))
-(defvar *lambda-list-keywords* '(defun defmethod))
+(defvar *lambda-list-keywords* '(defun defmethod defmacro))
 (defvar *case-keywords* '(cond case))
--- a/vim/ftplugin/lisp/lispfolding.vim	Thu Jun 30 11:42:00 2016 +0000
+++ b/vim/ftplugin/lisp/lispfolding.vim	Thu Jun 30 13:06:28 2016 +0000
@@ -151,6 +151,9 @@
         elseif getline(a:lnum) =~ '^(declaim\( \|$\)'
             " fold top level declaims
             return ">1"
+        elseif getline(a:lnum) =~ '^(eval-when\( \|$\)'
+            " fold top level eval-when
+            return ">1"
         elseif getline(a:lnum) =~ '^(def'
             " fuck it just fold everything that looks kinda deffy
             return ">1"
author	Steve Losh <steve@stevelosh.com>
date	Thu, 30 Jun 2016 13:06:28 +0000
parents	aeab9d321fea
children	a1d25734af30
branches/tags	(none)
files	lispwords roswell/lispindent.ros vim/ftplugin/lisp/lispfolding.vim