clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-05-04 10:56:32 +00:00
Code Issues Packages Projects Releases Wiki Activity

wip: handle built-in properties

Browse Source
This commit is contained in:
Tienson Qin
2023-08-01 19:03:16 +08:00
parent 3333f890ea
commit dbcd082f08
18 changed files with 206 additions and 113 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/main/frontend/handler/block.cljs
View File

@@ -16,7 +16,8 @@
[frontend.config :as config]
[frontend.db.listener :as db-listener]
[frontend.util.drawer :as drawer]
[frontend.handler.file-based.property.util :as property-util]))
[frontend.handler.file-based.property.util :as property-util]
[frontend.handler.property.util :as pu]))
;; Fns
@@ -268,7 +269,10 @@
(defn get-idx-of-order-list-block
[block order-list-type]
(let [order-block-fn? #(some-> % :block/properties :logseq.order-list-type (= order-list-type))
(let [order-block-fn? (fn [block]
(let [properties (:block/properties block)
type (pu/lookup properties :logseq.order-list-type)]
(= type order-list-type)))
prev-block-fn #(some->> (:db/id %) (db-model/get-prev-sibling (state/get-current-repo)))
prev-block (prev-block-fn block)]
(letfn [(page-fn? [b] (some-> b :block/name some?))
@@ -295,7 +299,9 @@
(defn attach-order-list-state
[config block]
(let [own-order-list-type (some-> block :block/properties :logseq.order-list-type str string/lower-case)
(let [properties (:block/properties block)
type (pu/lookup properties :logseq.order-list-type)
own-order-list-type (some-> type str string/lower-case)
own-order-list-index (some->> own-order-list-type (get-idx-of-order-list-block block))]
(assoc config :own-order-list-type own-order-list-type
:own-order-list-index own-order-list-index