allow new option creation in SearchSelect

ners · Apr 6, 2024 · f6683d5 · f6683d5
1 parent 037b71f
commit f6683d5
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/System/Terminal/Widgets/SearchSelect.hs b/src/System/Terminal/Widgets/SearchSelect.hs
@@ -23,6 +23,7 @@ data SearchSelect a = SearchSelect
     , options :: [SearchSelectOption a]
     , selections :: [a]
     , optionText :: a -> Text
+    , newOption :: Text -> Maybe a
     , minSelect :: Int
     , maxSelect :: Int
     , minSearchLength :: Int
@@ -133,4 +134,5 @@ makeOptionsVisible s
     (newVisible, newInvisible) = splitAt s.maxVisible $ sortOn (Down . Fuzzy.score) $ score <$> s.options
     newOptions =
         (newVisible <&> (\x -> x.original & #visible .~ (x.score >= 0)))
+            <> [ SearchSelectOption{value, visible = True} | Just value <- [s.newOption filterText]]
             <> (newInvisible <&> ((.original) >>> #visible .~ False))