clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-04-25 14:44:53 +00:00
Code Issues Packages Projects Releases Wiki Activity

only copy-as/export level<N blocks for text export

Browse Source
This commit is contained in:
rcmerci
2023-03-13 16:54:36 +08:00
committed by Tienson Qin
parent 2ca70373af
commit 5efbd125de
5 changed files with 68 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/main/frontend/handler/export/text.cljs
View File

@@ -415,16 +415,22 @@
(defn- export-helper
[content format options]
(let [remove-options (set (:remove-options options))]
(let [remove-options (set (:remove-options options))
other-options (:other-options options)]
(binding [*state* (merge *state*
{:export-options
{:indent-style (or (:indent-style options) "dashes")
:remove-emphasis? (contains? remove-options :emphasis)
:remove-page-ref-brackets? (contains? remove-options :page-ref)
:remove-tags? (contains? remove-options :tag)}})]
:remove-tags? (contains? remove-options :tag)
:keep-only-level<=N (:keep-only-level<=N other-options)}})]
(let [ast (gp-mldoc/->edn content (gp-mldoc/default-config format))
ast (mapv common/remove-block-ast-pos ast)
ast (removev common/Properties-block-ast? ast)
keep-level<=n (get-in *state* [:export-options :keep-only-level<=N])
ast (if (= :all keep-level<=n)
ast
(common/keep-only-level<=n ast keep-level<=n))
ast* (common/replace-block&page-reference&embed ast)
ast** (if (= "no-indent" (get-in *state* [:export-options :indent-style]))
(mapv common/replace-Heading-with-Paragraph ast*)