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

Hide some commands from hbs2-git3 help

This commit is contained in:
Snail 2025-02-17 22:42:32 +04:00 committed by voidlizard
parent 6df825226d
commit 5418e7527b
2 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hbs2-git3/lib/HBS2/Git3/Run.hs
View File

@ -62,7 +62,7 @@ theDict = do
where
myEntries = do
myEntries = hidePrefixes ["test", "debug", "segment", "reflog:index"] do
entry $ bindMatch "--help" $ nil_ $ \case
HelpEntryBound what -> do
helpEntry what

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

@ -406,11 +406,16 @@ hide (Bind w x) = Bind (Just updatedMan) x
hidden :: MakeDictM c m () -> MakeDictM c m ()
hidden = censor (HM.map hide)
hidePrefix :: Id -> MakeDictM c m () -> MakeDictM c m ()
hidePrefix (Id p) = error "hidePrefix does not work yet"
-- censor (HM.filterWithKey exclude)
where
exclude (Id k) _ = not (Text.isPrefixOf p k)
hideKeyPredicate :: (Id -> Bool) -> MakeDictM c m () -> MakeDictM c m ()
hideKeyPredicate p = censor $
HM.mapWithKey \k b -> if p k then hide b else b
hidePrefix :: Text -> MakeDictM c m () -> MakeDictM c m ()
hidePrefix p = hideKeyPredicate \(Id k) -> Text.isPrefixOf p k
hidePrefixes :: [Text] -> MakeDictM c m () -> MakeDictM c m ()
hidePrefixes ps = hideKeyPredicate \(Id k) ->
any (\p -> Text.isPrefixOf p k) ps
desc :: Doc ann -> MakeDictM c m () -> MakeDictM c m ()
desc txt = censor (HM.map setDesc)