added suggestions

src/clj/auto_ap/graphql.clj

@@ -591,23 +591,6 @@
         node))
     m))
 
-(defn <-graphql [m]
-  (walk/postwalk
-    (fn [node]
-      (cond
-
-        (keyword? node)
-        (kebab node)
-
-        :else
-        node))
-    m))
-
-
-
-
-
-
 (defn get-user [context args _]
   (assert-admin (:id context))
 
@@ -638,12 +621,6 @@
     (for [[account-id account-name total] result]
       {:account {:id account-id :name account-name} :total total})))
 
-(defn categorize [x]
-  (cond (<= x 0) :due
-        (<= x 30 ) :due-30
-        (<= x 60 ) :due-60
-        :else :due-later))
-
 (defn get-invoice-stats [_ {:keys [client_id] } _]
   (let [result (cond-> {:query {:find ['?name '(sum ?outstanding-balance) '(sum ?total)]
                                 :in ['$]