|
@@ -27,14 +27,14 @@
|
|
|
|
|
|
(and (= move-to :nested)
|
|
(and (= move-to :nested)
|
|
;; current block is already the first child of target-block
|
|
;; current block is already the first child of target-block
|
|
- (and (= (:db/id (:block/left current-block))
|
|
|
|
- (:db/id (:block/parent current-block))
|
|
|
|
- (:db/id target-block))))
|
|
|
|
|
|
+ (= (:db/id (:block/left current-block))
|
|
|
|
+ (:db/id (:block/parent current-block))
|
|
|
|
+ (:db/id target-block)))
|
|
|
|
|
|
(and (= move-to :sibling)
|
|
(and (= move-to :sibling)
|
|
;; current block is already the next sibling of target-block
|
|
;; current block is already the next sibling of target-block
|
|
- (and (= (:db/id (:block/left current-block))
|
|
|
|
- (:db/id target-block))))))))
|
|
|
|
|
|
+ (= (:db/id (:block/left current-block))
|
|
|
|
+ (:db/id target-block)))))))
|
|
|
|
|
|
(defn move-block
|
|
(defn move-block
|
|
"There can be two possible situations:
|
|
"There can be two possible situations:
|