Plantuml Domain Story Test

domain-story.puml

' based on https://github.com/johthor/DomainStory-PlantUML

' Styling
' ##################################

!global $iconColor = "#333333"
!global $iconScale = "0.8"
!global $iconScaleActor = "1"

!global $stepColor = "#cccccc"
!global $stepFontSize = 13
!global $stepFontColor = "#000000"

skinparam DefaultTextAlignment center
skinparam ArrowColor #333333
skinparam ArrowFontColor #333333
skinparam Padding 5

hide stereotypes
skinparam rectangle {
    BackgroundColor none
    BorderColor none
    Shadowing false
}

skinparam rectangle<<boundary>> {
    Shadowing false
    StereotypeFontSize 0
    FontColor #999999
    BorderColor #999999
    BorderStyle dashed
    RoundCorner 15
}

skinparam note {
    BackgroundColor #ffff99
    BorderColor #808044
    Shadowing false
}

' Icons
' ##################################
' Include common to use material icon macros.
!include <material/common>

' Actors: include filled and outlined icons
!include <material/crown>

!include <material/account_outline>

!include <material/account_multiple>
!include <material/account_multiple_outline>

!include <material/laptop>
!include <material/laptop_windows>

' Work objects: include filled and outlined icons
!include <material/file_outline>
!include <material/file>
!include <material/file_document>

!include <material/folder>
!include <material/folder_outline>

!include <material/phone>
'!include <material/phone_outline>

!include <material/at>
!include <material/email>

!include <material/message>
!include <material/message_outline>

!include <material/information>
!include <material/information_outline>

!include <material/settings_box>

!include <material/store>

' Elements
' ##################################

' Actors
!unquoted procedure Person($label, $alias = "", $color = "", $scale = "")
    !if $alias == ""
        !$alias = $label
    !endif
    !if $color == ""
        !$color = $iconColor
    !endif
    !if $scale == ""
        !$scale = $iconScaleActor
    !endif
    MA_ACCOUNT_OUTLINE($color, $scale, $alias, rectangle, $label)
!endprocedure

!unquoted procedure Group($label, $alias = "", $color = "", $scale = "")
    !if $alias == ""
        !$alias = $label
    !endif
    !if $color == ""
        !$color = $iconColor
    !endif
    !if $scale == ""
        !$scale = $iconScaleActor
    !endif
    MA_ACCOUNT_MULTIPLE($color, $scale, $alias, rectangle, $label)
!endprocedure

!unquoted procedure System($label, $alias = "", $color = "", $scale = "")
    !if $alias == ""
        !$alias = $label
    !endif
    !if $color == ""
        !$color = $iconColor
    !endif
    !if $scale == ""
        !$scale = $iconScaleActor
    !endif
    MA_LAPTOP($color, $scale, $alias, rectangle, $label)
!endprocedure

!unquoted procedure Merchant($label, $alias = "", $color = "", $scale = "")
    !if $alias == ""
        !$alias = $label
    !endif
    !if $color == ""
        !$color = $iconColor
    !endif
    !if $scale == ""
        !$scale = $iconScaleActor
    !endif
    MA_STORE($color, $scale, $alias, rectangle, $label)
!endprocedure

!unquoted procedure Customer($label, $alias = "", $color = "", $scale = "")
    !if $alias == ""
        !$alias = $label
    !endif
    !if $color == ""
        !$color = $iconColor
    !endif
    !if $scale == ""
        !$scale = $iconScaleActor
    !endif
    MA_CROWN($color, $scale, $alias, rectangle, $label)
!endprocedure

!unquoted procedure Process($label, $alias = "", $color = "", $scale = "")
     !if $alias == ""
        !$alias = $label
    !endif
    !if $color == ""
        !$color = $iconColor
    !endif
    !if $scale == ""
        !$scale = $iconScaleActor
    !endif
    MA_SETTINGS_BOX($color, $scale, $alias, rectangle, $label)
!endprocedure

' Work objects
!unquoted procedure Document($label, $alias = "", $color = "", $scale = "")
    !if $alias == ""
        !$alias = $label
    !endif
    !if $color == ""
        !$color = $iconColor
    !endif
    !if $scale == ""
        !$scale = $iconScale
    !endif
    MA_FILE_OUTLINE($color, $scale, $alias, rectangle, $label)
