clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-06-02 19:31:24 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix: heading level

Browse Source
This commit is contained in:
Tienson Qin
2023-08-01 20:39:01 +08:00
parent 2913af2d96
commit 84f09e01dc
1 changed files with 11 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1905,9 +1905,10 @@
(declare block-content)
(defn build-block-title
[config {:block/keys [title marker pre-block? properties level]
[config {:block/keys [title marker pre-block? properties]
:as t}]
(let [config (assoc config :block t)
level (:level config)
slide? (boolean (:slide? config))
block-ref? (:block-ref? config)
block-type (or (keyword
@@ -1930,7 +1931,6 @@
(<= heading-level 6)
heading-level)
(pu/lookup properties :heading))
;; FIXME: level is missing for db-based graphs
heading (if (true? heading) (min (inc level) 6) heading)
elem (if heading
(keyword (str "h" heading
@@ -2742,7 +2742,10 @@
(assoc :query-result (atom nil))
true
(block-handler/attach-order-list-state block)))
(block-handler/attach-order-list-state block)
(nil? (:level config))
(assoc config :level 0)))
(defn- build-block [config block* {:keys [navigating-block navigated?]}]
(let [block (if (or (and (:custom-query? config)
@@ -2764,9 +2767,10 @@
navigating-block (rum/react *navigating-block)
navigated? (and (not= (:block/uuid block*) navigating-block) navigating-block)
block (build-block config* block* {:navigating-block navigating-block :navigated? navigated?})
{:block/keys [uuid pre-block? refs level content properties]} block
{:block/keys [uuid pre-block? refs content properties]} block
{:block.temp/keys [top?]} block
config (build-config config* block {:navigated? navigated? :navigating-block navigating-block})
level (:level config)
blocks-container-id (:blocks-container-id config)
heading? (pu/lookup properties :heading)
*control-show? (get state ::control-show?)
@@ -2873,8 +2877,9 @@
(block-right-menu config block edit?))]
(when-not (:hide-children? config)
(let [children (db/sort-by-left (:block/_parent block) block)]
(block-children config block children collapsed?)))
(let [children (db/sort-by-left (:block/_parent block) block)
config' (update config :level inc)]
(block-children config' block children collapsed?)))
(dnd-separator-wrapper block block-id slide? false false)]))