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

wip

This commit is contained in:
voidlizard 2025-02-03 20:05:52 +03:00
parent 23e690b302
commit 9c81855a13
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -670,6 +670,7 @@ eval' dict0 syn' = handle (handleForm syn') $ do
pure nil pure nil
-- error $ show $ "fucked!" <+> pretty fn -- error $ show $ "fucked!" <+> pretty fn
--
ListVal [SymbolVal "define", SymbolVal what, e] -> do ListVal [SymbolVal "define", SymbolVal what, e] -> do
ev <- eval e ev <- eval e
@ -883,7 +884,7 @@ internalEntries = do
entry $ bindValue "chr:tab" (mkStr "\t") entry $ bindValue "chr:tab" (mkStr "\t")
entry $ bindValue "chr:space" (mkStr " ") entry $ bindValue "chr:space" (mkStr " ")
entry $ bindAlias "local" "define"
brief "concatenates list of string-like elements into a string" brief "concatenates list of string-like elements into a string"
$ args [arg "list" "(list ...)"] $ args [arg "list" "(list ...)"]
@ -1404,7 +1405,7 @@ internalEntries = do
let atomFrom = \case let atomFrom = \case
[StringLike s] -> pure (mkSym s) [StringLike s] -> pure (mkSym s)
[e] -> pure (mkSym $ show $ pretty e) [e] -> pure (mkSym $ show $ pretty e)
_ -> throwIO (BadFormException @c nil) es -> atomFrom [concatTerms hcat es]
brief "type of argument" brief "type of argument"
$ args [arg "term" "term"] $ args [arg "term" "term"]
@ -1677,12 +1678,12 @@ internalEntries = do
TextLike s -> pretty $ mkSym @c s TextLike s -> pretty $ mkSym @c s
other -> pretty $ mkSym @c (show $ pretty other) other -> pretty $ mkSym @c (show $ pretty other)
let body = braces $ hcat $ punctuate " " let body = hsep
[ pretty k <> ":" <+> pretty v <> semi [ pretty k <> ":" <+> pretty v <> semi
| ListVal [TextLike k, v] <- kwa | ListVal [TextLike k, v] <- kwa
] ]
let css = se <+> body let css = se <+> braces body
pure $ mkStr (show css) pure $ mkStr (show css)