!endprocedure

!unquoted procedure Folder($label, $alias = "", $color = "", $scale = "")
    !if $alias == ""
        !$alias = $label
    !endif
    !if $color == ""
        !$color = $iconColor
    !endif
    !if $scale == ""
        !$scale = $iconScale
    !endif
    MA_FOLDER($color, $scale, $alias, rectangle, $label)
!endprocedure

!unquoted procedure Call($label, $alias = "", $color = "", $scale = "")
    !if $alias == ""
        !$alias = $label
    !endif
    !if $color == ""
        !$color = $iconColor
    !endif
    !if $scale == ""
        !$scale = $iconScale
    !endif
    MA_PHONE($color, $scale, $alias, rectangle, $label)
!endprocedure

!unquoted procedure Email($label, $alias = "", $color = "", $scale = "")
    !if $alias == ""
        !$alias = $label
    !endif
    !if $color == ""
        !$color = $iconColor
    !endif
    !if $scale == ""
        !$scale = $iconScale
    !endif
    MA_AT($color, $scale, $alias, rectangle, $label)
!endprocedure

!unquoted procedure Conversation($label, $alias = "", $color = "", $scale = "")
    !if $alias == ""
        !$alias = $label
    !endif
    !if $color == ""
        !$color = $iconColor
    !endif
    !if $scale == ""
        !$scale = $iconScale
    !endif
    MA_MESSAGE_OUTLINE($color, $scale, $alias, rectangle, $label)
!endprocedure

!unquoted procedure Info($label, $alias = "", $color = "", $scale = "")
    !if $alias == ""
        !$alias = $label
    !endif
    !if $color == ""
        !$color = $iconColor
    !endif
    !if $scale == ""
        !$scale = $iconScale
    !endif
    MA_INFORMATION_OUTLINE($color, $scale, $alias, rectangle, $label)
!endprocedure


' Activities
' ##################################

!global $objectCounter = 0
!unquoted procedure activity($step, $actor, $action, $object, $post, $target = "", $note = "")
    ' ensure object / create dynamic one
    !$objectSeparator = %strpos($object, ":")
    !if $objectSeparator > 0
        !$objectCounter = %intval($objectCounter) + 1
        !$objectType = %substr($object, 0, $objectSeparator)
        !$objectLabel = %substr($object, $objectSeparator + 1)
        !$object = $objectCounter + $objectType
        %invoke_procedure($objectType, $objectLabel, $object)
    !endif

    ' handle optional $post text
    !if $target == ""
        !$target = $post
        !$post = ""
    !else
        !$post = ": " + $post
    !endif

    ' handle forward or backward activity
    !$direction = %strpos($step, "<")
    !if $direction > 0
        !$label = stepLabel(%substr($step, 0, $direction))
        $object <-[$stepColor]- $actor : $label $action
        $target <-[$stepColor]- $object $post
    !else
        !$label = stepLabel($step)
        $actor -[$stepColor]-> $object : $label $action
        $object -[$stepColor]-> $target $post
    !endif
    !if $note != ""
        note right of $object: $note
    !endif
!endprocedure

' Boundaries
' ##################################

!unquoted procedure Boundary($label)
    rectangle "==$label" <<boundary>>
!endprocedure

!unquoted procedure Boundary($label, $alias)
    rectangle "==$label" <<boundary>> as $alias
!endprocedure

' Helper
' ##################################

!unquoted function stepLabel($step)
    !$result = " "+$step+" "
    !if ($stepColor != "")
    !$result = "<back:"+$stepColor+">"+$result+"</back>"
    !endif
    !if ($stepFontColor != "")
    !$result = "<color:"+$stepFontColor+">"+$result+"</color>"
    !endif
    !if ($stepFontSize != "")
    !$result = "<size:"+$stepFontSize+">"+$result+"</size>"
    !endif
    !return $result
!endfunction

So I am finished with integration.
I may have over complicated a lot of things. 😁

If I'm not mistaken, most of it should still be compatible with your work.