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

enhance(toggle): fix t o doesn't collapse all blocks && add Exppand all and Collapse all menu item for toggling block && auto expand children of the top block if collapse(fix #3222) && basic support for toggling by clicking the left bar of the block (see https://discuss.logseq.com/t/collapse-all-child-bullets-by-clicking-the-alignment-line/1937/3)

Browse Source
This commit is contained in:
shidenggui
2021-12-23 20:04:50 +08:00
committed by Tienson Qin
parent b6af68189f
commit 9e117d2618
3 changed files with 77 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1336,6 +1336,8 @@
(defn- bullet-on-click
[e block uuid]
(if (-> block :block/properties :collapsed)
(editor-handler/expand-all! uuid (:block/level block)))
(if (gobj/get e "shiftKey")
(do
(state/sidebar-add-block!
@@ -1346,6 +1348,14 @@
(util/stop e))
(route-handler/redirect-to-page! uuid)))
(defn- block-left-border-on-click
[e children]
(if (< (.-offsetX (.-nativeEvent e)) 10)
(let [block-ids (map :block/uuid children)]
(if (some editor-handler/collapsable? block-ids)
(dorun (map editor-handler/collapse-block! block-ids))
(dorun (map editor-handler/expand-block! block-ids))))))
(rum/defc block-children < rum/reactive
[config children collapsed? *ref-collapsed?]
(let [ref? (:ref? config)
@@ -1355,12 +1365,13 @@
(seq children)
(not collapsed?))
(let [doc-mode? (state/sub :document/mode?)]
[:div.block-children {:style {:margin-left (if doc-mode? 18
(if (or (mobile-util/native-android?)
(mobile-util/native-iphone?))
22
29))
:display (if collapsed? "none" "")}}
[:div.block-children {:style {:margin-left (if doc-mode? 18
(if (or (mobile-util/native-android?)
(mobile-util/native-iphone?))
22
29))
:display (if collapsed? "none" "")}
:on-click (fn [event] (block-left-border-on-click event children))}
(for [child children]
(when (map? child)
(let [child (dissoc child :block/meta)