Add clj-kondo and lint code

Author: Deraen

clj/.clj-kondo/config.edn

@@ -0,0 +1,4 @@
+{:lint-as {vim-clojure-static.test/with-tempfile clojure.core/fn
+           vim-clojure-static.test/defpredicates clojure.core/def
+           vim-clojure-static.test/defsyntaxtest clojure.core/def
+           }}

clj/src/vim_clojure_static/generate.clj

@@ -332,10 +332,11 @@
   "Vimscript literal `setlocal lispwords=` statement."
   (str "setlocal lispwords=" (string/join \, (sort lispwords)) "\n"))
 
-(defn- comprehensive-clojure-character-property-regexps []
+(defn- comprehensive-clojure-character-property-regexps
   "A string representing a Clojure literal vector of regular expressions
    containing all possible property character classes. For testing Vimscript
    syntax matching optimizations."
+  []
   (let [fmt (fn [prefix prop-key]
               (let [props (map (partial format "\\p{%s%s}" prefix)
                                (sort (get character-properties prop-key)))]
@@ -456,6 +457,8 @@
   (spit "tmp/all-char-props.clj"
         (comprehensive-clojure-character-property-regexps))
 
+  (require 'vim-clojure-static.test)
+
   ;; Performance test: `syntax keyword` vs `syntax match`
   (vim-clojure-static.test/benchmark
     1000 "tmp/bench.clj" (str keyword-groups)

clj/src/vim_clojure_static/test.clj

@@ -11,7 +11,7 @@
 
 (defmacro with-tempfile
   {:requires [File]}
-  [tmp-sym & body]
+  [[tmp-sym] & body]
   `(let [~tmp-sym (File/createTempFile "vim-clojure-static" ".tmp")]
      (try
        ~@body
@@ -23,7 +23,7 @@
    value of vim-expr is evaluated as EDN and returned."
   [file buf vim-expr & opts]
   (let [{:keys [pre]} (apply hash-map opts)]
-    (with-tempfile tmp
+    (with-tempfile [tmp]
       (io/make-parents file)
       (spit file buf)
       (spit tmp (str "let @x = " vim-expr))
@@ -121,9 +121,9 @@
 
    `in` and `out` are urls that will be passed to clojure.java.io/resource."
   {:requires [#'test/testing #'with-tempfile]}
-  [string {:keys [in out]} [tmp-sym] & body]
+  [string {:keys [in out]} [tmp-sym :as tmp-binding] & body]
   `(test/testing ~string
-     (with-tempfile ~tmp-sym
+     (with-tempfile ~tmp-binding
        (try
          (spit ~tmp-sym (slurp (~io/resource ~in)))
          ~@body

clj/test/vim_clojure_static/syntax_test.clj

@@ -4,6 +4,9 @@
 (ns vim-clojure-static.syntax-test
   (:require [vim-clojure-static.test :refer [defpredicates defsyntaxtest]]))
 
+;; defpredicates also register not-equal vars, this is just for clj-kondo
+(declare !number !regexp-escape !regexp-posix-char-class !regexp-quantifier)
+
 (defpredicates number :clojureNumber)
 (defpredicates kw :clojureKeyword)
 (defpredicates regexp :clojureRegexp)