From 5b3d299d5eec557668c556f5918441b2a261311c Mon Sep 17 00:00:00 2001 From: voidlizard Date: Fri, 24 Jan 2025 18:09:33 +0300 Subject: [PATCH] wip, words, lines --- .../lib/Data/Config/Suckless/Script/Internal.hs | 8 ++++++++ 1 file changed, 8 insertions(+) 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