clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-05-04 02:46:45 +00:00
Code Issues Packages Projects Releases Wiki Activity

chore: db file linter can have exceptions

Browse Source
This commit is contained in:
Gabriel Horner
2024-09-23 09:53:31 -04:00
parent b2e69dd846
commit a3f8315e01
1 changed files with 13 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
scripts/src/logseq/tasks/dev/db_and_file_graphs.clj
View File

@@ -94,20 +94,28 @@
(map str)
(into [;; e.g. block/properties :title
"block/properties :"
;; "block/name"
"block/name"
;; anything org mode
"org"
"pre-block"
;; TODO: rename split-namespace?
;; "namespace"
;; "db/get-page"
"db/get-page"
"/page-name-sanity-lc"]))
;; For now use the whole code line. If this is too brittle can make this smaller
allowed-exceptions #{"{:block/name page-title})))"
"(when-not (db/get-page journal)"
"(let [value (if datetime? (tc/to-long d) (db/get-page journal))]"}
res (apply shell {:out :string :continue true}
"git grep -E" (str "(" (string/join "|" file-concepts) ")")
db-graph-paths)]
(when-not (and (= 1 (:exit res)) (= "" (:out res)))
db-graph-paths)
invalid-lines (when (= 0 (:exit res))
(remove #(->> (string/split % #":\s+") second string/trim (contains? allowed-exceptions))
(string/split-lines (:out res))))]
(when (> (:exit res) 1) (System/exit 1))
(when (and (= 0 (:exit res)) (seq invalid-lines))
(println "The following files should not have contained file specific concepts:")
(println (:out res))
(println (string/join "\n" invalid-lines))
(System/exit 1))))
(defn- validate-db-concepts-not-in-file