|
@@ -336,6 +336,14 @@
|
|
|
e))))
|
|
e))))
|
|
|
(take 30)))
|
|
(take 30)))
|
|
|
|
|
|
|
|
|
|
+(defn- get-all-user-datoms
|
|
|
|
|
+ [db]
|
|
|
|
|
+ (when (d/entity db :logseq.property.user/email)
|
|
|
|
|
+ (mapcat
|
|
|
|
|
+ (fn [d]
|
|
|
|
|
+ (d/datoms db :eavt (:e d)))
|
|
|
|
|
+ (d/datoms db :avet :logseq.property.user/email))))
|
|
|
|
|
+
|
|
|
(defn get-initial-data
|
|
(defn get-initial-data
|
|
|
"Returns current database schema and initial data.
|
|
"Returns current database schema and initial data.
|
|
|
NOTE: This fn is called by DB and file graphs"
|
|
NOTE: This fn is called by DB and file graphs"
|
|
@@ -360,6 +368,7 @@
|
|
|
(get-structured-datoms db))
|
|
(get-structured-datoms db))
|
|
|
recent-updated-pages (let [pages (get-recent-updated-pages db)]
|
|
recent-updated-pages (let [pages (get-recent-updated-pages db)]
|
|
|
(mapcat (fn [p] (d/datoms db :eavt (:db/id p))) pages))
|
|
(mapcat (fn [p] (d/datoms db :eavt (:db/id p))) pages))
|
|
|
|
|
+ user-datoms (get-all-user-datoms db)
|
|
|
pages-datoms (if db-graph?
|
|
pages-datoms (if db-graph?
|
|
|
(let [contents-id (get-first-page-by-title db "Contents")
|
|
(let [contents-id (get-first-page-by-title db "Contents")
|
|
|
views-id (get-first-page-by-title db common-config/views-page-name)]
|
|
views-id (get-first-page-by-title db common-config/views-page-name)]
|
|
@@ -371,6 +380,7 @@
|
|
|
data (distinct
|
|
data (distinct
|
|
|
(concat idents
|
|
(concat idents
|
|
|
structured-datoms
|
|
structured-datoms
|
|
|
|
|
+ user-datoms
|
|
|
favorites
|
|
favorites
|
|
|
recent-updated-pages
|
|
recent-updated-pages
|
|
|
views
|
|
views
|