blob: 5e36df6880aca539ce5f6ae8f9275a485b1ae48d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
(ns hooks.dompa
(:require [clj-kondo.hooks-api :as api]))
(defn str-able? [x]
(or (api/string-node? x)
(api/token-node? x)))
(defn $ [{:keys [node]}]
(let [[_ first-arg & rest-args] (:children node)]
(cond
; if the first arg is string-like, then no sequences
; are allowed, because you are only allowed to concat
; strings, i.e. whatever (str) can do.
(or (api/string-node? first-arg)
(api/token-node? first-arg))
(let [invalid-args (filter #(not (str-able? %)) rest-args)]
(doall
(for [invalid-arg invalid-args]
(api/reg-finding!
(assoc (meta invalid-arg)
:message (str "Invalid argument type. When creating a text node, "
"only literal values (strings, numbers and symbols) "
"are allowed.")
:type :dompa.templates/$-arg-validation)))))
; if the first arg is a keyword, then the second argument can only be
; a sequence or a map.
(and (api/keyword-node? first-arg)
(seq rest-args)
(not (or (api/map-node? (first rest-args))
(api/list-node? (first rest-args)))))
(api/reg-finding!
(assoc (meta (first rest-args))
:message (str "Invalid argument type. Argument must be a sequence or a map.")
:type :dompa.templates/$-arg-validation))
; if the first arg is a keyword, the second arg is a list, then
; every arg has to be a list node.
(and (api/keyword-node? first-arg)
(api/list-node? (first rest-args))
(not (every? #(api/list-node? %) (rest rest-args))))
(doall
(for [arg (filter #(not (api/list-node? %)) rest-args)]
(api/reg-finding!
(assoc (meta arg)
:message (str "Invalid argument type. Argument must be a $ macro "
"or a sequence of $ macros.")
:type :dompa.templates/$-arg-validation))))
; if the first arg is a keyword, the second arg is a map, then from
; the second forwards everything has to be a list node
(and (api/keyword-node? first-arg)
(api/map-node? (first rest-args))
(not (every? #(api/list-node? %) (rest rest-args))))
(api/reg-finding!
(assoc (meta (second rest-args))
:message (str "Invalid argument type. Argument must be a $ macro "
"or a sequence of $ macros.")
:type :dompa.templates/$-arg-validation)))))
|
