Merge pull request #1051 from berniexie/d2oracle-fix-fill-pattern

d2Oracle: Fix fill-pattern replacement in d2Oracle

ci/release/changelogs/next.md

@@ -3,3 +3,5 @@
 #### Improvements 🧹
 
 #### Bugfixes ⛑️
+
+- Fixes fill-pattern replacement in the API. [#1051](https://github.com/terrastruct/d2/pull/1051)

d2oracle/edit.go

@@ -433,6 +433,11 @@ func _set(g *d2graph.Graph, key string, tag, value *string) error {
 						attrs.Style.Underline.MapKey.SetScalar(mk.Value.ScalarBox())
 						return nil
 					}
+				case "fill-pattern":
+					if attrs.Style.FillPattern != nil {
+						attrs.Style.FillPattern.MapKey.SetScalar(mk.Value.ScalarBox())
+						return nil
+					}
 				}
 			case "label":
 				if attrs.Label.MapKey != nil {

d2oracle/edit_test.go

@@ -838,6 +838,27 @@ square.style.opacity: 0.2
   style.stroke-width: 1
   style.stroke-dash: 3
 }
+`,
+		},
+		{
+			name:  "set_fill_pattern",
+			text:  `square`,
+			key:   `square.style.fill-pattern`,
+			value: go2.Pointer(`grain`),
+			exp: `square: {style.fill-pattern: grain}
+`,
+		},
+		{
+			name: "replace_fill_pattern",
+			text: `square: {
+  style.fill-pattern: lines
+}
+`,
+			key:   `square.style.fill-pattern`,
+			value: go2.Pointer(`grain`),
+			exp: `square: {
+  style.fill-pattern: grain
+}
 `,
 		},
 		{