Add new operations on Panel and PanelHeader

galassie · Feb 3, 2023 · 04ee8b2 · 04ee8b2
1 parent f73036d
commit 04ee8b2
Show file tree

Hide file tree

Showing 3 changed files with 14 additions and 5 deletions.
diff --git a/src/FsSpectre/FsSpectre.fsproj b/src/FsSpectre/FsSpectre.fsproj
@@ -11,7 +11,7 @@
     <TreatWarningsAsErrors>true</TreatWarningsAsErrors>
     <!-- NuGet config -->
     <PackageId>FsSpectre</PackageId>
-    <Version>0.3.5</Version>
+    <Version>0.3.6</Version>
     <Authors>Enrico Galassi</Authors>
     <PackageTags>fsharp;cli;dotnet;console-application;fsharp-console;</PackageTags>
     <PackageProjectUrl>https://github.com/galassie/fs-spectre</PackageProjectUrl>

diff --git a/src/FsSpectre/Widgets/PanelBuilder.fs b/src/FsSpectre/Widgets/PanelBuilder.fs
@@ -29,6 +29,11 @@ module PanelBuilder =
             panel.Header <- PanelHeader(text)
             panel
 
+        [<CustomOperation "Expand">]
+        member __.Expand(panel: Panel) =
+            panel.Expand <- true
+            panel
+
         [<CustomOperation "width">]
         member __.Width(panel: Panel, width: int) =
             panel.Width <- width

diff --git a/src/FsSpectre/Widgets/PanelHeaderBuilder.fs b/src/FsSpectre/Widgets/PanelHeaderBuilder.fs
@@ -12,9 +12,13 @@ module PanelHeaderBuilder =
         [<CustomOperation "text">]
         member __.Text(_, text: string) = PanelHeader(text)
 
-        [<CustomOperation "justification">]
-        member __.Justification(panelHeader: PanelHeader, justify: Justify) =
-            panelHeader.Justification <- justify
-            panelHeader
+        [<CustomOperation "left_justified">]
+        member __.LeftJustified(panelHeader: PanelHeader) = panelHeader.LeftJustified()
+
+        [<CustomOperation "right_justified">]
+        member __.RightJustified(panelHeader: PanelHeader) = panelHeader.RightJustified()
+
+        [<CustomOperation "centered">]
+        member __.Centered(panelHeader: PanelHeader) = panelHeader.Centered()
 
     let panelHeader = PanelHeaderBuilder()