voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

top:file:run args passing

This commit is contained in:
voidlizard 2025-02-19 11:45:29 +03:00
parent 62aae7ccc3
commit 71679e5b65
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
miscellaneous/suckless-conf/lib/Data/Config/Suckless/Script/Internal.hs
View File

@ -1526,7 +1526,12 @@ internalEntries = do
-- skips shebang -- skips shebang
entry $ bindMatch "top:file:run" $ nil_ $ \case 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) liftIO (TIO.readFile fn)
<&> either (error.show) (fmap (fixContext @C @c) . dropShebang ) . parseTop <&> either (error.show) (fmap (fixContext @C @c) . dropShebang ) . parseTop
<&> \case <&> \case