fix: retract :block/path-ref-pages too

This commit is contained in:
Tienson Qin
2021-04-03 21:48:07 +08:00
parent 789b932a89
commit a265421025

View File

@@ -310,6 +310,7 @@
after-blocks)]
[after-blocks @block-and-children-content @last-child-end-pos]))
;; FIXME: children' :block/path-ref-pages
(defn compute-retract-refs
"Computes old references to be retracted."
[eid {:block/keys [ref-pages ref-blocks]} old-ref-pages old-ref-blocks]
@@ -507,7 +508,8 @@
[:db/retract id :block/scheduled]
[:db/retract id :block/scheduled-ast]
[:db/retract id :block/marker]
[:db/retract id :block/repeated?]]))
[:db/retract id :block/repeated?]
[:db/retract id :block/path-ref-pages]]))
[after-blocks block-children-content new-end-pos] (rebuild-after-blocks-indent-outdent repo file block (:end-pos (:block/meta block)) end-pos indent-left?)
retract-refs (compute-retract-refs (:db/id e) (first blocks) ref-pages ref-blocks)
page-id (:db/id page)
@@ -698,7 +700,8 @@
[:db/retract id :block/scheduled]
[:db/retract id :block/scheduled-ast]
[:db/retract id :block/marker]
[:db/retract id :block/repeated?]]))
[:db/retract id :block/repeated?]
[:db/retract id :block/path-ref-pages]]))
transact-fn (fn []
(repo-handler/transact-react-and-alter-file!
repo