mirror of
https://github.com/logseq/logseq.git
synced 2026-06-01 19:01:22 +00:00
chore: debug
This commit is contained in:
Tienson Qin
164
deps/db/src/logseq/db/common/view.cljs
vendored
164
deps/db/src/logseq/db/common/view.cljs
vendored
@@ -489,82 +489,88 @@
|
||||
[db view-id {:keys [journals? _view-for-id view-feature-type input query-entity-ids filters sorting]
|
||||
:as opts}]
|
||||
;; TODO: create a view for journals maybe?
|
||||
(cond
|
||||
journals?
|
||||
(let [ids (->> (ldb/get-latest-journals db)
|
||||
(mapv :db/id))]
|
||||
{:count (count ids)
|
||||
:data ids})
|
||||
:else
|
||||
(let [view (d/entity db view-id)
|
||||
group-by-property (:logseq.property.view/group-by-property view)
|
||||
list-view? (= :logseq.property.view/type.list (:db/ident (:logseq.property.view/type view)))
|
||||
group-by-property-ident (or (:db/ident group-by-property)
|
||||
(when (and list-view? (nil? group-by-property))
|
||||
:block/page)
|
||||
(when (contains? #{:linked-references :unlinked-references} view-feature-type)
|
||||
:block/page))
|
||||
group-by-closed-values? (some? (:property/closed-values group-by-property))
|
||||
ref-property? (= (:db/valueType group-by-property) :db.type/ref)
|
||||
filters (or (:logseq.property.table/filters view) filters)
|
||||
feat-type (or view-feature-type (:logseq.property.view/feature-type view))
|
||||
query? (= feat-type :query-result)
|
||||
entities-result (if query?
|
||||
(keep #(d/entity db %) query-entity-ids)
|
||||
(get-view-entities db view-id opts))
|
||||
entities (if (= feat-type :linked-references)
|
||||
(:ref-blocks entities-result)
|
||||
entities-result)
|
||||
sorting (let [sorting* (:logseq.property.table/sorting view)]
|
||||
(if (or (= sorting* :logseq.property/empty-placeholder) (empty? sorting*))
|
||||
(or sorting [{:id :block/updated-at, :asc? false}])
|
||||
sorting*))
|
||||
filtered-entities (if (or (seq filters) (not (string/blank? input)))
|
||||
(filter (fn [row] (row-matched? db row filters input)) entities)
|
||||
entities)
|
||||
group-by-page? (= group-by-property-ident :block/page)
|
||||
result (if group-by-property-ident
|
||||
(->> filtered-entities
|
||||
(group-by group-by-property-ident)
|
||||
(seq)
|
||||
(sort-by (fn [[by-value _]]
|
||||
(cond
|
||||
group-by-page?
|
||||
(:block/updated-at by-value)
|
||||
group-by-closed-values?
|
||||
(:block/order by-value)
|
||||
ref-property?
|
||||
(db-property/property-value-content by-value)
|
||||
:else
|
||||
by-value))
|
||||
(if group-by-page? #(compare %2 %1) compare)))
|
||||
(sort-entities db sorting filtered-entities))
|
||||
data' (if group-by-property-ident
|
||||
(map
|
||||
(fn [[by-value entities]]
|
||||
(let [by-value' (if (de/entity? by-value)
|
||||
(select-keys by-value [:db/id :block/uuid :block/title :block/name :logseq.property/value :logseq.property/icon :block/tags])
|
||||
by-value)
|
||||
pages? (not (some :block/page entities))
|
||||
group (if (and list-view? (not pages?))
|
||||
(let [parent-groups (->> entities
|
||||
(group-by :block/parent)
|
||||
(sort-by (fn [[parent _]] (:block/order parent))))]
|
||||
(map
|
||||
(fn [[_parent blocks]]
|
||||
[(:block/uuid (first blocks))
|
||||
(map (fn [b]
|
||||
{:db/id (:db/id b)
|
||||
:block/parent (:block/uuid (:block/parent b))})
|
||||
(ldb/sort-by-order blocks))])
|
||||
parent-groups))
|
||||
(->> (sort-entities db sorting entities)
|
||||
(map :db/id)))]
|
||||
[by-value' group]))
|
||||
result)
|
||||
(map :db/id result))]
|
||||
(cond->
|
||||
{:count (count filtered-entities)
|
||||
:data (distinct data')}
|
||||
(= feat-type :linked-references)
|
||||
(assoc :ref-pages-count (:ref-pages-count entities-result))))))
|
||||
(try
|
||||
(cond
|
||||
journals?
|
||||
(let [ids (->> (ldb/get-latest-journals db)
|
||||
(mapv :db/id))]
|
||||
{:count (count ids)
|
||||
:data ids})
|
||||
:else
|
||||
(let [view (d/entity db view-id)
|
||||
group-by-property (:logseq.property.view/group-by-property view)
|
||||
list-view? (= :logseq.property.view/type.list (:db/ident (:logseq.property.view/type view)))
|
||||
group-by-property-ident (or (:db/ident group-by-property)
|
||||
(when (and list-view? (nil? group-by-property))
|
||||
:block/page)
|
||||
(when (contains? #{:linked-references :unlinked-references} view-feature-type)
|
||||
:block/page))
|
||||
group-by-closed-values? (some? (:property/closed-values group-by-property))
|
||||
ref-property? (= (:db/valueType group-by-property) :db.type/ref)
|
||||
filters (or (:logseq.property.table/filters view) filters)
|
||||
feat-type (or view-feature-type (:logseq.property.view/feature-type view))
|
||||
query? (= feat-type :query-result)
|
||||
entities-result (if query?
|
||||
(keep #(d/entity db %) query-entity-ids)
|
||||
(get-view-entities db view-id opts))
|
||||
entities (if (= feat-type :linked-references)
|
||||
(:ref-blocks entities-result)
|
||||
entities-result)
|
||||
sorting (let [sorting* (:logseq.property.table/sorting view)]
|
||||
(if (or (= sorting* :logseq.property/empty-placeholder) (empty? sorting*))
|
||||
(or sorting [{:id :block/updated-at, :asc? false}])
|
||||
sorting*))
|
||||
_ (prn :debug :sorting sorting)
|
||||
filtered-entities (if (or (seq filters) (not (string/blank? input)))
|
||||
(filter (fn [row] (row-matched? db row filters input)) entities)
|
||||
entities)
|
||||
group-by-page? (= group-by-property-ident :block/page)
|
||||
result (if group-by-property-ident
|
||||
(->> filtered-entities
|
||||
(group-by group-by-property-ident)
|
||||
(seq)
|
||||
(sort-by (fn [[by-value _]]
|
||||
(cond
|
||||
group-by-page?
|
||||
(:block/updated-at by-value)
|
||||
group-by-closed-values?
|
||||
(:block/order by-value)
|
||||
ref-property?
|
||||
(db-property/property-value-content by-value)
|
||||
:else
|
||||
by-value))
|
||||
(if group-by-page? #(compare %2 %1) compare)))
|
||||
(sort-entities db sorting filtered-entities))
|
||||
data' (if group-by-property-ident
|
||||
(map
|
||||
(fn [[by-value entities]]
|
||||
(let [by-value' (if (de/entity? by-value)
|
||||
(select-keys by-value [:db/id :block/uuid :block/title :block/name :logseq.property/value :logseq.property/icon :block/tags])
|
||||
by-value)
|
||||
pages? (not (some :block/page entities))
|
||||
group (if (and list-view? (not pages?))
|
||||
(let [parent-groups (->> entities
|
||||
(group-by :block/parent)
|
||||
(sort-by (fn [[parent _]] (:block/order parent))))]
|
||||
(map
|
||||
(fn [[_parent blocks]]
|
||||
[(:block/uuid (first blocks))
|
||||
(map (fn [b]
|
||||
{:db/id (:db/id b)
|
||||
:block/parent (:block/uuid (:block/parent b))})
|
||||
(ldb/sort-by-order blocks))])
|
||||
parent-groups))
|
||||
(->> (sort-entities db sorting entities)
|
||||
(map :db/id)))]
|
||||
[by-value' group]))
|
||||
result)
|
||||
(map :db/id result))
|
||||
data (cond->
|
||||
{:count (count filtered-entities)
|
||||
:data (distinct data')}
|
||||
(= feat-type :linked-references)
|
||||
(assoc :ref-pages-count (:ref-pages-count entities-result)))]
|
||||
(prn :debug :get-view-data :view-id view-id :data data)
|
||||
data))
|
||||
(catch :default e
|
||||
(js/console.error e))))
|
||||
|
||||
Reference in New Issue
Block a user