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:
Dmitry Zuikov 2024-05-09 15:43:42 +03:00
parent 52afcb5c5c
commit 41c5f51725
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
fixme-new/lib/Fixme/Run.hs
View File

@ -54,6 +54,8 @@ pattern FixmeGitScanFilterDays d <- ListVal [ SymbolVal "fixme-git-scan-filter-d
pattern StringLike :: forall {c} . String -> Syntax c pattern StringLike :: forall {c} . String -> Syntax c
pattern StringLike e <- (stringLike -> Just e) pattern StringLike e <- (stringLike -> Just e)
pattern StringLikeList :: forall {c} . [String] -> [Syntax c]
pattern StringLikeList e <- (stringLikeList -> e)
data ScanGitArgs = data ScanGitArgs =
@ -69,6 +71,9 @@ stringLike = \case
SymbolVal (Id s) -> Just $ Text.unpack s SymbolVal (Id s) -> Just $ Text.unpack s
_ -> Nothing _ -> Nothing
stringLikeList :: [Syntax c] -> [String]
stringLikeList syn = [ stringLike s | s <- syn ] & takeWhile isJust & catMaybes
fileMasks :: [Syntax c] -> [FilePattern] fileMasks :: [Syntax c] -> [FilePattern]
fileMasks what = [ show (pretty s) | s <- what ] fileMasks what = [ show (pretty s) | s <- what ]
@ -265,7 +270,12 @@ run what = do
ListVal [SymbolVal "fixme-file-comments", StringLike ft, StringLike b] -> do ListVal [SymbolVal "fixme-file-comments", StringLike ft, StringLike b] -> do
let co = Text.pack b & HS.singleton let co = Text.pack b & HS.singleton
t <- asks fixmeEnvFileComments t <- asks fixmeEnvFileComments
atomically (modifyTVar t (HM.insertWith (<>) ft co)) atomically (modifyTVar t (HM.insertWith (<>) (commentKey ft) co))
ListVal (SymbolVal "fixme-comments" : StringLikeList xs) -> do
t <- asks fixmeEnvDefComments
let co = fmap Text.pack xs & HS.fromList
atomically $ modifyTVar t (<> co)
Init -> init Init -> init