Updated clojure.vim.

diff --git a/vim/clojure.vim b/vim/clojure.vim
index 02ffc3b..7cab4df 100644 (file)
--- a/vim/clojure.vim
+++ b/vim/clojure.vim
@@ -1,6 +1,6 @@
 " Vim syntax file
 " Language:       Clojure
-" Last Change: 2008-03-21
+" Last Change: 2008-04-01
 " Maintainer:  Toralf Wittner <[email protected]>
 
 if version < 600
@@ -37,6 +37,7 @@ syn match clojureQuote "\('\|`\)"
 syn match clojureUnquote "\(\~@\|\~\)"
 syn match clojureDispatch "\(#^\|#'\)"
 syn match clojureAnonFn "#\ze("
+syn match clojurePattern /#\ze"/
 syn match clojureVarArg "&" containedin=clojureVector
 syn keyword clojureBoolean true false
 
@@ -52,6 +53,7 @@ highlight link clojureDefName Function
 highlight link clojureNil Constant
 highlight link clojureQuote Macro
 highlight link clojureAnonFn Macro
+highlight link clojurePattern Macro
 highlight link clojureUnquote Delimiter
 highlight link clojureDispatch Constant
 highlight link clojureVarArg Number
@@ -59,7 +61,7 @@ highlight link clojureBoolean Constant
 
 if exists("g:clj_highlight_builtins")
     "Highlight Clojure's predefined functions"
-    syn keyword clojureFunc list cons conj defn instance? vector hash-map sorted-map sorted-map-by defmacro when when-not meta with-meta nil? false? true? not first rest second ffirst rfirst frest rrest = not= str symbol keyword gensym cond seq apply list* fnseq lazy-cons concat and or reduce reverse + * / - < <= > >= == max min inc dec pos? neg? zero? quot rem bit-shift-left bit-shift-right bit-and bit-or bit-xor bit-not complement constantly identity count peek pop nth contains? get assoc dissoc find select-keys keys vals key val rseq name namespace locking .. -> defmulti defmethod remove-method binding find-var agent ! agent-errors clear-agent-errors ref deref commute alter ref-set ensure sync comp partial every? not-every? some not-any? map mapcat filter take take-while drop drop-while cycle split-at split-with repeat replicate iterate range merge merge-with zipmap line-seq comparator sort sort-by eval defimports doseq dorun doall await await-for dotimes import into-array into make-proxy implement pr newline prn print println read with-open doto memfn time int long float double short byte char boolean alength aget aset make-array to-array to-array-2d pmap macroexpand-1 macroexpand create-struct defstruct struct-map struct accessor subvec load resultset-seq set distinct find-ns create-ns remove-ns all-ns ns-name ns-map ns-unmap ns-publics ns-imports refer ns-refers ns-interns take-nth interleave var-get var-set with-local-vars ns-resolve resolve array-map nthrest string? symbol? map? seq? vector? when-first lazy-cat for bean comment with-out-str pr-str prn-str print-str println-str assert test re-pattern re-matcher re-groups re-seq re-matches re-find rand rand-int defn- print-doc find-doc doc tree-seq file-seq xml-seq var? special-symbol? cast class get-proxy-class construct-proxy update-proxy proxy-mappings proxy slurp subs max-key min-key hash-set sorted-set disj if-let when-let replace
+    syn keyword clojureFunc ! * *agent* *command-line-args* *in* *macro-meta* *ns* *out* *print-meta* *print-readably* *proxy-classes* *warn-on-reflection* + - -> .. / < <= = == > >= accessor agent agent-errors aget alength all-ns alter and apply array-map aset aset-boolean aset-byte aset-char aset-double aset-float aset-int aset-long aset-short assert assoc await await-for bean binding bit-and bit-not bit-or bit-shift-left bit-shift-right bit-xor boolean butlast byte cast char class clear-agent-errors comment commute comp comparator complement concat cond conj cons constantly construct-proxy contains? count create-ns create-struct cycle dec defmacro defmethod defmulti defn defn- defstruct deref destructure disj dissoc distinct doall doc dorun doseq dosync dotimes doto double drop drop-while ensure eval every? false? ffirst file-seq filter find find-doc find-ns find-var first float flush fnseq for frest gensym get get-proxy-class hash-map hash-set identity if-let import inc instance? int interleave into into-array iterate key keys keyword keyword? last lazy-cat lazy-cons line-seq list list* load load-file locking long macroexpand macroexpand-1 make-array map map? mapcat max max-key memfn merge merge-with meta min min-key name namespace neg? newline nil? not not-any? not-every? not= ns-imports ns-interns ns-map ns-name ns-publics ns-refers ns-resolve ns-unmap nth nthrest or partial peek pmap pop pos? pr pr-str print print-doc print-str println println-str prn prn-str proxy proxy-mappings quot rand rand-int range re-find re-groups re-matcher re-matches re-pattern re-seq read read-line reduce ref ref-set refer rem remove-method remove-ns repeat replace replicate require resolve rest resultset-seq reverse rfirst rrest rseq scan second select-keys send send-off seq seq? set short slurp some sort sort-by sorted-map sorted-map-by sorted-set special-symbol? split-at split-with str string? struct struct-map subs subvec symbol symbol? sync take take-nth take-while test time to-array to-array-2d touch tree-seq true? update-proxy val vals var-get var-set var? vector vector? when when-first when-let when-not with-local-vars with-meta with-open with-out-str xml-seq zero? zipmap 
     highlight link clojureFunc Special
 endif