fix: can't insert template

This commit is contained in:
Tienson Qin
2023-05-11 14:53:38 +08:00
committed by Andelf
parent ded76644e6
commit 2a81e634a5
3 changed files with 20 additions and 5 deletions

View File

@@ -16,8 +16,7 @@
[logseq.graph-parser.util :as gp-util]
[cljs.spec.alpha :as s]))
(s/def ::block-map (s/keys :req [:db/id]
:opt [:block/page :block/left :block/parent]))
(s/def ::block-map (s/keys :opt [:db/id :block/uuid :block/page :block/left :block/parent]))
(s/def ::block-map-or-entity (s/or :entity de/entity?
:map ::block-map))
@@ -511,6 +510,13 @@
(dissoc :db/id)))))
blocks)))
(defn- get-target-block
[target-block]
(if (:db/id target-block)
(db/pull (:db/id target-block))
(when (:block/uuid target-block)
(db/pull [:block/uuid (:block/uuid target-block)]))))
(defn insert-blocks
"Insert blocks as children (or siblings) of target-node.
Args:
@@ -528,7 +534,7 @@
[blocks target-block {:keys [sibling? keep-uuid? outliner-op replace-empty-target?] :as opts}]
{:pre [(seq blocks)
(s/valid? ::block-map-or-entity target-block)]}
(let [target-block' (db/pull (:db/id target-block))
(let [target-block' (get-target-block target-block)
_ (assert (some? target-block') (str "Invalid target: " target-block))
sibling? (if (page-block? target-block') false sibling?)
move? (contains? #{:move-blocks :move-blocks-up-down :indent-outdent-blocks} outliner-op)
@@ -714,7 +720,9 @@
[blocks target-block {:keys [sibling? outliner-op]}]
[:pre [(seq blocks)
(s/valid? ::block-map-or-entity target-block)]]
(let [non-consecutive-blocks? (seq (db-model/get-non-consecutive-blocks blocks))
(let [target-block (get-target-block target-block)
_ (assert (some? target-block) (str "Invalid target: " target-block))
non-consecutive-blocks? (seq (db-model/get-non-consecutive-blocks blocks))
original-position? (move-to-original-position? blocks target-block sibling? non-consecutive-blocks?)]
(when (and (not (contains? (set (map :db/id blocks)) (:db/id target-block)))
(not original-position?))

View File

@@ -3,6 +3,7 @@
#?(:cljs (:require-macros [frontend.modules.outliner.datascript]))
#?(:cljs (:require [datascript.core :as d]
[frontend.db.conn :as conn]
[frontend.db :as db]
[frontend.modules.outliner.pipeline :as pipelines]
[frontend.modules.editor.undo-redo :as undo-redo]
[frontend.state :as state]
@@ -73,6 +74,12 @@
rs (d/transact! conn txs (assoc opts :outliner/transact? true))
tx-id (get-tx-id rs)]
(swap! state/state assoc-in [:history/tx->editor-cursor tx-id] before-editor-cursor)
;; update the current edit block to include full information
(when-let [block (state/get-edit-block)]
(when (and (:block/uuid block) (not (:db/id block)))
(state/set-state! :editor/block (db/pull [:block/uuid (:block/uuid block)]))))
(when true ; TODO: add debug flag
(let [eids (distinct (mapv first (:tx-data rs)))
left&parent-list (->>

View File

@@ -703,7 +703,7 @@
(gdom/getElement (state/get-editing-block-dom-id)))
(.getAttribute "blockid")
(db-model/get-block-by-uuid)))]
(get_block (:db/id block) opts))))
(get_block (:block/uuid block) opts))))
(def ^:export get_previous_sibling_block
(fn [block-uuid]