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

enhance(ux): more friendly letters for the ordered list marker

Browse Source
This commit is contained in:
charlie
2023-04-28 14:26:37 +08:00
parent a7bc14dd21
commit 23a0c53808
3 changed files with 37 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -308,10 +308,16 @@
(cons b (order-parent-list (db-model/get-block-parent (:block/uuid b)))))))]
(let [idx (if prev-block
(count (order-sibling-list block)) 1)
order-parents-count (count (order-parent-list block))]
(if (or (zero? order-parents-count)
(odd? order-parents-count))
idx (nth (seq "abcdefghijklmnopqrstuvwxyz") (mod (dec idx) 26)))))))
order-parents-count (dec (count (order-parent-list block)))
delta (if (neg? order-parents-count) 0 (mod order-parents-count 3))]
(cond
(zero? delta) idx
(= delta 1)
(some-> (util/convert-to-letters idx) util/safe-lower-case)
:else
(util/convert-to-roman idx))))))
(defn attach-order-list-state
[config block]