clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-04-24 22:25:01 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix: add block on new page doesn't add tags

Browse Source
This commit is contained in:
Gabriel Horner
2025-10-20 16:23:46 -04:00
parent 58c520d17f
commit 6412179189
1 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
deps/cli/src/logseq/cli/common/mcp/tools.cljs vendored
View File

@@ -136,6 +136,10 @@
(group-by #(get-in % [:data :page-id])
(filter #(= "block" (:entityType %)) operations))
new-pages (filter #(and (= "page" (:entityType %)) (= "add" (:operation %))) operations)
add-block (fn add-block [op]
(cond-> {:block/title (get-in op [:data :title])}
(get-in op [:data :tags])
(assoc :build/tags (mapv #(get-ident class-idents %) (get-in op [:data :tags])))))
pages-and-blocks
(into (mapv (fn [op]
(cond-> {:page (if-let [journal-day (date-time-util/journal-title->int
@@ -146,8 +150,7 @@
{:block/title (get-in op [:data :title])})}
(some->> (:id op) (get blocks-by-page))
(assoc :blocks
(mapv #(hash-map :block/title (get-in % [:data :title]))
(get blocks-by-page (:id op))))))
(mapv add-block (get blocks-by-page (:id op))))))
new-pages)
;; existing pages
(map (fn [[page-id ops]]
@@ -156,9 +159,7 @@
{:page {:block/uuid (uuid page-id)}
:blocks (mapv (fn [op]
(if (= "add" (:operation op))
(cond-> {:block/title (get-in op [:data :title])}
(get-in op [:data :tags])
(assoc :build/tags (mapv #(get-ident class-idents %) (get-in op [:data :tags]))))
(add-block op)
;; edit
(cond-> {:block/uuid (uuid (:id op))}
(get-in op [:data :title])