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

feat(opml): support opml import

Browse Source
This commit is contained in:
rcmerci
2021-06-15 21:09:18 +08:00
committed by Tienson Qin
parent c1e2b370f4
commit b13572547d
5 changed files with 119 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1901,7 +1901,7 @@
(state/set-editor-show-block-search! false)
(cursor/move-cursor-forward input 2)))
(defn- get-block-tree-insert-pos-after-target
(defn get-block-tree-insert-pos-after-target
"return [target-block sibling? delete-editing-block? editing-block]"
([target-block-id sibling?]
(get-block-tree-insert-pos-after-target target-block-id sibling? nil))
@@ -2000,7 +2000,7 @@
(assoc m :block/file (select-keys file [:db/id]))
m)))))
(defn- paste-block-vec-tree-at-target
(defn paste-block-vec-tree-at-target
([tree exclude-properties]
(paste-block-vec-tree-at-target tree exclude-properties nil nil nil))
([tree exclude-properties content-update-fn]
@@ -2639,6 +2639,14 @@
(when-let [page (state/get-current-page)]
(db/get-page-format page)))
(defn blocks->tree-by-level
[blocks]
(let [min-level (apply min (mapv :block/level blocks))
prefix-level (if (> min-level 1) (- min-level 1) 0)]
(->> blocks
(mapv #(assoc % :level (- (:block/level %) prefix-level)))
(blocks-vec->tree))))
(defn- paste-text-parseable
[format text]
(let [tree (->>