From ea3a4dac09113a1650892e3b6d0725392e2129c0 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Sat, 12 Jul 2025 15:54:15 +0200 Subject: Terminal: show completion options only when nothing is added --- main/Terminal.hs | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/main/Terminal.hs b/main/Terminal.hs index 5f061d5..b9dca51 100644 --- a/main/Terminal.hs +++ b/main/Terminal.hs @@ -203,9 +203,11 @@ getInputLine term@Terminal {..} handleResult = do ( unused, completions@(c : cs) ) -> do let commonPrefixes' x y = fmap (\( common, _, _ ) -> common) $ T.commonPrefixes x y case foldl' (\mbcommon cur -> commonPrefixes' cur =<< mbcommon) (Just $ replacement c) (fmap replacement cs) of - Just common -> updatePrompt $ T.unpack unused ++ T.unpack common - Nothing -> return () - return $ map replacement completions + Just common | T.unpack common /= pre -> do + updatePrompt $ T.unpack unused ++ T.unpack common + return [] + _ -> do + return $ map replacement completions ( _, [] ) -> do return [] -- cgit v1.2.3