File tree Expand file tree Collapse file tree 1 file changed +3
-4
lines changed
src/main/frontend/handler Expand file tree Collapse file tree 1 file changed +3
-4
lines changed Original file line number Diff line number Diff line change 77
77
(= type order-list-type)))
78
78
prev-block-fn #(some-> (db/entity (:db/id %)) ldb/get-left-sibling)
79
79
prev-block (prev-block-fn block)]
80
- (letfn [(page-fn? [b] (some-> b :block/name some?))
81
- (order-sibling-list [b]
80
+ (letfn [(order-sibling-list [b]
82
81
(lazy-seq
83
- (when (and ( not ( page-fn? b)) ( order-block-fn? b) )
82
+ (when (order-block-fn? b)
84
83
(cons b (order-sibling-list (prev-block-fn b))))))
85
84
(order-parent-list [b]
86
85
(lazy-seq
87
- (when (and ( not ( page-fn? b)) ( order-block-fn? b) )
86
+ (when (order-block-fn? b)
88
87
(cons b (order-parent-list (db-model/get-block-parent (:block/uuid b)))))))]
89
88
(let [idx (if prev-block
90
89
(count (order-sibling-list block)) 1 )
You can’t perform that action at this time.
0 commit comments