From 71679e5b6575bc2948dd5e94bd4e23bc35c9614e Mon Sep 17 00:00:00 2001 From: voidlizard Date: Wed, 19 Feb 2025 11:45:29 +0300 Subject: [PATCH] top:file:run args passing --- .../lib/Data/Config/Suckless/Script/Internal.hs | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/miscellaneous/suckless-conf/lib/Data/Config/Suckless/Script/Internal.hs b/miscellaneous/suckless-conf/lib/Data/Config/Suckless/Script/Internal.hs index 671306d3..004d3991 100644 --- a/miscellaneous/suckless-conf/lib/Data/Config/Suckless/Script/Internal.hs +++ b/miscellaneous/suckless-conf/lib/Data/Config/Suckless/Script/Internal.hs @@ -1526,7 +1526,12 @@ internalEntries = do -- skips shebang entry $ bindMatch "top:file:run" $ nil_ $ \case - (StringLike fn : args) -> do + a@(StringLike fn : args) -> do + bind "$*" (mkList a) + bind "*args" (mkList a) + forM_ (zip [0..] a) $ \(i,e) -> do + bind (fromString ("$"<>show i)) e + liftIO (TIO.readFile fn) <&> either (error.show) (fmap (fixContext @C @c) . dropShebang ) . parseTop <&> \case