greatbody
/
logseq
mirror of https://github.com/logseq/logseq
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

script fixes 

- validation script for new :block/type and examples properties graph
  now passes
- schema markdown links
pull/10438/head
Gabriel Horner 2023-09-25 11:22:19 -04:00
parent f3c7d50da9
commit 0ce19a5219
2 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scripts/src/logseq/tasks/db_graph/create_graph_with_schema_org.cljs
View File

@ -40,8 +40,8 @@
;; Update refs to renamed classes ;; Update refs to renamed classes
regex (re-pattern (str "\\[\\[(" (string/join "|" (keys renamed-classes)) ")\\]\\]")) regex (re-pattern (str "\\[\\[(" (string/join "|" (keys renamed-classes)) ")\\]\\]"))
desc (string/replace desc* regex #(str "[[" (get renamed-classes (second %)) "]]"))] desc (string/replace desc* regex #(str "[[" (get renamed-classes (second %)) "]]"))]
;; Fix links to schema website docs ;; Fix markdown and html links to schema website docs
(string/replace desc #"\(/docs" "(https://schema.org/docs"))) (string/replace desc #"(\(|\")/docs" "$1https://schema.org/docs")))
(defn- strip-schema-prefix [s] (defn- strip-schema-prefix [s]
(string/replace-first s "schema:" "")) (string/replace-first s "schema:" ""))

14
scripts/src/logseq/tasks/db_graph/validate_client_db.cljs
View File

@ -20,7 +20,7 @@
[:block/uuid :uuid] [:block/uuid :uuid]
[:block/name {:optional true} :string] [:block/name {:optional true} :string]
[:block/original-name {:optional true} :string] [:block/original-name {:optional true} :string]
[:block/type {:optional true} :any] ;;TODO [:block/type {:optional true} [:enum "property" "class" "object" "whiteboard"]]
[:block/content {:optional true} :string] [:block/content {:optional true} :string]
[:block/properties {:optional true} [:block/properties {:optional true}
[:map-of :uuid [:or [:map-of :uuid [:or
@ -30,7 +30,9 @@
:uuid :uuid
:map :map
[:vector [:or :keyword :uuid]] [:vector [:or :keyword :uuid]]
[:set :uuid]]]] [:set :uuid]
[:set :string]
[:set :int]]]]
[:block/created-at {:optional true} :int] [:block/created-at {:optional true} :int]
[:block/updated-at {:optional true} :int] [:block/updated-at {:optional true} :int]
;; refs ;; refs
@ -79,8 +81,9 @@
client-db-schema) client-db-schema)
client-db-schema)] client-db-schema)]
(if-let [errors (->> ent-maps (if-let [errors (->> ent-maps
(m/explain schema) vals
:errors)] (m/explain schema)
:errors)]
(do (do
(println "Found" (count errors) "errors:") (println "Found" (count errors) "errors:")
(pprint/pprint errors) (pprint/pprint errors)
@ -93,8 +96,7 @@
(->> datoms (->> datoms
(reduce (fn [acc m] (reduce (fn [acc m]
(update acc (:e m) assoc (:a m) (:v m))) (update acc (:e m) assoc (:a m) (:v m)))
{}) {})))
vals))
(def spec (def spec
"Options spec" "Options spec"