fix: deps and frontend lints

.carve/config.edn

@@ -1,8 +1,7 @@
 {;; Only lint production namespaces as most dev
  ;; namespaces are unused
  :paths ["src/main" "src/electron" "src/test"]
- :api-namespaces [
-                  ;; Ignore b/c too many false positives
+ :api-namespaces [;; Ignore b/c too many false positives
                   frontend.db
                   ;; Used for debugging
                   frontend.db.debug

deps/outliner/src/logseq/outliner/core.cljs

@@ -685,7 +685,7 @@
               (ldb/sort-page-random-blocks db blocks))
             page-blocks)))
 
-(defn delete-block
+(defn ^:api delete-block
   [_repo conn txs-state node {:keys [_date-formatter]}]
   (otree/-del node txs-state conn)
   @txs-state)

deps/publishing/src/logseq/publishing/db.cljs

@@ -101,6 +101,17 @@
         db)
        (map first)))
 
+(defn- hl-type-area-fn
+  [db]
+  (if (entity-plus/db-based-graph? db)
+    (fn [datom]
+      (and (= :logseq.property/hl-type (:a datom))
+           (= (keyword (:v datom)) :area)))
+    (fn [datom]
+      (and
+       (= :block/properties (:a datom))
+       (= (keyword (get (:v datom) :hl-type)) :area)))))
+
 (defn- get-assets
   [db datoms]
   (let [pull (fn [eid db]
@@ -111,14 +122,7 @@
                    :block/page
                    :db/id
                    (pull db)))
-        hl-type-area? (if (entity-plus/db-based-graph? db)
-                        (fn [datom]
-                          (and (= :logseq.property/hl-type (:a datom))
-                               (= (keyword (:v datom)) :area)))
-                        (fn [datom]
-                          (and
-                           (= :block/properties (:a datom))
-                           (= (keyword (get (:v datom) :hl-type)) :area))))]
+        hl-type-area? (hl-type-area-fn db)]
     (->>
      (keep
       (fn [datom]

src/main/frontend/components/block.cljs

@@ -2963,10 +2963,9 @@
         custom-query? (boolean (:custom-query? config*))
         ref-or-custom-query? (or ref? custom-query?)
         *navigating-block (get container-state ::navigating-block)
-        {:block/keys [uuid pre-block? raw-content content properties]} block
+        {:block/keys [uuid pre-block? raw-content content]} block
         config (build-config config* block {:navigated? navigated? :navigating-block navigating-block})
         level (:level config)
-        heading? (pu/lookup properties :logseq.property/heading)
         *control-show? (get container-state ::control-show?)
         db-collapsed? (util/collapsed? block)
         collapsed? (cond

src/main/frontend/components/cmdk_list_item.cljs

@@ -44,7 +44,7 @@
                         title highlighted on-highlight on-highlight-dep header on-click hls-page?
                         hoverable compact rounded on-mouse-enter component-opts source-page] :as _props
                  :or {hoverable true rounded true}}
-                {:keys [app-config] :as context}]
+                {:keys [app-config]}]
   (let [ref (rum/create-ref)
         highlight-query (partial highlight-query* app-config query)
         [hover? set-hover?] (rum/use-state false)]

src/main/frontend/db_worker.cljs

@@ -8,7 +8,7 @@
             [clojure.string :as string]
             [datascript.core :as d]
             [datascript.storage :refer [IStorage]]
-            [frontend.worker.async-util :include-macros true :refer [<?] :as async-util]
+            [frontend.worker.async-util :include-macros true :as async-util]
             [frontend.worker.db-listener :as db-listener]
             [frontend.worker.db-metadata :as worker-db-metadata]
             [frontend.worker.export :as worker-export]