chore: test useSSL true

Author: rafaeldelboni

.clj-kondo/taoensso/encore/config.edn

@@ -1,4 +1,5 @@
 {:hooks
  {:analyze-call
   {taoensso.encore/defalias    taoensso.encore/defalias
-   taoensso.encore/defn-cached taoensso.encore/defn-cached}}}
+   taoensso.encore/defn-cached taoensso.encore/defn-cached
+   taoensso.encore/defonce     taoensso.encore/defonce}}}

.clj-kondo/taoensso/encore/taoensso/encore.clj

@@ -2,18 +2,15 @@
   "I don't personally use clj-kondo, so these hooks are
   kindly authored and maintained by contributors.
   PRs very welcome! - Peter Taoussanis"
+  (:refer-clojure :exclude [defonce])
   (:require
    [clj-kondo.hooks-api :as hooks]))
 
 (defn defalias
   [{:keys [node]}]
   (let [[sym-raw src-raw] (rest (:children node))
-        src (if src-raw src-raw sym-raw)
-        sym
-        (if src-raw
-          sym-raw
-          (symbol (name (hooks/sexpr src))))]
-
+        src (or src-raw sym-raw)
+        sym (if src-raw sym-raw (symbol (name (hooks/sexpr src))))]
     {:node
      (with-meta
        (hooks/list-node
@@ -23,7 +20,7 @@
        (meta src))}))
 
 (defn defn-cached
-  [{:keys [node] :as x}]
+  [{:keys [node]}]
   (let [[sym _opts binding-vec & body] (rest (:children node))]
     {:node
      (hooks/list-node
@@ -35,3 +32,20 @@
              (hooks/token-node 'fn)
              binding-vec
              body))))}))
+
+(defn defonce
+  [{:keys [node]}]
+  ;; args = [sym doc-string? attr-map? init-expr]
+  (let [[sym & args] (rest (:children node))
+        [doc-string args]    (if (and (hooks/string-node? (first args)) (next args)) [(hooks/sexpr (first args)) (next  args)] [nil        args])
+        [attr-map init-expr] (if (and (hooks/map-node?    (first args)) (next args)) [(hooks/sexpr (first args)) (fnext args)] [nil (first args)])
+
+        attr-map (if doc-string (assoc attr-map :doc doc-string) attr-map)
+        sym+meta (if attr-map (with-meta sym attr-map) sym)
+        rewritten
+        (hooks/list-node
+          [(hooks/token-node 'clojure.core/defonce)
+           sym+meta
+           init-expr])]
+
+    {:node rewritten}))

resources/config.edn

@@ -8,7 +8,8 @@
             :username #or [#env DB_USER "postgres"]
             :password #or [#env DB_PASS "postgres"]
             :host #or [#env DB_HOST "localhost"]
-            :port #or [#env DB_PORT 5432]}
+            :port #or [#env DB_PORT 5432]
+            :useSSL true}
 
  :db-docs {:dir #or [#env DB_DOCS_DIR "target"]
            :url #or [#env DB_DOCS_URL "https://github.com/clj-codes/docs.extractor/releases/download"]