Figure.wiggle: Refactor using the new alias system

Author: seisman

pygmt/src/wiggle.py

@@ -9,6 +9,7 @@
 from pygmt.alias import Alias, AliasSystem
 from pygmt.clib import Session
 from pygmt.helpers import build_arg_list, deprecate_parameter, fmt_docstring, use_alias
+from pygmt.params import Position
 
 
 def _parse_fills(positive_fill, negative_fill):
@@ -46,7 +47,6 @@ def _parse_fills(positive_fill, negative_fill):
     "fillnegative", "negative_fill", "v0.18.0", remove_version="v0.20.0"
 )
 @use_alias(
-    D="position",
     T="track",
     W="pen",
     Z="scale",
@@ -64,6 +64,10 @@ def wiggle(  # noqa: PLR0913
     x=None,
     y=None,
     z=None,
+    position: Position | None = None,
+    length: float | str | None = None,
+    label: str | None = None,
+    label_alignment: Literal["left", "right"] | None = None,
     positive_fill=None,
     negative_fill=None,
     projection: str | None = None,
@@ -107,29 +111,34 @@ def wiggle(  # noqa: PLR0913
         $table_classes.
         Use parameter ``incols`` to choose which columns are x, y, z,
         respectively.
-    $projection
-    $region
+    position
+        Specify the position of the vertical scale bar on the plot. See
+        :class:`pygmt.params.Position` for more details.
+    length
+        Length of the vertical scale bar in data (z) units.
+    label
+        Set the z unit label that is used in the scale label [Default is no unit].
+    label_alignment
+        Set the alignment of the scale label. Choose from ``"left"`` or ``"right"``
+        [Default is ``"left"``].
     scale : str or float
         Give anomaly scale in data-units/distance-unit. Append **c**, **i**,
         or **p** to indicate the distance unit (centimeters, inches, or
         points); if no unit is given we use the default unit that is
         controlled by :gmt-term:`PROJ_LENGTH_UNIT`.
-    $frame
-    position : str
-        [**g**\|\ **j**\|\ **J**\|\ **n**\|\ **x**]\ *refpoint*\
-        **+w**\ *length*\ [**+j**\ *justify*]\ [**+al**\|\ **r**]\
-        [**+o**\ *dx*\ [/*dy*]][**+l**\ [*label*]].
-        Define the reference point on the map for the vertical scale bar.
     positive_fill : str
         Set color or pattern for filling positive wiggles [Default is no fill].
     negative_fill : str
         Set color or pattern for filling negative wiggles [Default is no fill].
     track : str
         Draw track [Default is no track]. Append pen attributes to use
         [Default is ``"0.25p,black,solid"``].
-    $verbose
     pen : str
         Specify outline pen attributes [Default is no outline].
+    $projection
+    $region
+    $frame
+    $verbose
     $binary
     $panel
     $nodata
@@ -147,6 +156,17 @@ def wiggle(  # noqa: PLR0913
     _fills = _parse_fills(positive_fill, negative_fill)
 
     aliasdict = AliasSystem(
+        D=[
+            Alias(position, name="position"),
+            Alias(length, name="length", prefix="+w"),
+            Alias(
+                label_alignment,
+                name="label_alignment",
+                prefix="+a",
+                mapping={"left": "l", "right": "r"},
+            ),
+            Alias(label, name="label", prefix="+l"),
+        ],
         G=Alias(_fills, name="positive_fill/negative_fill"),
     ).add_common(
         B=frame,