mirror of
https://github.com/logseq/logseq.git
synced 2026-05-04 10:56:32 +00:00
1f0e22275d
- Added to CI now that it passes - Added no-doc for docstrings that don't add any more than what's in the ns name or for ones where I didn't know the ns that well
56 lines
1.6 KiB
Clojure
56 lines
1.6 KiB
Clojure
(ns frontend.format
|
|
"Main ns for providing common operations on file content like conversion to html
|
|
and edn. Can handle org, markdown and adoc formats"
|
|
(:require [frontend.format.mldoc :refer [->MldocMode] :as mldoc]
|
|
[frontend.format.adoc :refer [->AdocMode]]
|
|
[frontend.format.protocol :as protocol]
|
|
[logseq.graph-parser.mldoc :as gp-mldoc]
|
|
[logseq.graph-parser.util :as gp-util]
|
|
[clojure.string :as string]))
|
|
|
|
(defonce mldoc-record (->MldocMode))
|
|
(defonce adoc-record (->AdocMode))
|
|
|
|
(defn get-format-record
|
|
[format]
|
|
(case (gp-util/normalize-format format)
|
|
:org
|
|
mldoc-record
|
|
:markdown
|
|
mldoc-record
|
|
:adoc
|
|
adoc-record
|
|
nil))
|
|
|
|
;; html
|
|
(defn get-default-config
|
|
([format]
|
|
(gp-mldoc/default-config format))
|
|
([format options]
|
|
(gp-mldoc/default-config format options)))
|
|
|
|
(defn to-html
|
|
([content format]
|
|
(to-html content format (get-default-config format)))
|
|
([content format config]
|
|
(let [config (if config config (get-default-config format))]
|
|
(if (string/blank? content)
|
|
""
|
|
(if-let [record (get-format-record format)]
|
|
(protocol/toHtml record content config gp-mldoc/default-references)
|
|
content)))))
|
|
|
|
(defn to-edn
|
|
([content format]
|
|
(to-edn content format (get-default-config format)))
|
|
([content format config]
|
|
(let [config (or config (get-default-config format))]
|
|
(if-let [record (get-format-record format)]
|
|
(protocol/toEdn record content config)
|
|
nil))))
|
|
|
|
(defn loaded?
|
|
[format]
|
|
(when-let [record (get-format-record format)]
|
|
(protocol/loaded? record)))
|