refactor: remove web

src/main/frontend/format.cljs

@@ -0,0 +1,68 @@
+(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))
+
+(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|WAIT|WAITING|CANCELED|CANCELLED|STARTED|IN-PROGRESS)?\s?")
+
+(def bare-marker-pattern
+  #"^(NOW|LATER|TODO|DOING|DONE|WAIT|WAITING|CANCELED|CANCELLED|STARTED|IN-PROGRESS){1}\s+")