Use production kroki.io endpoint and support more diagram types (#5)

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

Author: yetibot-mps[bot]

src/yetibot_kroki/commands/kroki.clj

@@ -18,21 +18,17 @@
 
 (defn kroki-url
   [type graph]
-  (str "https://demo.kroki.io/" type "/png/" (encode-for-kroki graph)))
+  (str "https://kroki.io/" type "/png/" (encode-for-kroki graph)))
 
 (defn graphviz-url
   [graphviz]
   (kroki-url "graphviz" graphviz))
 
 (def diagram-types
-  {:blockdiag "BlockDiag"
+  {:actdiag "ActDiag"
+   :blockdiag "BlockDiag"
    :bpmn "BPMN"
    :bytefield "Bytefield"
-   :seqdiag "SeqDiag"
-   :actdiag "ActDiag"
-   :nwdiag "NwDiag"
-   :packetdiag "PacketDiag"
-   :rackdiag "RackDiag"
    :c4plantuml "C4 PlantUML"
    :d2 "D2"
    :dbml "DBML"
@@ -42,11 +38,16 @@
    :graphviz "GraphViz"
    :mermaid "Mermaid"
    :nomnoml "Nomnoml"
+   :nwdiag "NwDiag"
+   :packetdiag "PacketDiag"
    :pikchr "Pikchr"
    :plantuml "PlantUML"
+   :rackdiag "RackDiag"
+   :seqdiag "SeqDiag"
    :structurizr "Structurizr"
    :svgbob "Svgbob"
    :symbolator "Symbolator"
+   :tikz "TikZ"
    :umlet "UMLet"
    :vega "Vega"
    :vegalite "Vega-Lite"

test/yetibot_kroki/commands/kroki_test.clj

@@ -42,31 +42,31 @@
 (fact
  "kroki-url generates expected kroki api urls"
  (kroki-url "mermaid" "graph TD; A-->B;")
- => (str "https://demo.kroki.io/mermaid/png/" (encode-for-kroki "graph TD; A-->B;"))
+ => (str "https://kroki.io/mermaid/png/" (encode-for-kroki "graph TD; A-->B;"))
 
  (kroki-url "graphviz" "digraph G {}")
- => (str "https://demo.kroki.io/graphviz/png/" (encode-for-kroki "digraph G {}")))
+ => (str "https://kroki.io/graphviz/png/" (encode-for-kroki "digraph G {}")))
 
 (fact
  "kroki-cmd handles valid, invalid, and multiline diagrams"
  ;; valid diagram type
  (kroki-cmd {:match ["kroki graphviz digraph G {}" "graphviz" "digraph G {}"]})
- => (str "https://demo.kroki.io/graphviz/png/" (encode-for-kroki "digraph G {}"))
+ => (str "https://kroki.io/graphviz/png/" (encode-for-kroki "digraph G {}"))
 
  ;; invalid diagram type
  (kroki-cmd {:match ["kroki non-existent digraph G {}" "non-existent" "digraph G {}"]})
  => {:result/error "Unsupported diagram type: `non-existent`. Use `kroki types` to see supported types."}
 
  ;; case insensitivity for diagram types
  (kroki-cmd {:match ["kroki MERMAID graph TD; A-->B;" "MERMAID" "graph TD; A-->B;"]})
- => (str "https://demo.kroki.io/mermaid/png/" (encode-for-kroki "graph TD; A-->B;"))
+ => (str "https://kroki.io/mermaid/png/" (encode-for-kroki "graph TD; A-->B;"))
 
  ;; multi-line diagram support
  (kroki-cmd {:match ["kroki plantuml\n@startuml\nAlice -> Bob: Hello\n@enduml" "plantuml" "@startuml\nAlice -> Bob: Hello\n@enduml"]})
- => (str "https://demo.kroki.io/plantuml/png/" (encode-for-kroki "@startuml\nAlice -> Bob: Hello\n@enduml")))
+ => (str "https://kroki.io/plantuml/png/" (encode-for-kroki "@startuml\nAlice -> Bob: Hello\n@enduml")))
 
 (fact
  "list-types-cmd returns all supported diagram types"
  (let [res (list-types-cmd {})]
    (:result/data res) => (contains {:graphviz "GraphViz", :mermaid "Mermaid", :excalidraw "Excalidraw", :d2 "D2", :wireviz "WireViz"})
-   (count (:result/value res)) => 27))
+   (count (:result/value res)) => 28))