Add a clj-kondo hook so lsp lints 'images' and 'images->' correctly

.clj-kondo/config.edn

@@ -0,0 +1,3 @@
+{:hooks {:analyze-call {image-search.core/images   hooks.images/images
+                        image-search.core/images-> hooks.images/images}}}
+

.clj-kondo/hooks/images.clj

@@ -0,0 +1,30 @@
+(ns hooks.images
+  (:require [clj-kondo.hooks-api :as api]))
+
+(defn images
+  [{:keys [node]}]
+  (let [forms (rest (:children node))
+        new-node  (api/list-node
+                    (list*
+                      (api/token-node '->)
+                      [{:a 1}]
+                      forms
+                      ))]
+    {:node new-node}))
+
+(comment
+  (images  (in :Keywords "Ceratosoma trilobatum")
+           (image-paths)
+           (write "/tmp/ceratasoma.txt"))
+  (list* (api/token-node '->)
+         (list* {:a 1})
+         (in :Keywords "Ceratosoma trilobatum")
+         (image-paths)
+         (write "/tmp/ceratasoma.txt")
+         )
+  (list*
+    (api/token-node '->)
+    [{:a 1}]
+    "forms"
+    )
+  )

.gitignore

@@ -11,3 +11,4 @@ pom.xml.asc
 .hg/
 .#*
 .tmux
+.clj-kondo/.cache

src/image_search/command_line.clj

@@ -1,9 +1,9 @@
 (ns image-search.command-line
   (:refer-clojure :exclude [or and])
-  (:require [image-search.core :refer [open all-images]]
-            [image-lib.search  :refer [eq in]]
+  (:require [clojure.tools.cli :refer [parse-opts]]
             [image-lib.helper  :refer [image-paths]]
-            [clojure.tools.cli  :refer :all])
+            [image-lib.search  :refer [eq in]]
+            [image-search.core :refer [open all-images]])
   (:gen-class))
 
 (def cli-options
@@ -41,7 +41,7 @@
 (defn -main
   "Searches for image details from a mongo database"
   [& args]
-  (let [{:keys [options arguments errors summary]} (parse-opts args cli-options)
+  (let [{:keys [options summary]} (parse-opts args cli-options)
         output-function (cond
                           (:count options)
                           print-count

src/image_search/core.clj

@@ -1,10 +1,7 @@
 (ns image-search.core
   (:refer-clojure :exclude [or and])
   (:require [monger                [collection :as mc] [core :as mg]]
-            [clojure.string        :as str]
-            [clojure.java.shell    :refer [sh]]
             [image-lib.preferences :refer [preference]]
-            [image-lib.helper      :refer [image-path]]
             [image-lib.images      :refer [open-images]])
   (:gen-class))
 

src/image_search/play.clj

@@ -13,6 +13,7 @@
                                            db
                                            fullsize
                                            image-collection
+                                           images->
                                            images
                                            keyword-collection
                                            large
@@ -38,7 +39,7 @@
   (map :Project (find-images db image-collection "ISO-Speed-Ratings" "640"))
 
   ;; In the case of :Project, it is probably more useful to turn the
-  ;; sequence into a set:
+  ;; sequence into a set (careful, project names may not be unique):
   (set (map :Project (find-images db image-collection "ISO-Speed-Ratings" "640")))
 
   ;; We can also use the eq ge lt etc functions to filter a list of images
@@ -86,11 +87,12 @@
   (-> all-images
     (or
       (in :Model "phone")
-      (and (in :Model "Nik")
+      (and
+        (in :Model "Nik")
         (eq :Year 2016)))
     count)
 
-  ;; images can be used instead of -> all-images
+  ;; images or images-> can be used instead of -> all-images
   (images
     (and (in :Model "Nik")
       (eq :ISO-Speed-Ratings 640))
@@ -100,7 +102,7 @@
   ;; emptied first, up to you to rm it, if thats what you want. This example also uses
   ;; paths, which just outputs the path of each pic
 
-  (images
+  (images->
     (in :Model "phone")
     (image-paths)
     (write "/tmp/phone-pics"))