Remove last use of :block/unordered

This was coming directly from the block's ast so it was harder to trace
pull/9919/head
Gabriel Horner 2023-07-20 14:54:57 -04:00 committed by Gabriel Horner
parent 2b90b0462a
commit ba53bf297c
4 changed files with 9 additions and 10 deletions

View File

@ -560,12 +560,12 @@
:level (if unordered? (:level block) 1)) :level (if unordered? (:level block) 1))
block) block)
block (cond-> block (cond->
(-> (assoc block (-> (assoc block
:uuid id :uuid id
:refs ref-pages-in-properties :refs ref-pages-in-properties
:format format :format format
:meta pos-meta) :meta pos-meta)
(dissoc :size)) (dissoc :size :unordered))
(or (seq (:properties properties)) markdown-heading?) (or (seq (:properties properties)) markdown-heading?)
(assoc :properties (with-heading-property (:properties properties) markdown-heading? (:size block)) (assoc :properties (with-heading-property (:properties properties) markdown-heading? (:size block))
:properties-text-values (:properties-text-values properties) :properties-text-values (:properties-text-values properties)

View File

@ -153,7 +153,7 @@
;; only increase over time as the docs graph rarely has deletions ;; only increase over time as the docs graph rarely has deletions
(testing "Counts" (testing "Counts"
(is (= 303 (count files)) "Correct file count") (is (= 303 (count files)) "Correct file count")
(is (= 69280 (count (d/datoms db :eavt))) "Correct datoms count") (is (= 63632 (count (d/datoms db :eavt))) "Correct datoms count")
(is (= 5866 (is (= 5866
(ffirst (ffirst

View File

@ -32,7 +32,7 @@
content)) content))
(defn transform-content (defn transform-content
[{:block/keys [collapsed? format pre-block? unordered content left page parent properties] :as b} level {:keys [heading-to-list?]}] [{:block/keys [collapsed? format pre-block? content left page parent properties] :as b} level {:keys [heading-to-list?]}]
(let [block-ref-not-saved? (and (seq (:block/_refs (db/entity (:db/id b)))) (let [block-ref-not-saved? (and (seq (:block/_refs (db/entity (:db/id b))))
(not (string/includes? content (str (:block/uuid b))))) (not (string/includes? content (str (:block/uuid b)))))
heading (:heading properties) heading (:heading properties)
@ -50,7 +50,6 @@
:else :else
(let [markdown-top-heading? (and markdown? (let [markdown-top-heading? (and markdown?
(= parent page) (= parent page)
(not unordered)
heading) heading)
[prefix spaces-tabs] [prefix spaces-tabs]
(cond (cond

View File

@ -98,7 +98,7 @@
;; only increase over time as the docs graph rarely has deletions ;; only increase over time as the docs graph rarely has deletions
(testing "Counts" (testing "Counts"
(is (= 211 (count files)) "Correct file count") (is (= 211 (count files)) "Correct file count")
(is (= 42200 (count (d/datoms db :eavt))) "Correct datoms count") (is (= 38704 (count (d/datoms db :eavt))) "Correct datoms count")
(is (= 3600 (is (= 3600
(ffirst (ffirst