fix: lint

.carve/ignore

@@ -23,7 +23,7 @@ frontend.extensions.age-encryption/decrypt-with-user-passphrase
 ;; Lazily loaded
 frontend.extensions.excalidraw/draw
 ;; Lazily loaded
-frontend.extensions.tldraw/draw
+frontend.extensions.tldraw/tldraw-app
 ;; Referenced in commented TODO
 frontend.extensions.pdf.utils/get-page-bounding
 ;; For repl

src/main/frontend/db/model.cljs

@@ -1697,20 +1697,20 @@
        (when-let [path (:file/path (db-utils/entity (:db/id file)))]
          (gp-config/whiteboard? path))))))
 
-;; fixme: caching?
-(defn get-all-whiteboard-tldrs
-  "Returns a vector of all whiteboard tldrs."
-  [repo]
-  (let [result (d/q
-                '[:find [(pull ?page [* {:block/_page [:block/properties]}]) ...]
-                  :where
-                  [?page :block/name]
-                  [?page :block/whiteboard? true]]
-                (conn/get-db repo))
-        tldrs (mapv (fn [row] (let [blocks (:block/_page row)
-                                    page (dissoc row :block/_page)]
-                                (whiteboard-clj->tldr page blocks))) result)]
-    tldrs))
+;; ;; fixme: caching?
+;; (defn get-all-whiteboard-tldrs
+;;   "Returns a vector of all whiteboard tldrs."
+;;   [repo]
+;;   (let [result (d/q
+;;                 '[:find [(pull ?page [* {:block/_page [:block/properties]}]) ...]
+;;                   :where
+;;                   [?page :block/name]
+;;                   [?page :block/whiteboard? true]]
+;;                 (conn/get-db repo))
+;;         tldrs (mapv (fn [row] (let [blocks (:block/_page row)
+;;                                     page (dissoc row :block/_page)]
+;;                                 (whiteboard-clj->tldr page blocks))) result)]
+;;     tldrs))
 
 (defn get-all-whiteboard-names
   [repo]

src/main/frontend/extensions/tldraw.cljs

@@ -11,6 +11,7 @@
 
 (def tldraw (r/adapt-class (gobj/get TldrawLogseq "App")))
 
+#_:clj-kondo/ignore
 (rum/defcs tldraw-app < rum/reactive
   (rum/local false ::view-mode?)
   [state name]

src/main/frontend/handler/draw.cljs

@@ -8,7 +8,6 @@
             [frontend.state :as state]
             [frontend.util :as util]
             [logseq.graph-parser.config :as gp-config]
-            [frontend.fs.protocol :as protocol]
             [promesa.core :as p]))
 
 (defn create-draws-directory!
@@ -20,15 +19,6 @@
        (fn [_result] nil)
        (fn [_error] nil)))))
 
-(defn ls-draws-directory!
-  [repo]
-  (when repo
-    (p/let [repo-dir (config/get-repo-dir repo)
-            fs (fs/get-fs repo-dir)
-            dir (str repo (str "/" gp-config/default-draw-directory))
-            files (protocol/readdir fs dir)]
-      files)))
-
 (defn save-draw!
   [file data]
   (let [path file
@@ -64,11 +54,6 @@
    "{\n  \"type\": \"excalidraw\",\n  \"version\": 2,\n  \"source\": \"%s\",\n  \"elements\": [],\n  \"appState\": {\n    \"viewBackgroundColor\": \"#FFF\",\n    \"gridSize\": null\n  }\n}"
    config/website))
 
-(defonce default-tldraw-content
-  (util/format
-   ""
-   config/website))
-
 (defn- file-name
   [ext]
   (str (date/get-date-time-string-2) ext))
@@ -89,12 +74,3 @@
     (p/let [_ (create-draw-with-default-content path default-excalidraw-content)]
       (println "excalidraw file created, " path))
     text))
-
-(defn initialize-tldraw-file
-  []
-  (let [file (file-name ".tldr")
-        path (str gp-config/default-draw-directory "/" file)
-        text (util/format "[[%s]]" path)]
-    (p/let [_ (create-draw-with-default-content path default-tldraw-content)]
-      (println "tldraw file created, " path))
-    text))

src/main/frontend/state.cljs

@@ -1702,10 +1702,10 @@
   []
   (second (first (:ui/whiteboards @state))))
 
-(defn get-tldraw-api
-  []
-  (some-> (get-current-whiteboard)
-          (gobj/get "api")))
+;; (defn get-tldraw-api
+;;   []
+;;   (some-> (get-current-whiteboard)
+;;           (gobj/get "api")))
 
 (defn unlinked-dir?
   [dir]