New project, limit passwords

lib/Password.hs

@@ -40,7 +40,7 @@ mkPassPrompt label f conf = do
   -- I'm just sorting here, but could use some kind of fuzzy matching instead, but it requires a bit more effort
   passwords <- sort <$> liftIO getPasswords
   -- Other change, use infixof instead of prefixof
-  mkXPrompt (Pass label) conf (\input -> pure (sortBy (compare `on` levenshtein input) . filter (consumes input) $ passwords)) f
+  mkXPrompt (Pass label) conf (\input -> pure (sortBy (compare `on` levenshtein input) . take 5 . filter (consumes input) $ passwords)) f
   where
     consumes [] _ = True -- everything consumed
     consumes (_:_) [] = False -- all not consumed

lib/Projects.hs

@@ -37,6 +37,7 @@ projects =  [ adminProject "wrk-config"
             , adminProject "cdc-config"
             , adminProject "overlays-personal"
             , candyProject "dhall-packages"
+            , candyProject "hfdb"
             , spinChat "element"
             , spinChat "wire"
             , spinChat "signal"