clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-05-29 15:09:41 +00:00
Code Issues Packages Projects Releases Wiki Activity

Code clean

Browse Source
This commit is contained in:
Tienson Qin
2023-12-28 23:24:22 +08:00
parent 84851a5639
commit e8b5a93a7e
1 changed files with 7 additions and 97 deletions
Download Patch File Download Diff File Expand all files Collapse all files

104
src/main/frontend/modules/file/core.cljs
View File

@@ -1,104 +1,14 @@
(ns frontend.modules.file.core
"Convert block trees to content"
(:require [clojure.string :as string]
[frontend.db :as db]
(:require [frontend.worker.file.core :as worker-file]
[frontend.state :as state]
[frontend.handler.file-based.property.util :as property-util]))
[frontend.db :as db]))
(defn- indented-block-content
[content spaces-tabs]
(let [lines (string/split-lines content)]
(string/join (str "\n" spaces-tabs) lines)))
(defn- content-with-collapsed-state
"Only accept nake content (without any indentation)"
[_repo format content collapsed?]
(cond
collapsed?
(property-util/insert-property format content :collapsed true)
;; Don't check properties. Collapsed is an internal state log as property in file, but not counted into properties
(false? collapsed?)
(property-util/remove-property format :collapsed content)
:else
content))
(defn transform-content
[{:block/keys [collapsed? format pre-block? content left page parent properties] :as b} level {:keys [heading-to-list?]}]
(let [repo (state/get-current-repo)
block-ref-not-saved? (and (seq (:block/_refs (db/entity (:db/id b))))
(not (string/includes? content (str (:block/uuid b)))))
heading (:heading properties)
markdown? (= :markdown format)
content (or content "")
pre-block? (or pre-block?
(and (= page parent left) ; first block
markdown?
(string/includes? (first (string/split-lines content)) ":: ")))
content (cond
pre-block?
(let [content (string/trim content)]
(str content "\n"))
:else
(let [
;; first block is a heading, Markdown users prefer to remove the `-` before the content
markdown-top-heading? (and markdown?
(= parent page left)
heading)
[prefix spaces-tabs]
(cond
(= format :org)
[(->>
(repeat level "*")
(apply str)) ""]
markdown-top-heading?
["" ""]
:else
(let [level (if (and heading-to-list? heading)
(if (> heading 1)
(dec heading)
heading)
level)
spaces-tabs (->>
(repeat (dec level) (state/get-export-bullet-indentation))
(apply str))]
[(str spaces-tabs "-") (str spaces-tabs " ")]))
content (if heading-to-list?
(-> (string/replace content #"^\s?#+\s+" "")
(string/replace #"^\s?#+\s?$" ""))
content)
content (content-with-collapsed-state repo format content collapsed?)
new-content (indented-block-content (string/trim content) spaces-tabs)
sep (if (or markdown-top-heading?
(string/blank? new-content))
""
" ")]
(str prefix sep new-content)))
content (if block-ref-not-saved?
(property-util/insert-property format content :id (str (:block/uuid b)))
content)]
content))
(defn- tree->file-content-aux
[tree {:keys [init-level] :as opts}]
(let [block-contents (transient [])]
(loop [[f & r] tree level init-level]
(if (nil? f)
(->> block-contents persistent! flatten (remove nil?))
(let [page? (nil? (:block/page f))
content (if page? nil (transform-content f level opts))
new-content
(if-let [children (seq (:block/children f))]
(cons content (tree->file-content-aux children {:init-level (inc level)}))
[content])]
(conj! block-contents new-content)
(recur r level))))))
;; TODO: remove this file and move export related code to worker
(defn tree->file-content
[tree opts]
(->> (tree->file-content-aux tree opts) (string/join "\n")))
(when-let [repo (state/get-current-repo)]
(let [db (db/get-db repo)
context {:export-bullet-indentation (state/get-export-bullet-indentation)}]
(worker-file/tree->file-content repo db tree opts context))))