clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-04-27 23:54:55 +00:00
Code Issues Packages Projects Releases Wiki Activity

Lint a good chunk of src/main/frontend

Browse Source 
Left some TODOs to discuss with others and others for me to finish
This commit is contained in:
Gabriel Horner
2022-01-11 17:34:54 -05:00
parent 3ded9ee1ff
commit 7497d8b396
37 changed files with 325 additions and 364 deletions
Download Patch File Download Diff File Expand all files Collapse all files

53
src/main/frontend/db/query_dsl.cljs
View File

@@ -311,23 +311,23 @@
(keyword (string/lower-case (name order)))
:desc)
k (-> (string/lower-case (name k))
(string/replace "_" "-"))]
(let [get-value (cond
(= k "created-at")
:block/created-at
(string/replace "_" "-"))
get-value (cond
(= k "created-at")
:block/created-at
(= k "updated-at")
:block/updated-at
(= k "updated-at")
:block/updated-at
:else
#(get-in % [:block/properties k]))
comp (if (= order :desc) >= <=)]
(reset! sort-by
(fn [result]
(->> result
flatten
(clojure.core/sort-by get-value comp))))
nil))
:else
#(get-in % [:block/properties k]))
comp (if (= order :desc) >= <=)]
(reset! sort-by
(fn [result]
(->> result
flatten
(clojure.core/sort-by get-value comp))))
nil)
(= 'page fe)
(let [page-name (text/page-ref-un-brackets! (str (first (rest e))))
@@ -362,18 +362,17 @@
[true]]))
(= 'page-tags fe)
(do
(let [tags (if (coll? (first (rest e)))
(first (rest e))
(rest e))
tags (map (comp string/lower-case name) tags)]
(when (seq tags)
(let [tags (set (map (comp text/page-ref-un-brackets! string/lower-case name) tags))]
(let [sym-1 (uniq-symbol counter "?t")
sym-2 (uniq-symbol counter "?tag")]
[['?p :block/tags sym-1]
[sym-1 :block/name sym-2]
[(list 'contains? tags sym-2)]])))))
(let [tags (if (coll? (first (rest e)))
(first (rest e))
(rest e))
tags (map (comp string/lower-case name) tags)]
(when (seq tags)
(let [tags (set (map (comp text/page-ref-un-brackets! string/lower-case name) tags))
sym-1 (uniq-symbol counter "?t")
sym-2 (uniq-symbol counter "?tag")]
[['?p :block/tags sym-1]
[sym-1 :block/name sym-2]
[(list 'contains? tags sym-2)]])))
(= 'all-page-tags fe)
[['?e :block/tags '?p]]