exported opml add title tag

src/main/frontend/format/adoc.cljs

@@ -29,5 +29,5 @@
      ok-handler))
   (exportMarkdown [this content config references]
     (throw "not support"))
-  (exportOPML [this content config]
+  (exportOPML [this content config title]
     (throw "not support")))

src/main/frontend/format/mldoc.cljs

@@ -62,8 +62,8 @@
                           (or references default-references)))
 
 (defn parse-export-opml
-  [content config]
-  (parseAndExportOPML content config))
+  [content config title]
+  (parseAndExportOPML content config title))
 
 (defn ast-export-markdown
   [ast config references]
@@ -244,8 +244,8 @@
     true)
   (exportMarkdown [this content config references]
     (parse-export-markdown content config references))
-  (exportOPML [this content config]
-    (parse-export-opml content config)))
+  (exportOPML [this content config title]
+    (parse-export-opml content config title)))
 
 (defn plain->text
   [plains]

src/main/frontend/format/protocol.cljs

@@ -6,4 +6,4 @@
   (loaded? [this])
   (lazyLoad [this ok-handler])
   (exportMarkdown [this content config references])
-  (exportOPML [this content config]))
+  (exportOPML [this content config title]))

src/main/frontend/handler/export.cljs

@@ -430,7 +430,8 @@
        (mapv (fn [{:keys [path content names format]}]
                (when (first names)
                  [path (fp/exportOPML f/mldoc-record content
-                                      (f/get-default-config format))])))
+                                      (f/get-default-config format)
+                                      (first names))])))
        (remove nil?)))
 
 (defn- convert-md-files-unordered-list-or-heading