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

pull/1604/head
Tienson Qin 2021-04-03 21:48:07 +08:00
parent 789b932a89
commit a265421025
1 changed files with 5 additions and 2 deletions

View File

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