From 729e030dd25da2e36fa5a1312b8ecb3415dc1675 Mon Sep 17 00:00:00 2001 From: Azat Bahawi Date: Tue, 23 Nov 2021 03:19:06 +0300 Subject: Huge update --- src/XMonad/Custom/Prompt.hs | 27 --------------------------- 1 file changed, 27 deletions(-) delete mode 100644 src/XMonad/Custom/Prompt.hs (limited to 'src/XMonad/Custom/Prompt.hs') diff --git a/src/XMonad/Custom/Prompt.hs b/src/XMonad/Custom/Prompt.hs deleted file mode 100644 index e8762d1..0000000 --- a/src/XMonad/Custom/Prompt.hs +++ /dev/null @@ -1,27 +0,0 @@ --- | --- Module : XMonad.Custom.Prompt --- Copyright : (c) 2018-2020 Azat Bahawi --- License : BSD3-style (see LICENSE) --- Maintainer : Azat Bahawi --- Stability : unstable --- Portability : unportable --- - -module XMonad.Custom.Prompt - ( listCompFunc - , aListCompFunc - , predicateFunction - ) where - -import Data.Char -import Data.List -import XMonad.Prompt - -listCompFunc :: XPConfig -> [String] -> String -> IO [String] -listCompFunc c xs s = return (filter (searchPredicate c s) xs) - -aListCompFunc :: XPConfig -> [(String, a)] -> String -> IO [String] -aListCompFunc c xs = listCompFunc c (map fst xs) - -predicateFunction :: String -> String -> Bool -predicateFunction x y = lc x `isInfixOf` lc y where lc = map toLower -- cgit 1.4.1