From 5e2e65b25207ceae7d847285336fe4791df339bc Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Mon, 4 Dec 2023 10:58:27 +0100
Subject: global-functions: $AlignRight: use $CharacterMultiply

---
 global-functions.rsc | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'global-functions.rsc')

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);
 }
-- 
cgit v1.2.3-54-g00ecf