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 abc4e5ed..d243b2ee 100644 --- a/miscellaneous/suckless-conf/lib/Data/Config/Suckless/Script/Internal.hs +++ b/miscellaneous/suckless-conf/lib/Data/Config/Suckless/Script/Internal.hs @@ -1006,6 +1006,14 @@ internalEntries = do --TODO: integral sum + entry $ bindMatch "words" $ \case + [ TextLike x ] -> pure $ mkList [ mkSym y | y <- Text.words x ] + _ -> pure nil + + entry $ bindMatch "lines" $ \case + [ TextLike x ] -> pure $ mkList [ mkSym y | y <- Text.lines x ] + _ -> pure nil + entry $ bindMatch "sum" $ \case [ ListVal es ] -> do let v = flip mapMaybe es \case