Renaming styles for StructurePreserving.

maxitg · Oct 27, 2020 · a628711 · a628711
1 parent dde298f
commit a628711
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 8 deletions.
diff --git a/Kernel/HypergraphToGraph.m b/Kernel/HypergraphToGraph.m
@@ -91,11 +91,11 @@
     graphJoin[
       hyperedgeGraphs,
       VertexStyle -> Replace[OptionValue[Graph, {opts}, VertexStyle],
-        Automatic -> {{"Hyperedge", _, _} -> style[$lightTheme][$structurePreservingVertexStyle]}],
+        Automatic -> {{"Hyperedge", _, _} -> style[$lightTheme][$structurePreservingHyperedgeVertexStyle]}],
       EdgeStyle -> Replace[OptionValue[Graph, {opts}, EdgeStyle],
         Automatic -> {Rule[
           DirectedEdge[{"Hyperedge", _, _}, {"Hyperedge", _, _}],
-          style[$lightTheme][$structurePreservingEdgeStyle]]}],
+          style[$lightTheme][$structurePreservingHyperedgeToHyperedgeEdgeStyle]]}],
       opts]
   ]
 

diff --git a/Kernel/style.m b/Kernel/style.m
@@ -67,8 +67,8 @@
 PackageScope["$rulialGraphVertexIconFrameMargins"]
 PackageScope["$genericLinePlotStyles"]
 PackageScope["$genericGraphEdgeStyle"]
-PackageScope["$structurePreservingVertexStyle"]
-PackageScope["$structurePreservingEdgeStyle"]
+PackageScope["$structurePreservingHyperedgeVertexStyle"]
+PackageScope["$structurePreservingHyperedgeToHyperedgeEdgeStyle"]
 
 combinedOptionsProperties[plotFunction_][options__] := Sequence[
   "Options" -> {options},
@@ -189,8 +189,8 @@
   |>,
 
   "HypergraphStructurePreservingGraph" -> <|
-    "VertexStyle" -> $structurePreservingVertexStyle,
-    "EdgeStyle" -> $structurePreservingEdgeStyle
+    "HyperedgeVertexStyle" -> $structurePreservingHyperedgeVertexStyle,
+    "HyperedgeToHyperedgeEdgeStyle" -> $structurePreservingHyperedgeToHyperedgeEdgeStyle
   |>
 |>;
 
@@ -301,6 +301,6 @@
   $genericGraphEdgeStyle -> Directive[Hue[0.62, 0.3, 0.45], Opacity[0.7], AbsoluteThickness[1.5]],
 
   (* HypergraphToGraph Structure Preserving *)
-  $structurePreservingVertexStyle -> LightBlue,
-  $structurePreservingEdgeStyle -> Dashed
+  $structurePreservingHyperedgeVertexStyle -> LightBlue,
+  $structurePreservingHyperedgeToHyperedgeEdgeStyle -> Dashed
 |>;