diff options
| author |  Christian Hesse <mail@eworm.de> | 2023-12-04 10:58:27 +0100 |
|---|---|---|
| committer | Christian Hesse <mail@eworm.de> | 2023-12-04 12:08:47 +0100 |
| commit | 5e2e65b25207ceae7d847285336fe4791df339bc (patch) | |
| tree | 9b1ea2413ee265babc3ffa5f5c1c55adf4eb34a0 | |
| parent | 8f24b4c490ddb4404521feed8a579a34351568f5 (diff) | |
global-functions: $AlignRight: use $CharacterMultiply
| -rw-r--r-- | global-functions.rsc | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/global-functions.rsc b/global-functions.rsc index bb4f098..ffa02c7 100644 --- a/global-functions.rsc +++ b/global-functions.rsc @@ -81,10 +81,11 @@ :local Input [ :tostr $1 ]; :local Len [ :tonum $2 ]; + :global CharacterMultiply; :global EitherOr; - :local Spaces " "; :set Len [ $EitherOr $Len 8 ]; + :local Spaces [ $CharacterMultiply " " $Len ]; :return ([ :pick $Spaces 0 ($Len - [ :len $Input ]) ] . $Input); } |