Fix output format for SVG-only diagram types (Excalidraw, BPMN, SvgBob, etc.) (#7)

Co-authored-by: Yetibot <yetibot@yetibot.com>

Author: yetibot-mps[bot]

src/yetibot_kroki/commands/kroki.clj

@@ -16,9 +16,13 @@
       (string/replace "+" "-")
       (string/replace "/" "_")))
 
+(def svg-only-types
+  #{"bpmn" "bytefield" "excalidraw" "nomnoml" "pikchr" "svgbob" "wavedrom"})
+
 (defn kroki-url
   [type graph]
-  (str "https://kroki.io/" type "/png/" (encode-for-kroki graph)))
+  (let [format (if (contains? svg-only-types (string/lower-case type)) "svg" "png")]
+    (str "https://kroki.io/" type "/" format "/" (encode-for-kroki graph))))
 
 (defn graphviz-url
   [graphviz]

test/yetibot_kroki/commands/kroki_test.clj

@@ -45,7 +45,13 @@
  => (str "https://kroki.io/mermaid/png/" (encode-for-kroki "graph TD; A-->B;"))
 
  (kroki-url "graphviz" "digraph G {}")
- => (str "https://kroki.io/graphviz/png/" (encode-for-kroki "digraph G {}")))
+ => (str "https://kroki.io/graphviz/png/" (encode-for-kroki "digraph G {}"))
+
+ (kroki-url "excalidraw" "{\"type\": \"excalidraw\"}")
+ => (str "https://kroki.io/excalidraw/svg/" (encode-for-kroki "{\"type\": \"excalidraw\"}"))
+
+ (kroki-url "BPMN" "bpmn content")
+ => (str "https://kroki.io/BPMN/svg/" (encode-for-kroki "bpmn content")))
 
 (fact
  "kroki-cmd handles valid, invalid, and multiline diagrams"