Wed Jun 10 14:17:14 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* better Lisp source highlighting
hunk ./lisp-hl.xml 4
+ <highlighter type="word">
+ <word>call-next-method</word>
+ <word>do-external-symbols</word>
+ <word>do</word>
+ <word>do*</word>
+ <word>eval-when</word>
+ <word>handler-bind</word>
+ <word>handler-case</word>
+ <word>in-package</word>
+ <word>let*</word>
+ <word>multiple-value-bind</word>
+ <word>restart-bind</word>
+ <word>restart-case</word>
+ <word>return-from</word>
+ <word>signal</word>
+ <word>unwind-protect</word>
+
+ <style>keyword</style>
+ <ignoreCase />
+ </highlighter>
hunk ./lisp-hl.xml 25
- <keyword>defun</keyword>
+ <keyword>assert</keyword>
+ <keyword>block</keyword>
+ <keyword>case</keyword>
+ <keyword>catch</keyword>
+ <keyword>ccase</keyword>
+ <keyword>cerror</keyword>
+ <keyword>check-type</keyword>
+ <keyword>declaim</keyword>
+ <keyword>declare</keyword>
+ <keyword>defclass</keyword>
+ <keyword>defconstant</keyword>
hunk ./lisp-hl.xml 37
+ <keyword>define-condition</keyword>
+ <keyword>defmacro</keyword>
hunk ./lisp-hl.xml 40
- <keyword>lambda</keyword>
-
- <keyword>if</keyword>
- <keyword>when</keyword>
- <keyword>unless</keyword>
-
- <keyword>let</keyword>
- <keyword>let*</keyword>
-
- <keyword>defvar</keyword>
- <keyword>defparameter</keyword>
hunk ./lisp-hl.xml 41
-
- <keyword>defclass</keyword>
+ <keyword>defparameter</keyword>
hunk ./lisp-hl.xml 43
-
- <keyword>declare</keyword>
- <keyword>declaim</keyword>
+ <keyword>deftype</keyword>
+ <keyword>defun</keyword>
+ <keyword>defvar</keyword>
+ <keyword>dolist</keyword>
+ <keyword>dotimes</keyword>
+ <keyword>ecase</keyword>
+ <keyword>error</keyword>
+ <keyword>flet</keyword>
+ <keyword>go</keyword>
+ <keyword>if</keyword>
+ <keyword>labels</keyword>
+ <keyword>lambda</keyword>
+ <keyword>let</keyword>
+ <keyword>loop</keyword>
hunk ./lisp-hl.xml 58
+ <keyword>prog1</keyword>
+ <keyword>prog2</keyword>
+ <keyword>progn</keyword>
+ <keyword>progv</keyword>
+ <keyword>return</keyword>
+ <keyword>tagbody</keyword>
+ <keyword>throw</keyword>
+ <keyword>typecase</keyword>
+ <keyword>unless</keyword>
+ <keyword>warn</keyword>
+ <keyword>when</keyword>
+
hunk ./lisp-hl.xml 72
- <highlighter type="word">
- <word>in-package</word>
+ <!-- with- -->
+ <highlighter type="regex">
+ <pattern>(?<=\()(\S+[:])?(with-\S+)</pattern>
hunk ./lisp-hl.xml 100
- <!-- defined symbols -->
+ <!-- lambda list keywords -->
+ <highlighter type="word">
+ <word>&allow-other-keys</word>
+ <word>&aux</word>
+ <word>&body</word>
+ <word>&environment</word>
+ <word>&key</word>
+ <word>&optional</word>
+ <word>&rest</word>
+ <word>&whole</word>
+
+ <style>attribute</style>
+ <ignoreCase />
+ </highlighter>
+
+ <!-- emacs style highlighted names -->
hunk ./lisp-hl.xml 120
+ <flags>CASE_INSENSITIVE</flags>
hunk ./lisp-hl.xml 127
+ <!-- defmacro -->
+ <highlighter type="regex">
+ <pattern>(?<=defmacro\s)(\S+)</pattern>
+ <style>directive</style>
+ </highlighter>
hunk ./lisp-hl.xml 152
+ <!-- defparameter -->
+ <highlighter type="regex">
+ <pattern>(?<=defconstant\s)(\S+)</pattern>
+ <style>directive</style>
+ </highlighter>
hunk ./lisp-hl.xml 162
-
- <!-- numbers [_$_]
- TODO does not work? -->
- <highlighter type="number">
- <point>.</point>
- <exponent>d</exponent> <!-- double-float -->
- <exponent>e</exponent> <!-- float -->
- <exponent>f</exponent> <!-- single-float -->
- <exponent>l</exponent> <!-- long-float -->
- <exponent>s</exponent> <!-- short-float -->
- <ignoreCase />
- </highlighter>
- <!-- numbers -->
- <highlighter type="hexnumber">
- <prefix>#x</prefix>
- <ignoreCase />
+ <!-- define-condition -->
+ <highlighter type="regex">
+ <pattern>(?<=define-condition\s)(\S+)</pattern>
+ <style>directive</style>