fix: lint warnings and tests

src/main/frontend/modules/file/core.cljs

@@ -30,7 +30,6 @@
 (defn transform-content
   [{:block/keys [collapsed? format pre-block? unordered content heading-level left page parent properties]} level {:keys [heading-to-list?]}]
   (let [content (or content "")
-        first-block? (= left page)
         pre-block? (or pre-block?
                        (and (= page parent left) ; first block
                             (= :markdown format)

src/main/frontend/util.cljc

@@ -387,16 +387,6 @@
      ([animate?]
       (scroll-to (app-scroll-container-node) 0 animate?))))
 
-#?(:cljs
-   (defn url-encode
-     [string]
-     (some-> string str (js/encodeURIComponent) (.replace "+" "%20"))))
-
-#?(:cljs
-   (defn url-decode
-     [string]
-     (some-> string str (js/decodeURIComponent))))
-
 #?(:cljs
    (defn link?
      [node]
@@ -889,6 +879,16 @@
          (when (gp-util/uuid-string? block-id)
            (first (array-seq (js/document.getElementsByClassName block-id))))))))
 
+#?(:cljs
+   (defn url-encode
+     [string]
+     (some-> string str (js/encodeURIComponent) (.replace "+" "%20"))))
+
+#?(:cljs
+   (defn url-decode
+     [string]
+     (some-> string str (js/decodeURIComponent))))
+
 (def windows-reserved-chars #"[:\\*\\?\"<>|]+")
 
 #?(:cljs
@@ -939,17 +939,18 @@
        (string/replace page #"/" "%2A")
        page))))
 
-(defn file-name-sanity
-  "Sanitize page-name for file name (strict), for file writing."
-  [page-name]
-  (some-> page-name
-          page-name-sanity
-          ;; for android filesystem compatiblity
-          (string/replace #"[\\#|%]+" url-encode)
-          ;; Windows reserved path characters
-          (string/replace windows-reserved-chars url-encode)
-          (string/replace #"/" url-encode)
-          (string/replace "*" "%2A")))
+#?(:cljs
+   (defn file-name-sanity
+     "Sanitize page-name for file name (strict), for file writing."
+     [page-name]
+     (some-> page-name
+             page-name-sanity
+             ;; for android filesystem compatiblity
+             (string/replace #"[\\#|%]+" url-encode)
+             ;; Windows reserved path characters
+             (string/replace windows-reserved-chars url-encode)
+             (string/replace #"/" url-encode)
+             (string/replace "*" "%2A"))))
 
 (defn page-name-sanity-lc
   "Sanitize the query string for a page name (mandate for :block/name)"

src/test/frontend/handler/repo_test.cljs

@@ -159,7 +159,7 @@
                   (into {})))
           "Counts for blocks with common block attributes")
 
-      (is (= #{"term" "setting" "book" "templates" "Query" "Query/table" "page"}
+      (is (= #{"term" "setting" "book" "Templates" "Query" "Query/table" "page"}
              (->> (d/q '[:find (pull ?n [*]) :where [?b :block/namespace ?n]] db)
                   (map (comp :block/original-name first))
                   set))