protocol-based structurizr generator

dundalek · Apr 24, 2024 · 5997525 · 5997525
1 parent 0641d03
commit 5997525
Show file tree

Hide file tree

Showing 3 changed files with 27 additions and 13 deletions.
diff --git a/components/structurizr/src/dinodoc/structurizr.clj b/components/structurizr/src/dinodoc/structurizr.clj
@@ -1,5 +1,6 @@
 (ns dinodoc.structurizr
   (:require
+   [dinodoc.generator :as generator]
    [dinodoc.structurizr.impl.core :as impl]))
 
 (defn generate
@@ -15,3 +16,14 @@ Options:
     (impl/render-workspace {:workspace workspace
                             :output-path output-path
                             :base-path base-path})))
+
+(deftype StructurizrGenerator [opts]
+  generator/Generator
+  (prepare-index [_])
+  (resolve-link [_ target])
+  (generate [_ {:keys [output-path]}]
+    (generate (assoc opts
+                     :output-path output-path))))
+
+(defn make-generator [opts]
+  (->StructurizrGenerator opts))
diff --git a/components/structurizr/test/src/dinodoc/structurizr_test.clj b/components/structurizr/test/src/dinodoc/structurizr_test.clj
@@ -1,6 +1,7 @@
 (ns dinodoc.structurizr-test
   (:require
    [clojure.test :refer [deftest]]
+   [dinodoc.api :as dinodoc]
    [dinodoc.approval-helpers :as approval-helpers]
    [dinodoc.structurizr :as structurizr]))
 
@@ -17,7 +18,8 @@
 
 (deftest generate-from-json
   (let [output-path "components/structurizr/test/output/from-json"]
-    (structurizr/generate
-     {:workspace-file "examples/structurizr/examples/json/getting-started/workspace.json"
+    (dinodoc/generate
+     {:inputs [{:generator (structurizr/make-generator
+                            {:workspace-file "examples/structurizr/examples/json/getting-started/workspace.json"})}]
       :output-path output-path})
     (approval-helpers/is-same? output-path)))
diff --git a/examples/structurizr/doc.clj b/examples/structurizr/doc.clj
@@ -1,16 +1,16 @@
 (ns doc
   (:require
+   [dinodoc.api :as dinodoc]
    [dinodoc.structurizr :as structurizr]))
 
-(def workspace-files
-  ["examples/dsl/big-bank-plc/workspace.dsl"
-   "examples/dsl/financial-risk-system/workspace.dsl"]
-   ; "examples/dsl/microservices/workspace.dsl"]
-  #_(fs/glob "." "examples/dsl/*/workspace.dsl"))
+(let [base-path "/examples/structurizr"]
+  (dinodoc/generate
+   {:output-path "docs"
+    :inputs [{:generator (structurizr/make-generator
+                          {:workspace-file "examples/dsl/big-bank-plc/workspace.dsl"
+                           :base-path base-path})}
+             {:generator (structurizr/make-generator
+                          {:workspace-file "examples/dsl/financial-risk-system/workspace.dsl"
+                           :base-path base-path})}]}))
 
-(doseq [workspace-file workspace-files]
-  (println "Generating:" (str workspace-file))
-  (structurizr/generate
-   {:workspace-file (str workspace-file)
-    :output-path "docs"
-    :base-path "/examples/structurizr"}))
+(shutdown-agents)