Browse Source

Update valid dicts lint and delete an unused key

Gabriel Horner 2 years ago
parent
commit
f8780a910c
2 changed files with 9 additions and 1 deletions
  1. 9 0
      scripts/src/logseq/tasks/lang.clj
  2. 0 1
      src/resources/dicts/en.edn

+ 9 - 0
scripts/src/logseq/tasks/lang.clj

@@ -115,6 +115,14 @@
    "(t title" []
    "(t title" []
    "(t subtitle" [:asset/physical-delete]})
    "(t subtitle" [:asset/physical-delete]})
 
 
+(defn- whiteboard-dicts
+  []
+  (->> (shell {:out :string}
+              "grep -E -oh" "\\bt\\('[^ ']+" "-r" "tldraw/apps/tldraw-logseq/src/components")
+       :out
+       string/split-lines
+       (map #(keyword (subs % 3)))))
+
 (defn- validate-ui-translations-are-used
 (defn- validate-ui-translations-are-used
   "This validation checks to see that translations done by (t ...) are equal to
   "This validation checks to see that translations done by (t ...) are equal to
   the ones defined for the default :en lang. This catches translations that have
   the ones defined for the default :en lang. This catches translations that have
@@ -129,6 +137,7 @@
                           string/split-lines
                           string/split-lines
                           (map #(keyword (subs % 4)))
                           (map #(keyword (subs % 4)))
                           (concat (mapcat val manual-ui-dicts))
                           (concat (mapcat val manual-ui-dicts))
+                          (concat (whiteboard-dicts))
                           set)
                           set)
         expected-dicts (set (remove #(re-find #"^(command|shortcut)\." (str (namespace %)))
         expected-dicts (set (remove #(re-find #"^(command|shortcut)\." (str (namespace %)))
                                     (keys (:en (get-dicts)))))
                                     (keys (:en (get-dicts)))))

+ 0 - 1
src/resources/dicts/en.edn

@@ -324,7 +324,6 @@
  :whiteboard/references "References"
  :whiteboard/references "References"
  :whiteboard/link-to-any-page-or-block "Link to any page or block"
  :whiteboard/link-to-any-page-or-block "Link to any page or block"
  :whiteboard/start-typing-to-search "Start typing to search..."
  :whiteboard/start-typing-to-search "Start typing to search..."
- :whiteboard/new-block-colon "New block:"
  :whiteboard/new-block-no-colon "New block"
  :whiteboard/new-block-no-colon "New block"
  :whiteboard/new-block "New block:"
  :whiteboard/new-block "New block:"
  :whiteboard/new-page "New page:"
  :whiteboard/new-page "New page:"