diff options
author | azahi <azahi@teknik.io> | 2018-10-13 14:12:30 +0300 |
---|---|---|
committer | azahi <azahi@teknik.io> | 2018-10-13 14:12:30 +0300 |
commit | 8e20389ce238d979e6cb9253643bc181d698f5a9 (patch) | |
tree | d777052e5ac411cfa79de596ecc99d7d596705d8 /src/XMonad/Custom/Prompt.hs | |
parent | Rework Custom (diff) |
Huge update, yet again
Move to ~/.xmonad Completely redo directory structure Remove Test.hs with xmonad-ng-test because it breaks cabal Add headers for new files Add proper "copyright" entries and mention upstream xmonad developers Other minor fixes
Diffstat (limited to 'src/XMonad/Custom/Prompt.hs')
-rw-r--r-- | src/XMonad/Custom/Prompt.hs | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/src/XMonad/Custom/Prompt.hs b/src/XMonad/Custom/Prompt.hs new file mode 100644 index 0000000..15aab2c --- /dev/null +++ b/src/XMonad/Custom/Prompt.hs @@ -0,0 +1,18 @@ +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 |