clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-05-03 02:16:30 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix: verticle slides

Browse Source
This commit is contained in:
Tienson Qin
2022-01-16 17:09:50 +08:00
parent 21f2237227
commit 1a219c3beb
5 changed files with 43 additions and 69 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
src/main/frontend/components/block.cljs
View File

@@ -2842,33 +2842,6 @@
[config col]
(map #(markup-element-cp config %) col))
(defn build-slide-sections
([blocks config]
(build-slide-sections blocks config nil))
([blocks config build-block-fn]
(when (seq blocks)
(let [blocks (map #(dissoc % :block/children) blocks)
first-block-level (:block/level (first blocks))
sections (reduce
(fn [acc block]
(let [block (dissoc block :block/meta)
level (:block/level block)
config (assoc config :block/uuid (:block/uuid block))
block-cp (if build-block-fn
(build-block-fn config block)
(rum/with-key
(block-container config block)
(str "slide-" (:block/uuid block))))]
(if (= first-block-level level)
;; new slide
(conj acc [[block block-cp]])
(update acc (dec (count acc))
(fn [sections]
(conj sections [block block-cp]))))))
[]
blocks)]
sections))))
(defn- block-list
[config blocks]
(for [[idx item] (medley/indexed blocks)]