mirror of
https://github.com/logseq/logseq.git
synced 2026-05-04 10:56:32 +00:00
73 lines
1.9 KiB
Clojure
73 lines
1.9 KiB
Clojure
(ns frontend.format
|
|
(:require [frontend.format.mldoc :refer [->MldocMode] :as mldoc]
|
|
[frontend.format.adoc :refer [->AdocMode]]
|
|
[frontend.format.protocol :as protocol]
|
|
[clojure.string :as string]))
|
|
|
|
(defonce mldoc-record (->MldocMode))
|
|
(defonce adoc-record (->AdocMode))
|
|
|
|
(defn normalize
|
|
[format]
|
|
(case (keyword format)
|
|
:md :markdown
|
|
:asciidoc :adoc
|
|
;; default
|
|
(keyword format)))
|
|
|
|
(defn get-format
|
|
[file]
|
|
(when file
|
|
(normalize (keyword (string/lower-case (last (string/split file #"\.")))))))
|
|
|
|
(defn get-format-record
|
|
[format]
|
|
(case (normalize format)
|
|
:org
|
|
mldoc-record
|
|
:markdown
|
|
mldoc-record
|
|
:adoc
|
|
adoc-record
|
|
nil))
|
|
|
|
;; html
|
|
(defn get-default-config
|
|
([format]
|
|
(mldoc/default-config format))
|
|
([format heading-to-list?]
|
|
(mldoc/default-config format heading-to-list?))
|
|
([format heading-to-list? exporting-keep-properties?]
|
|
(mldoc/default-config format heading-to-list? exporting-keep-properties?)))
|
|
|
|
(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)
|
|
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)))
|
|
|
|
(def marker-pattern
|
|
#"^(NOW|LATER|TODO|DOING|DONE|WAITING|WAIT|CANCELED|CANCELLED|STARTED|IN-PROGRESS)?\s?")
|
|
|
|
(def bare-marker-pattern
|
|
#"^(NOW|LATER|TODO|DOING|DONE|WAITING|WAIT|CANCELED|CANCELLED|STARTED|IN-PROGRESS){1}\s+")
|