dasemu/Synapse
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fase B1: chain journal pages with previous/next graph links

Browse Source 
Adds :logseq.property.journal/previous and /next (built-in, hidden,
single-cardinality node refs) and maintains them in
logseq.outliner.page/create whenever a new journal page is created.
Filling a gap between two already-linked journals re-links both
neighbors around the new page instead of just appending. A migration
backfills the chain across all existing journal pages ordered by day.
This commit is contained in:
Darío Sevilla
2026-08-26 19:02:44 +02:00
parent db7f1fac7d
commit c50511a7b5
5 changed files with 116 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
deps/outliner/src/logseq/outliner/page.cljs vendored
View File

@@ -299,6 +299,40 @@
[page])
(remove nil?))))
(defn- journal-neighbors
"Returns [prev-entity next-entity], the closest existing journal pages
immediately before/after journal-day (by day order, not necessarily
adjacent calendar days)."
[db journal-day]
(let [entries (->> (d/datoms db :avet :block/journal-day)
(map (fn [datom] [(:v datom) (:e datom)]))
(remove (fn [[day]] (= day journal-day))))
prev (->> entries (filter #(< (first %) journal-day)) (sort-by first) last)
next (->> entries (filter #(> (first %) journal-day)) (sort-by first) first)]
[(some->> prev second (d/entity db))
(some->> next second (d/entity db))]))
(defn- journal-relink-tx
"Tx-data linking a newly created journal page (identified by its uuid) to
its nearest existing journal neighbors by day. Re-links around the new
page when it fills a gap between two already-linked journals."
[db page-uuid journal-day]
(let [[prev next] (journal-neighbors db journal-day)
page-ref [:block/uuid page-uuid]]
(concat
(when prev
(cond-> [[:db/add page-ref :logseq.property.journal/previous (:db/id prev)]
[:db/add (:db/id prev) :logseq.property.journal/next page-ref]]
(:logseq.property.journal/next prev)
(conj [:db/retract (:db/id prev) :logseq.property.journal/next
(:db/id (:logseq.property.journal/next prev))])))
(when next
(cond-> [[:db/add page-ref :logseq.property.journal/next (:db/id next)]
[:db/add (:db/id next) :logseq.property.journal/previous page-ref]]
(:logseq.property.journal/previous next)
(conj [:db/retract (:db/id next) :logseq.property.journal/previous
(:db/id (:logseq.property.journal/previous next))]))))))
(defn ^:large-vars/cleanup-todo ^:api create
"Pure function without side effects"
[db title*
@@ -403,10 +437,13 @@
(:block/uuid page))
page (assoc page :block/uuid page-uuid)
page-txs (build-page-tx db properties page (select-keys options [:class? :tags :class-ident-namespace]))
journal-link-txs (when-let [journal-day (:block/journal-day page)]
(journal-relink-tx db page-uuid journal-day))
txs (concat
;; transact doesn't support entities
(remove de/entity? parents')
page-txs)
page-txs
journal-link-txs)
tx-meta (cond-> (outliner-tx-meta/ensure-outliner-ops
{:persist-op? persist-op?
:outliner-op :create-page}

45
deps/outliner/test/logseq/outliner/page_test.cljs vendored
View File

@@ -204,3 +204,48 @@
"Journal title is not split into a month namespace page")
(is (nil? (ldb/get-page @conn "18"))
"Journal title is not split into a day namespace page")))
(deftest create-journal-links-previous-and-next
(let [conn (db-test/create-conn)
[_ day1-uuid] (outliner-page/create! conn "Dec 16th, 2024" {})
[_ day2-uuid] (outliner-page/create! conn "Dec 17th, 2024" {})
day1 (d/entity @conn [:block/uuid day1-uuid])
day2 (d/entity @conn [:block/uuid day2-uuid])]
(is (nil? (:logseq.property.journal/previous day1))
"First journal has no previous")
(is (= day2-uuid (:block/uuid (:logseq.property.journal/next day1)))
"First journal links forward to the second")
(is (= day1-uuid (:block/uuid (:logseq.property.journal/previous day2)))
"Second journal links back to the first")
(is (nil? (:logseq.property.journal/next day2))
"Second journal has no next yet")))
(deftest create-journal-fills-gap-relinks-neighbors
(let [conn (db-test/create-conn)
[_ day1-uuid] (outliner-page/create! conn "Dec 16th, 2024" {})
[_ day3-uuid] (outliner-page/create! conn "Dec 18th, 2024" {})
[_ day2-uuid] (outliner-page/create! conn "Dec 17th, 2024" {})
day1 (d/entity @conn [:block/uuid day1-uuid])
day2 (d/entity @conn [:block/uuid day2-uuid])
day3 (d/entity @conn [:block/uuid day3-uuid])]
(is (= day2-uuid (:block/uuid (:logseq.property.journal/next day1)))
"Day1 now points to the newly created day2, not day3")
(is (= day1-uuid (:block/uuid (:logseq.property.journal/previous day2)))
"Day2 points back to day1")
(is (= day3-uuid (:block/uuid (:logseq.property.journal/next day2)))
"Day2 points forward to day3")
(is (= day2-uuid (:block/uuid (:logseq.property.journal/previous day3)))
"Day3 now points back to day2, not day1")))
(deftest create-namespace-page-under-contents
(let [conn (db-test/create-conn)
[_ child-uuid] (outliner-page/create! conn (str common-config/contents-page-name "/rama") {:split-namespace? true})
child-page (d/entity @conn [:block/uuid child-uuid])
contents (ldb/get-contents-page @conn)
library (ldb/get-built-in-page @conn common-config/library-page-name)]
(is (= "rama" (:block/title child-page)))
(is (= (:db/id contents) (:db/id (:block/parent child-page)))
"Contents can be used as an explicit parent root, alongside Library")
(is (empty? (:block/_parent library))
"Library is untouched when a page is nested under Contents instead")
(is (ldb/contents? contents))))