Skip to content

Commit d14ccda

Browse files
committed
maint: bump deps
1 parent ecfca68 commit d14ccda

File tree

6 files changed

+97
-14
lines changed

6 files changed

+97
-14
lines changed
Lines changed: 4 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,6 @@
11
{:hooks
22
{:analyze-call
3-
{taoensso.encore/defalias taoensso.encore/defalias
4-
taoensso.encore/defn-cached taoensso.encore/defn-cached
5-
taoensso.encore/defonce taoensso.encore/defonce}}}
3+
{taoensso.encore/defalias taoensso.encore-hooks/defalias
4+
taoensso.encore/defaliases taoensso.encore-hooks/defaliases
5+
taoensso.encore/defn-cached taoensso.encore-hooks/defn-cached
6+
taoensso.encore/defonce taoensso.encore-hooks/defonce}}}
Lines changed: 82 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,82 @@
1+
(ns taoensso.encore-hooks
2+
"I don't personally use clj-kondo, so these hooks are
3+
kindly authored and maintained by contributors.
4+
PRs very welcome! - Peter Taoussanis"
5+
(:refer-clojure :exclude [defonce])
6+
(:require
7+
[clj-kondo.hooks-api :as hooks]))
8+
9+
(defn defalias
10+
[{:keys [node]}]
11+
(let [[alias src-raw _attrs body] (rest (:children node))
12+
src (or src-raw alias)
13+
sym (if src-raw (hooks/sexpr alias) (symbol (name (hooks/sexpr src))))]
14+
{:node
15+
(with-meta
16+
(hooks/list-node
17+
[(hooks/token-node 'def)
18+
(hooks/token-node sym)
19+
(if body
20+
(hooks/list-node
21+
;; use :body in the def to avoid unused import/private var warnings
22+
[(hooks/token-node 'or) body src])
23+
src)])
24+
(meta src))}))
25+
26+
(defn defaliases
27+
[{:keys [node]}]
28+
(let [alias-nodes (rest (:children node))]
29+
{:node
30+
(hooks/list-node
31+
(into
32+
[(hooks/token-node 'do)]
33+
(map
34+
(fn alias->defalias [alias-node]
35+
(cond
36+
(hooks/token-node? alias-node)
37+
(hooks/list-node
38+
[(hooks/token-node 'taoensso.encore/defalias)
39+
alias-node])
40+
41+
(hooks/map-node? alias-node)
42+
(let [{:keys [src alias attrs body]} (hooks/sexpr alias-node)
43+
;; workaround as can't seem to (get) using a token-node
44+
;; and there's no update-keys (yet) in sci apparently
45+
[& {:as node-as-map}] (:children alias-node)
46+
{:keys [attrs body]} (zipmap (map hooks/sexpr (keys node-as-map))
47+
(vals node-as-map))]
48+
(hooks/list-node
49+
[(hooks/token-node 'taoensso.encore/defalias)
50+
(or alias src) (hooks/token-node src) attrs body])))))
51+
alias-nodes))}))
52+
53+
(defn defn-cached
54+
[{:keys [node]}]
55+
(let [[sym _opts binding-vec & body] (rest (:children node))]
56+
{:node
57+
(hooks/list-node
58+
(list
59+
(hooks/token-node 'def)
60+
sym
61+
(hooks/list-node
62+
(list*
63+
(hooks/token-node 'fn)
64+
binding-vec
65+
body))))}))
66+
67+
(defn defonce
68+
[{:keys [node]}]
69+
;; args = [sym doc-string? attr-map? init-expr]
70+
(let [[sym & args] (rest (:children node))
71+
[doc-string args] (if (and (hooks/string-node? (first args)) (next args)) [(hooks/sexpr (first args)) (next args)] [nil args])
72+
[attr-map init-expr] (if (and (hooks/map-node? (first args)) (next args)) [(hooks/sexpr (first args)) (fnext args)] [nil (first args)])
73+
74+
attr-map (if doc-string (assoc attr-map :doc doc-string) attr-map)
75+
sym+meta (if attr-map (with-meta sym attr-map) sym)
76+
rewritten
77+
(hooks/list-node
78+
[(hooks/token-node 'clojure.core/defonce)
79+
sym+meta
80+
init-expr])]
81+
82+
{:node rewritten}))

build-helper/deps.edn

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,3 @@
11
{:paths ["src"]
2-
:deps {io.github.clojure/tools.build {:mvn/version "0.10.7"}
3-
babashka/fs {:mvn/version "0.5.24"}}}
2+
:deps {io.github.clojure/tools.build {:mvn/version "0.10.9"}
3+
babashka/fs {:mvn/version "0.5.26"}}}

deps.edn

Lines changed: 7 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -1,21 +1,21 @@
1-
{:deps {org.clojure/clojure {:mvn/version "1.12.0"}}
1+
{:deps {org.clojure/clojure {:mvn/version "1.12.1"}}
22
:paths ["src" "resources"]
33
:aliases
44
{:svm
55
;; this library is "provided"
6-
{:extra-deps {org.graalvm.sdk/nativeimage {:mvn/version "24.2.0"}}}
7-
:build {:deps {io.github.clojure/tools.build {:mvn/version "0.10.7"}
8-
babashka/fs {:mvn/version "0.5.24"}
9-
babashka/process {:mvn/version "0.5.22"}
6+
{:extra-deps {org.graalvm.sdk/nativeimage {:mvn/version "24.2.2"}}}
7+
:build {:deps {io.github.clojure/tools.build {:mvn/version "0.10.9"}
8+
babashka/fs {:mvn/version "0.5.26"}
9+
babashka/process {:mvn/version "0.6.23"}
1010
slipset/deps-deploy {:mvn/version "0.2.2"}}
1111
:ns-default build}
1212
:uber {:extra-paths ["test"]}
13-
:clj-kondo {:extra-deps {clj-kondo/clj-kondo {:mvn/version "2025.02.20"}}
13+
:clj-kondo {:extra-deps {clj-kondo/clj-kondo {:mvn/version "2025.06.05"}}
1414
:main-opts ["-m" "clj-kondo.main"]}
1515
:test {:extra-paths ["test"]
1616
:extra-deps {io.github.cognitect-labs/test-runner
1717
{:git/tag "v0.5.1" :git/sha "dfb30dd"}
18-
babashka/process {:mvn/version "0.5.22"}}
18+
babashka/process {:mvn/version "0.6.23"}}
1919
:exec-fn cognitect.test-runner.api/test}
2020
:outdated {:deps {org.slf4j/slf4j-simple {:mvn/version "2.0.17"} ;; to rid ourselves of logger warnings
2121
com.github.liquidz/antq {:mvn/version "2.11.1276"}}

test-hello-world/deps.edn

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,5 @@
11
{:paths ["src"]
2-
:deps {org.clojure/clojure {:mvn/version "1.12.0"}
2+
:deps {org.clojure/clojure {:mvn/version "1.12.1"}
33
lib1/lib1 {:local/root "lib1/target/lib1.jar"}
44
lib2/lib2 {:local/root "lib2/target/lib2.jar"}
55
clj-easy/graal-build-time {:local/root "target/graal-build-time.jar"}}

test-single-segment/deps.edn

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,4 @@
1-
{:deps {org.clojure/clojure {:mvn/version "1.12.0"}
1+
{:deps {org.clojure/clojure {:mvn/version "1.12.1"}
22
org.clj-commons/digest {:mvn/version "1.4.100"}
33
clj-easy/graal-build-time {:local/root "target/graal-build-time.jar"}}
44
:aliases {:build {:deps {clj-easy/build-helper {:local/root "../build-helper"}}

0 commit comments

Comments
 (0)