Add special shape for Strategy Value Stream

Author: JeanMarc van Leerdam

README.md

@@ -184,6 +184,7 @@ Shapes that support special shapes are:
 * Motivation Stakeholder
 * Motivation Meaning
 * Motivation Value(*)
+* Strategy Value Stream
 
 > [!IMPORTANT]
 > Note: the special shapes marked with (*) do not support nesting other elements within them, so you need to add a 
@@ -196,6 +197,7 @@ Shapes that support special shapes are:
 
 !include <archimate/Archimate>
 
+
 Motivation_Stakeholder(MS, "Motivation Stakeholder") {
     Motivation_Stakeholder(MSI, "Inner Stakeholder", $special=%true())
     Motivation_Stakeholder(MSI2, "Another Inner Stakeholder", $special=%false())
@@ -208,6 +210,11 @@ Motivation_Value(MV, "Motivation Value", $nest=%true()) {
     Motivation_Value(MVI, "Inner Value", $special=%true())
     Motivation_Value(MVI2, "Another Inner Value", $special=%false())
 }
+Strategy_ValueStream(SV, "Strategy Value Stream", $nest=%true()) {
+    Strategy_ValueStream(SVI, "Inner Value Stream", $special=%true())
+    Strategy_ValueStream(SVI2, "Another Inner Value Stream", $special=%false())
+}
+
 Business_Actor(BA, "Business Actor", $nest=%true()) {
     Business_Actor(BAI, "Inner Actor", $special=%true())
     Business_Actor(BAI2, "Another Inner Actor", $special=%false())

dist/plantuml-stdlib/stdlib/archimate/Archimate.puml

@@ -88,8 +88,12 @@
 !unquoted procedure Strategy_CourseOfAction($alias, $label, $nest=0)
   archimate $ARCH_STRATEGY_FILLCOLOR "$label" <<strategy-courseofaction>> as $alias
 !endprocedure
-!unquoted procedure Strategy_ValueStream($alias, $label, $nest=0)
-  archimate $ARCH_STRATEGY_FILLCOLOR "$label" <<strategy-valuestream>> as $alias
+!unquoted procedure Strategy_ValueStream($alias, $label, $nest=0, $special = $ARCH_SPECIAL_SHAPES)
+  !if ($special == %true())
+      process "$label" as $alias $ARCH_STRATEGY_FILLCOLOR
+  !else
+      archimate $ARCH_STRATEGY_FILLCOLOR "$label" <<strategy-valuestream>> as $alias
+  !endif
 !endprocedure
 
 'Business Elements

images/SpecialShapes.png

@@ -36,6 +36,11 @@ Motivation_Value(MV, "Motivation Value", $nest=%true()) {
     Motivation_Value(MVI, "Inner Value", $special=%true())
     Motivation_Value(MVI2, "Another Inner Value", $special=%false())
 }
+Strategy_ValueStream(SV, "Strategy Value Stream", $nest=%true()) {
+    Strategy_ValueStream(SVI, "Inner Value Stream", $special=%true())
+    Strategy_ValueStream(SVI2, "Another Inner Value Stream", $special=%false())
+}
+
 Business_Actor(BA, "Business Actor", $nest=%true()) {
     Business_Actor(BAI, "Inner Actor", $special=%true())
     Business_Actor(BAI2, "Another Inner Actor", $special=%false())
@@ -56,6 +61,6 @@ Technology_Artifact(TA, "Technology Artifact") {
 
 MS -[hidden]- BA
 MM -[hidden]- BS
-MM -[hidden]- TN
-MV -[hidden]- TA
+MV -[hidden]- TN
+SV -[hidden]- TA
 @enduml